Kod:
Form.AllowAdditions = False 'burada ekleme yasaklandı
Form.AllowDeletions = False 'burada silme yasaklandı
Form.AllowEdits = False 'burada düzenleme yasaklandıKod:
Dim cevap As String 'cevap değişkeni tanımladık
Dim sayi As Integer ' sayi değişkeni tanımladık
1 'buraya basit bir döngü başlangıcı koydum
If sayi = 3 Then MsgBox "3 deneme yaptınız": Exit Sub 'eğer sayi değeri 3 olursa kodları bitir ve uyar
sayi = sayi + 1 ' sayi değerine 1 ekle
cevap = InputBox("Parola nedir?", vbOKOnly, "DEMİRAL") 'cevap değişkenini belirlemek için parolayı sor, girilen değeri değişkene ata
If cevap = "demiral" Then 'eğer cevap değişkeni "demiral" ise
Form.AllowAdditions = True 'ekleme yasağını kaldır
Form.AllowDeletions = True 'silme yasağını kaldır
Form.AllowEdits = True 'düzenleme yasağını kaldır
MsgBox "Kayıt kilidi açıldı" 'bilgi ver
Else 'değilse
MsgBox "Parola yanlış, Tekrar deneyin" 'uyar
GoTo 1 'döngü için 1 nolu satıra git
End If 'if olayını bitirİnceleyin. Anlayacaksınız. Açıklamalarını da yazdım. Ben yine de bir örnek gönderiyorum.
