10-04-12, 07:55
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα
Αν παρ' όλα αυτά θέλεις οπωσδήποτε VBA
αντέγραψε τον κώδικα
Option Explicit
Sub proSheet()
ActiveSheet.protect Password:="123"
MsgBox ("sheet protected"), vbInformation
End Sub
σε ένα Modul και αντιστοίχησε τον σε ένα κουμπί.Μπορείς να αλλάξεις το password
Tο ξεκλείδωμα με τον ίδιο τρόπο δεν το θεωρώ καλό να γίνει
όποιος πατήσει κουμπί για ξεκλείδωμα ξεκλειδώνει το φύλλο χωρίς χρήση password
δοκίμασε το βάζοντας
Sub unproSheet()
ActiveSheet.Unprotect Password:="123"
MsgBox ("sheet Unprotected"), vbInformation
End Sub
σε ένα άλλο κουμπί
|