textbox yada comandbutton a şifre koyma

[hurkanpisirici]

merhabalar bir userform um var ve üzrinde bir commandbutonum ben 2 userformu bu buton ile çağırıyorum ama butona bastığım anda ilk önce benden bir şifre istesin doğru şifre girilirse 2. userformum açılsın böyle bir örnek bulamadım mümkünmü acaba

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen şifrenizi giriniz.")
If deg = 123 Then
Unload Me
UserForm2.Show
Else
MsgBox "Şifreyi yanlış girdiniz.", vbInformation
End If
hata:
End Sub

 

[hurkanpisirici]

teşekkür ederim sayın nuri bey.ama yolladığınız dosyayı yüklerken bir sorun oldu galiba hiç bir kod yada başka bişey yok dosyada.ilginiz için sağolun.

 

[karadami]

teşekkür ederim sayın nuri bey.ama yolladığınız dosyayı yüklerken bir sorun oldu galiba hiç bir kod yada başka bişey yok dosyada.ilginiz için sağolun.

alt + f11 ile açıp baktınız mı benim indirdiğimde kodlar bulunuyor....

 

[hurkanpisirici]

sayın karadamı herşeyi yaptım ama tek bir kod bile yok ofis2007 kullanıyorum sebep bu olabilirmi?

 

[karadami]

sayın karadamı herşeyi yaptım ama tek bir kod bile yok ofis2007 kullanıyorum sebep bu olabilirmi?

olmamasi lazim ama bilemiyorum. o zaman 2 tane userform ekleyin ve userform1 e bir commandbutton ekleyin. N.Ziya Hiçdurmaz'in mesajindaki kodlari commandbuttonun kodlarina yapistirin..

 

[hurkanpisirici]

teşekkür ederim sağolun.