Dim sifresifre = InputBox(" Parola Gerekli!", "Uyarı") If sifre = 123 Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 ElseMsgBox "Yanlış Şifre", , "Uyarı!"