Oktay hocanın İpucu : Kontrol kilitleme ( Tag ) linkindeki kontrol kilitleme örneği daha kullanışlı. Bence onu dene.

Tüm metin kutularını seçip özelliklerden "İm" özelliğine "A" yazacaksın, formun açıldığında olayına

Private Sub Form_Open(Cancel As Integer)

Dim ctrl As Control

For Each ctrl In Me.Controls

    If ctrl.Tag = "A" Then

        ctrl.Enabled = False

    End If

    Next

End Sub

Bahsettiğin butonun tıklandığında olayına da

Private Sub Form_Open(Cancel As Integer)

Dim ctrl As Control

For Each ctrl In Me.Controls

    If ctrl.Tag = "A" Then

        ctrl.Enabled = True

    End If

    Next

SucNo = DMax("SucNo", "Tablo") + 1

End Sub