Kod:
sub şifre()
50sifrem=inputbox("litfen şifreyi giriniz"'"şifre")
if slifrem="123456"then
sheets)"mdb").select
Range(a1").select
exit sub
else
msgbox "yanlış şifre girdiniz.....!"
end if
yenisifre=msgbox("yeniden denemek istermisniz....!")
birede bu kodu denerseniz bir önceki kodu denedinizmi.