'Şifreniz: serkan
Private Sub Form_Load()
If InputBox("şifreyi giriniz") <> "serkan" Then
MsgBox ("Şifreyi bilemediniz.Bilgiler üzerinde degişiklik yapamazsınız.....!")
Text1.Locked = True
End If
End Sub
____________________________________________________________
Yazan: Serkan KAYI
Okul: Burdur Teknik Lisesi lise son Bilgisayar/Yazılım
**************************************************************************************
Eğer sorun yaşarsanız aşağıda yazmış olduğum e-mai adresime sorunlarınızla ilgili soruları çözmeye çalışacağım... Bundan Sonra Daha değişik programlarla karşınızda olacağım desteklerinizi bekliyorum...
***************************************************************************************
E-mail:kayiserkan@yahoo.com