On Error GoTo Err_Komut10_Click
 
Dim sifre
sifre = InputBox("Parolayı yazınız", " ")
 
If sifre = 123 Then '123 yerine şifre belirleyebilirsiniz
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Yanlış Şifre"
End If
 
 
Exit_Komut10_Click:
    Exit Sub
 
Err_Komut10_Click:
    MsgBox Err.Description
    Resume Exit_Komut10_Click