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" Then 'Buraya yazacağınız kelime şifreniz olacaktır.
 
 DoCmd.OpenForm "KONTROL_İZLEME_FORMU" 'Açılacak formun adını belirleyiniz.
 
 Else
 MsgBox "Hatalı Şifre Girdiniz."

 End If
Exit_genel_Click:
 Exit Sub

Err_genel_Click:
 MsgBox Err.Description
 Resume Exit_genel_Click
 
End Sub