Μια μακροεντολή για την προστασία των φύλλων εργασίας στο βιβλίο εργασίας Close-dummies

Μερικές φορές πρέπει να στείλετε το βιβλίο εργασίας του Excel στον κόσμο με συγκεκριμένα φύλλα εργασίας προστατευμένα. Αν διαπιστώσετε ότι προστατεύετε συνεχώς και αποπροστατεύετε φύλλα πριν διανείμετε τα βιβλία εργασίας σας, η μακροεντολή εδώ μπορεί να σας βοηθήσει.

Πώς λειτουργεί η μακροεντολή

Ο κώδικας ενεργοποιείται από το συμβάν "BeforeClose" του βιβλίου εργασίας. Όταν προσπαθείτε να κλείσετε το βιβλίο εργασίας, αυτό το συμβάν πυροδοτεί, εκτελώντας τον κώδικα μέσα. Η μακροεντολή προστατεύει αυτόματα το καθορισμένο φύλλο με τον καθορισμένο κωδικό πρόσβασης και στη συνέχεια αποθηκεύει το βιβλίο εργασίας:

Private Sub Workbook_BeforeClose (Ακύρωση ως Boolean) 'Βήμα 1: Προστατέψτε το φύλλο με ένα φύλλο κωδικών πρόσβασης ("Φύλλο1"). Προστατέψτε τον κωδικό πρόσβασης: = "ΚΟΚΚΙΝΟ" Βήμα 2: Αποθηκεύστε το βιβλίο εργασίας ActiveWorkbook. Save End Sub

Στο βήμα 1, καθορίζετε ρητά σε ποιο φύλλο θέλετε να προστατεύσετε - Φύλλο1, στην περίπτωση αυτή. Παρέχετε επίσης το επιχείρημα κωδικού πρόσβασης, Password: = "RED", το οποίο καθορίζει τον κωδικό πρόσβασης που απαιτείται για την κατάργηση της προστασίας.

Αυτό το όρισμα κωδικού πρόσβασης είναι προαιρετικό. Αν το παραλείψετε, το φύλλο θα εξακολουθεί να είναι -προστατευμένο, αλλά δεν θα χρειαστείτε κωδικό πρόσβασης για να τον αποπροσανατολίσετε.

Οι κωδικοί πρόσβασης του Excel είναι ευαίσθητοι σε πεζά-κεφαλαία, οπότε θα θέλατε να δώσετε προσοχή στον ακριβή κωδικό πρόσβασης και τη χρήση κεφαλαίων που χρησιμοποιείτε.

Το βήμα 2 λέει στο Excel να αποθηκεύσει το βιβλίο εργασίας. Εάν δεν αποθηκεύσετε το βιβλίο εργασίας, η προστασία φύλλου που μόλις εφαρμόσατε δεν θα ισχύσει την επόμενη φορά που θα ανοίξει το βιβλίο εργασίας.

Τρόπος χρήσης της μακροεντολής

Για να εφαρμόσετε αυτήν τη μακροεντολή, πρέπει να αντιγράψετε και να την επικολλήσετε στο παράθυρο κώδικα συμβάντος Workbook_BeforeClose. Η τοποθέτηση της μακροεντολής εδώ επιτρέπει να εκτελείται κάθε φορά που προσπαθείτε να κλείσετε το βιβλίο εργασίας:

1. Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας Alt + F11.

2. Στο παράθυρο του έργου, βρείτε το όνομα του έργου / του βιβλίου εργασίας σας και κάντε κλικ στο σύμβολο συν δίπλα του για να δείτε όλα τα φύλλα.

3. Κάντε κλικ στο ThisWorkbook.

4. Στην αναπτυσσόμενη λίστα Συμβάντα, επιλέξτε το γεγονός BeforeClose.

5. Πληκτρολογήστε ή επικολλήστε τον κώδικα στη νεοδημιουργηθείσα ενότητα, τροποποιώντας το όνομα του φύλλου (αν είναι απαραίτητο) και τον κωδικό πρόσβασης.

   

   Καταχωρίστε τον κωδικό σας στο συμβάν βιβλίου εργασίας πριν από το κλείσιμο.

Σημειώστε ότι μπορείτε να προστατεύσετε επιπλέον φύλλα προσθέτοντας δηλώσεις προσθήκης πριν από το Activeworkbook. Αποθήκευση δήλωσης.