Πώς να δημιουργήσετε προστασία με κωδικό πρόσβασης χρησιμοποιώντας μακροεντολή
Θέλετε να διασφαλίσετε ότι όλα τα φύλλα εργασίας σε ένα φάκελο της επιλογής σας προστατεύονται με κωδικό πρόσβασης χρησιμοποιώντας μακροεντολή; Αυτό μπορεί να είναι χρήσιμο εάν αντιμετωπίζετε πάρα πολλά προβλήματα μεμονωμένα φύλλα εργασίας ή εάν θέλετε να προστατεύσετε αυτόματα όλα τα βιβλία εργασίας σε έναν κατάλογο. Χρησιμοποιήστε την ακόλουθη μακροεντολή για να εκχωρήσετε τον κωδικό πρόσβασης "προστασία" σε όλα τα φύλλα εργασίας στον ενεργό φάκελο:
Sub AllSchuetzen ()
Dim Sheet As Worksheet
Για κάθε φύλλο στο ActiveWorkbook.Worksheets
Blatt.Protect ("προστασία")
Επόμενο φύλλο
Τέλος υπο
Αντί για το κείμενο "Schutz", χρησιμοποιήστε τον κωδικό πρόσβασης της επιλογής σας. Φυσικά, αυτός ο κωδικός προγράμματος έχει νόημα μόνο αν τον εισαγάγετε έξω από το βιβλίο εργασίας στο οποίο δημιουργείτε την προστασία. Διαφορετικά, κάθε χρήστης μπορεί να διαβάσει τον κωδικό πρόσβασης στο κείμενο προέλευσης VBA.
Για να μπορέσετε να αλλάξετε κάτι στα προστατευμένα φύλλα εργασίας, πρέπει να καταργήσετε την προστασία. Μπορείτε να το κάνετε αυτό χειροκίνητα με την εντολή EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Αυτή η εντολή είναι διαθέσιμη μόνο εάν το τρέχον φύλλο εργασίας είναι πραγματικά προστατευμένο.
Εάν θέλετε να εκδώσετε ξανά όλα τα προστατευμένα φύλλα εργασίας χρησιμοποιώντας μακροεντολή, χρησιμοποιήστε τον ακόλουθο κώδικα προγράμματος:
Sub AllExposure ()
Ελαφρύ φύλλο ως φύλλο εργασίας
Για κάθε φύλλο στο ActiveWorkbook.Worksheets
Blatt.Unprotect ("προστασία")
Επόμενο φύλλο
Τέλος υπο
