Merhaba

Private Sub Buton1_Click()
If Me.Buton1Label.Caption = "Düzenleme Açık" Then
    Me.Buton1Label.Caption = "Düzenleme Kapalı"
    
    'Me.Tahsilat_Makbuzu_Alt.Locked = True
Me.Sira_No.Locked = True
Me.Stok_No.Locked = True
Me.Arge_No.Locked = True
Me.Tanim.Locked = True
Me.Yer.Locked = True
Me.Paket.Locked = True
Me.Firma_Adi.Locked = True
Me.Aciklama.Locked = True
Me.TFS_ID.Locked = True
Me.Durum.Locked = True

 Me.Buton1Box.BackColor = vbRed
Me.Tanim.SetFocus
Else

       Me.Buton1Label.Caption = "Düzenleme Açık"
           'Me.Tahsilat_Makbuzu_Alt.Locked = False
    Me.Sira_No.Locked = False
Me.Stok_No.Locked = False
Me.Arge_No.Locked = False
Me.Tanim.Locked = False
Me.Yer.Locked = False
Me.Paket.Locked = False
Me.Firma_Adi.Locked = False
Me.Aciklama.Locked = False
Me.TFS_ID.Locked = False
Me.Durum.Locked = False

         Me.Buton1Box.BackColor = vbGreen
         Me.Tanim.SetFocus
         
    End If
    End Sub