Userform ve kilit

Katılım
14 Nisan 2006
Mesajlar
71
Merhaba,

Userformlarda makroda sonuna 1 veya 0 girerek sayfaya erisim hakkini belirliyoruz. Ben sayfa ustune bir resim koymak istiyorum ve userform acikken o kilide basildiginda kilit acilirsa sayfaya erisim hakki saglanacak eger kilit kapanirsa erisim hakki ortadan kalkacak. Fakat bu kilidi acmak icin sifre sormasini istiyorum acab bunu nasil yapabilirim?

Tesekkurler
 
Katılım
14 Nisan 2006
Mesajlar
71
Merhaba,

Peki su mumkun mu;

Userformda bir butona tiklaninca butonun calismasi icin yani yazilmis olan kodun isleme baslamasi icin once bir password sorulsun yani bir sifre ekrani gelebilir mi? Sifreyi bilmeyen geri tusu ile tekrar ana ekrana donebilir mi?

Tesekkurler
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
Sn. etobus, inanın ilk istediğiniz kodlar biraz zahmetli olduğu için üşendim söylediğinizin biraz değişiği;

[vb:1:382d1feb05]Private Sub CommandButton1_Click()
sifre = InputBox("Kodların çalışması için şifre gerekiyor", _
"Yetkili Kişi", "Şifreyi buraya yazınız.")
If sifre = "excel" Then 'şifre
MsgBox "Şifre doğrulandı", vbInformation, _
"Şifre Doğru"
'buraya kodlarınızı yapıştırınız
' " "
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kod çalışması iptal edildi", vbCritical, "Yanlış şifre"
Cancel = True
End If
End Sub[/vb:1:382d1feb05]
 
Üst