'şifre umutyavuz Private Sub Form_Load() If InputBox("şifreyi giriniz") <> "umutyavuz" Then MsgBox ("şifreyi bilemediniz.bilgiler üzerinde degişiklik yapamazsınız.") Text1.Locked = True End If End Sub