Μερικές φορές χρειάζεται να στείλετε το βιβλίο εργασίας του Excel στον κόσμο με προστατευμένα συγκεκριμένα φύλλα εργασίας. Αν διαπιστώσετε ότι προστατεύετε και καταργείτε συνεχώς τα φύλλα πριν διανείμετε τα βιβλία εργασίας σας, η μακροεντολή εδώ μπορεί να σας βοηθήσει.
Πώς λειτουργεί η μακροεντολή
Ο κώδικας ενεργοποιείται από το συμβάν BeforeClose του βιβλίου εργασίας. Όταν προσπαθείτε να κλείσετε το βιβλίο εργασίας, αυτό το συμβάν ενεργοποιείται, εκτελώντας τον κώδικα μέσα. Η μακροεντολή προστατεύει αυτόματα το καθορισμένο φύλλο με τον δεδομένο κωδικό πρόσβασης και, στη συνέχεια, αποθηκεύει το βιβλίο εργασίας:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
«Βήμα 1: Προστατέψτε το φύλλο με κωδικό πρόσβασης
Φύλλα("Φύλλο1").Προστασία κωδικού πρόσβασης:="ΚΟΚΚΙΝΟ"
«Βήμα 2: Αποθηκεύστε το βιβλίο εργασίας
ActiveWorkbook.Save
End Sub
Στο Βήμα 1, προσδιορίζετε ρητά ποιο φύλλο να προστατεύσετε — Φύλλο1, σε αυτήν την περίπτωση. Παρέχετε επίσης το όρισμα κωδικού πρόσβασης, Password:=”RED”, το οποίο ορίζει τον κωδικό πρόσβασης που απαιτείται για την αφαίρεση της προστασίας.
Αυτό το όρισμα κωδικού πρόσβασης είναι προαιρετικό. Εάν το παραλείψετε, το φύλλο θα εξακολουθεί να προστατεύεται, αλλά δεν θα χρειαστείτε κωδικό πρόσβασης για να το καταργήσετε.
Οι κωδικοί πρόσβασης του Excel κάνουν διάκριση πεζών-κεφαλαίων, επομένως θα πρέπει να δώσετε προσοχή στον ακριβή κωδικό πρόσβασης και τη χρήση κεφαλαίων που χρησιμοποιείτε.
Το βήμα 2 λέει στο Excel να αποθηκεύσει το βιβλίο εργασίας. Εάν δεν αποθηκεύσετε το βιβλίο εργασίας, η προστασία φύλλου που μόλις εφαρμόσατε δεν θα τεθεί σε ισχύ την επόμενη φορά που θα ανοίξει το βιβλίο εργασίας.
Πώς να χρησιμοποιήσετε τη μακροεντολή
Για να εφαρμόσετε αυτήν τη μακροεντολή, πρέπει να την αντιγράψετε και να την επικολλήσετε στο παράθυρο κώδικα συμβάντος Workbook_BeforeClose. Η τοποθέτηση της μακροεντολής εδώ της επιτρέπει να εκτελείται κάθε φορά που προσπαθείτε να κλείσετε το βιβλίο εργασίας:
Ενεργοποιήστε το Visual Basic Editor πατώντας Alt+F11.
Στο παράθυρο του έργου, βρείτε το όνομα του έργου/του βιβλίου εργασίας σας και κάντε κλικ στο σύμβολο συν δίπλα του για να δείτε όλα τα φύλλα.
Κάντε κλικ στο This Workbook.
Στην αναπτυσσόμενη λίστα Συμβάν, επιλέξτε το συμβάν BeforeClose.
Πληκτρολογήστε ή επικολλήστε τον κωδικό στη μονάδα που δημιουργήθηκε πρόσφατα, τροποποιώντας το όνομα του φύλλου (αν χρειάζεται) και τον κωδικό πρόσβασης.
Εισαγάγετε τον κωδικό σας στο συμβάν Bookbook BeforeClose.
Σημειώστε ότι μπορείτε να προστατεύσετε πρόσθετα φύλλα προσθέτοντας δηλώσεις προσθήκης πριν από τη δήλωση Activeworkbook.Save.