Private Sub Form_Open(Cancel As Integer)
Dim sifre
sifre = InputBox("Parola",vbcritial,"Lütfen Yönetici Kodunu Giriniz.")
If sifre <> "123" Then 'buraya belirlediğin şifreyi yazarsın
MsgBox "Yetkisiz Kullanıcılar Bu Formu Açamaz", vbApplicationModal, "ÜZGÜNÜM"
Cancel = True
End If
End Sub


bir de böyle denermisin.
gerçeği her iki durumda da aynı çalışıyor problem ne?

---

sanırım sizin formunuzun başka bir yerinde başka bir sorun vardır.
kodda hata yok.