[kapetang]

Καλησπέρα

Αία, δες το συνημμένο.

1)Βελτίωσα λίγο τον κώδικα κλειδώματος των φύλλων.

2) Πρόσθεσα κώδικα στο συμβάν BeforeClose, ώστε το βιβλίο να αποθηκεύεται με προστατευμένα φύλλα.

Κατά την προσαρμογή του κώδικα στη γραμμή:

Worksheets("Sheet1").cmdLockUnlock.Caption = "UnLock"

της διαδικασίας BeforeClose, τα Sheet1 και cmdLockUnlock,

θα πρέπει να αλλάξουν με το όνομα του φύλλου και του κουμπιού αντίστοιχα.

Φιλικά/Γιώργος