Private Sub Form_Open(Cancel As Integer)
Me.AlanADI_1.Locked = True
Me.AlanADI_2.Locked = True
End Sub
Bir buton oluştur. Ben genelde buton ismini Duzenleme koyuyorum ona göre yazacağım.
Bu buton düzenleme yapılacağı zaman basıldığında değişim imkanı verecek, değişiklik yapıldıktan sonra tekrar basıldığında değişiklik yapma durumunu engelleyecektir.
Private Sub Duzenleme_Click()
If Me.Duzenleme.Caption = "Düzenleme Açık" Then
Me.Duzenleme.Caption = "Düzenleme Kapalı"
Me.Duzenleme.ForeColor = vbBlack
Me.AlanADI_1.Locked = True
Me.AlanADI_2.Locked = True
Else
Me.Duzenleme.Caption = "Düzenleme Açık"
Me.Duzenleme.ForeColor = vbBlue
Me.AlanADI_1.Locked = False
Me.AlanADI_2.Locked = False
End If
End Sub