Hocalarım çözdüm. yine bu formda örneklerden yararlanarak gerekli düzenlemeleri yaptım. aşağıda yazılan kodu paylaşıyorum.

iki adet buton ekledim. kilit aç ve kilitle diye.

KİLİT AÇ:

Private Sub Komut126_Click()
Dim sifre, DogruSifre As Variant
sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)
DogruSifre = "123456"
Select Case Len(sifre)
Case 0
Exit Sub
Case Else
If sifre = DogruSifre Then
Me.Branş.Enabled = True
Else
MsgBox ("hatalı şifre yazdınız")
Exit Sub
End If
End Select
End Sub





KİLİTLE:

Me.Branş.Enabled = False