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.
Son Düzenleme: 12/11/2009, 16:19, Düzenleyen: cuneyt.