Userform ve kilit

[etobus]

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

 

[etobus]

Acaba bu konuda bir fikri olan var mi?

Tesekkurler

 

[Mahmut Bayram]

Sn etobus, işin zoru o kilit resmini bulmakta.

 

[etobus]

Sn etobus, işin zoru o kilit resmini bulmakta.

onun hic bir onemi yok yani herhangi bir resim olabilir bu.

 

[etobus]

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]

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]