[vb]Private Sub genel_Click()
On Error GoTo Err_genel_Click
Dim sifre As String
sifre= InputBox("Bu forma giriş yapabilmek " & Chr(10) & Chr(10) & "için lütfen şifreyi giriniz...", "Şifreli Giriş Alanı")
If sifre= "" Or sifre= Empty Then
MsgBox "Şifre alanını boş bıraktınız." & vbCrLf &
"Şifrenizi girmediğiniz sürece bu formu göremezsiniz." & vbCrLf &
"Form içeriğini görebilmek için lütfen şifrenizi giriniz...", , "Boş Alan Uyarısı"
Exit Sub
End If
If sifre= "12345" T
|