Sn. Bu kodu Butonun Tıklandığında Olayına yazıyorsunuz.

sifre = "1234"

ssifre = InputBox("Şifreyi Girin")

If ssifre = sifre Then DoCmd.OpenForm "AÇILACAK FORM ADI" Else MsgBox " ŞİFREYİ YANLIŞ GİRDİNİZ"

"AÇILACAK FORM ADI" kısmınada Şifreli Olarak Açılak Formun Adını Yazıyorsunuz.
Saygılar.