Command Button Şifre

[TKTurgut]

Arkadaşlar merhaba,
Userform da bir command button var bu butonun görevi tıklandığında exceli göstermesi ama bunun öncesinde bir şifre sormasını istiyorum eğer şifre doğru girilirse excel gösterilsin aksi taktirde userform görünsün. Bi türlü beceremedim bana yardımcı olacak arkadaşlara şimdiden çok teşekkür ediyorum.

 

[bedersu]

Merhaba ,
iki şekilde yapabilirsiniz.

Aşağıdaki şekilde yanlış şifre yazılınca kitap kapanır:

Private Sub CommandButton1_Click()

a = InputBox("Lütfen Şifreyi Giriniz!", "Şifreyi Girmezseniz Program Açılmaz")
If a = 123456 Then GoTo aç:
ActiveWorkbook.Close
aç:
MsgBox "Doğru Şifre"
End Sub

Aşağıdaki şekilde ise yanlış şifre yazılınca tekrar şifre ister:
Private Sub CommandButton2_Click()
yeniden:
a = InputBox("Lütfen Şifreyi Giriniz!", "Şifreyi Girmezseniz Program Açılmaz")
If a = 123456 Then GoTo aç:
GoTo yeniden:
aç:
MsgBox "Doğru Şifre"
End Sub

 

[baydeniro]

Sayın TKTurgut. Kendi dosyanızı ekler misiniz, bu güzel koddan bizler de yararlanalım.

 

[TKTurgut]

Merhaba ,
iki şekilde yapabilirsiniz.

Aşağıdaki şekilde yanlış şifre yazılınca kitap kapanır:

Private Sub CommandButton1_Click()

a = InputBox("Lütfen Şifreyi Giriniz!", "Şifreyi Girmezseniz Program Açılmaz")
If a = 123456 Then GoTo aç:
ActiveWorkbook.Close
aç:
MsgBox "Doğru Şifre"
End Sub

Aşağıdaki şekilde ise yanlış şifre yazılınca tekrar şifre ister:
Private Sub CommandButton2_Click()
yeniden:
a = InputBox("Lütfen Şifreyi Giriniz!", "Şifreyi Girmezseniz Program Açılmaz")
If a = 123456 Then GoTo aç:
GoTo yeniden:
aç:
MsgBox "Doğru Şifre"
End Sub

Çok teşekkür ederim sayın bedersu istediğim kesinlikle bu

 

[TKTurgut]

Sayın TKTurgut. Kendi dosyanızı ekler misiniz, bu güzel koddan bizler de yararlanalım.

Sayın serdarokan dosyanın boyutu çok büyük o yüzden ekleyemiyorum.