UserForma Kullanıcı Adı ve Şifre İle Giriş Yapma

[karacali06]

* Bir sayfa açıp buraya kullanıcı adlarını ve şifrelerini yazdım.
Açılışta şifre ekranım var (UserForm2). Bu ekrandaki '' YENİ ŞİFRE'' butonunu ayarlayamadım. Birde açılıştaki şifre ekranında ''KULLANICI ADI'' ve buna karşılık gelen ''ŞİFRE'' ile giriş yapmak mümkün mü? Giriş yapıldıktan sonra otomatik olarak userform1 açılacak.
Not: Açılıştaki şifrem ''0000'' (dört adet sıfır)

 

[Necdet]

Merhaba,

Sizin sorunuzu çözmek için değil ama fikir vermek açısından kendi yaptığım kontrolü anlatmak istiyorum.

Eğer network sözkonusu ise çalıştığınız birimde ben networkteki kullanıcı adını kontrol ediyorum. Dolayısıyla kimseye illa kullanıcı adı seçtirmek ve şifre girmek gibi birşeyle uğraştırmuyorum.

Çünkü kullanıcıyı sıkmamak gerek. Kullanıcı için önemli bir dosya ise zırt vırt kullanıcı seçtirmek ve şifre girdirmek bana pek anlamlı gelmiyor.

İzin verilen kullanıcı çok ise kullanıcı isimlerini bir sayfaya - ki sizin yaptığnız gibi - yazılır, o sayfa gizlenir ve dosya koruması yapılır, izin verilen kullanıcı sayısı az ise doğrudan kod içine koyup konrol edilebilir.

Örnek kodlar aşağıdadır. Kodlar ThisWorkBook'un kod bölümünde olmalı.

Private Sub Workbook_Open()
Dim Kullanici As String
Dim Bul       As Range
Kullanici = Environ("UserName")
Set Bul = Sheets("Yetki").Range("a:a").Find(Kullanici, LookIn:=xlValues, LookAt:=xlWhole)
If Bul Is Nothing Then
    MsgBox "Bu dosyayı kullanmaya yetkili değilsiniz..."
    ThisWorkbook.Close SaveChanges:=False
    Application.Quit
Else
    MsgBox "Hoş Geldiniz Sayın " & Application.UserName
End If
End Sub

 

[karacali06]

Necdet Bey ilginize teşekkür ederim. Verdiğiniz bilgide çok işime yarayacak, sağolun.
Yinede Kullanıcı adına göre ve kullanıcının kendi şifresi ile girmesi gerekiyor bizim için.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte bu konuyla ilgili birçok çalışma bulunmaktadır. İncelermisiniz.

Kullanıcı Adı ve Parola Uygulamaları

 

[karacali06]

Korhan Bey,
Teşekkür ederim.

 

[gultekinm36]

 

[gultekinm36]

Bende çalışma kitabıma eklemek istiyorum . Örneği incemek istediğim bu hatayı alıyorum

 

[AdemCan]

Merhaba,
Yetki isimli sayfanın A sütununa bilgisayarda oturum açtığınız kullanıcı adını yazmalısınız.