Private Sub Form_Load()
If InputBox("şifreyi giriniz") "scorpion" Then
MsgBox ("Şifreyi bilemediniz.Bilgiler uzerinde degişiklik yapamazsınız.....!")
end
End If
End Sub
N0T = Kırmızı Renk İle Yazdığım Yer Formunuzun Şifresidir.Değiştirip Kendi Şifrenizi Yazabilirsiniz.Boylece Formun Şifresi Kırmızı Yere Yazdığımız Şifre Olur
__________________