16-06-18, 09:46
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλημέρα σε όλους.
Γιάννη δοκίμασε Κώδικας: Private Sub Unlock_Click()
Me.Refresh
If Me.UnLock.Caption = "Ενεργοποίηση επεξεργασίας" Then
Me.UnLock.Caption = "Απενεργοποίηση επεξεργασίας"
Else
Me.UnLock.Caption = "Ενεργοποίηση επεξεργασίας"
End If
Me.AllowAdditions = Not Me.AllowAdditions
Me.AllowDeletions = Not Me.AllowDeletions
Me.AllowEdits = Not Me.AllowEdits
End Sub
|