Sn mustafa_atr'nin işaret ettiği konuya ek olarak;

Formunuza Komut0 adında bir düğme ekleyerek tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Private Sub Komut0_Click()

On Error GoTo Err_Komut0_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= "accesstr.net" Then 'Buraya yazacağınız kelime şifreniz olacaktır.

    

    DoCmd.OpenForm "Açılacak Form Adı" 'Açılacak formun adını belirleyiniz.

  

  Else

    MsgBox "Hatalı Şifre Girdiniz."



  End If

Exit_Komut0_Click:

    Exit Sub



Err_Komut0_Click:

    MsgBox Err.Description

    Resume Exit_Komut0_Click

    

End Sub

deneyip bilgi veriniz.