şöyle bişi yapabilirsiniz;
Dim sifre
sifre = InputBox(vbcritial, "LÜTFEN YÖNETİCİ KODUNUZU GİRİNİZ")
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
tabi bu kodları formun açıldığında olay yordamına yazacaksınız.
saygılar.
Son Düzenleme: 30/10/2008, 00:36, Düzenleyen: cuneyt.