VB Şifreli TextBox

[mayhemious]

Formun üzerine text1 çiniziyoruz daha sonra form load'a kodu yapistiriyoruz

Kod: Tümünü seç

Private Sub Form_Load()
'sifreniz:  mayhem

If InputBox("sifreyi giriniz") <> "mayhem" Then
MsgBox ("sifreyi bilemediniz.Bilgiler üzerinde degisiklik yapamazsiniz.....!")
Text1.Locked = True
End If

End Sub

mayhem sifresi inputbox'a girilmedigi sürece text üzerinde degisiklik yapilmiyor