commandbuttona şifre koymak

[cemilk]

Userform üzerinde ki commandbutonlar farklı bölümlere açılıyor ve bu butonlara ayrı şifre vermek istiyorum şifrelemek mümkünse nasıl olur söylermisiniz.

teşekkür ederim.

 

[leumruk]

Merhaba,
Butonlardaki kodların başına aşağıdaki satırları ekleyin. Şifreyi kendinize göre değiştirebilirsiniz.

sifre= InputBox("Bu işlem için şifre girmelisiniz.")
If sifre = "" Then Exit Sub
If sifre<>"12345" Then MsgBox "Yanlış şifre girdiniz.": Exit Sub

 

[cemilk]

Sağolasın hocam..

 

[leumruk]

Sağolasın hocam..

Rica ederim.

 

[cemilk]

hocam sağol hallettim yalnız devamında çıkış yada başka bir user fırm açması için ne yazmalıyım

 

[leumruk]

Aşağıdaki satır içinde bulunduğunuz userformu kapatır ve diğer userformu açar. Siz kendi userform adınızı yazınız.

Unload me
Userform2.show

 

[cemilk]

Sağol üstat