Πώς να προστατεύσετε αυτόματα όλα τα φύλλα εργασίας κατά το κλείσιμο του βιβλίου εργασίας του Excel;

Κανονικά, μπορείτε να προστατεύσετε με μη αυτόματο τρόπο ένα φύλλο εργασίας ή ολόκληρο το βιβλίο εργασίας με κωδικό πρόσβασης με τη δυνατότητα Protect Sheet ή Protect Workbook στο Excel. Αλλά αν θέλετε να προστατεύσετε αυτόματα όλα τα φύλλα εργασίας με κωδικό πρόσβασης κατά το κλείσιμο του βιβλίου εργασίας, τι μπορείτε να κάνετε; Αυτό το άρθρο θα σας δείξει μια μέθοδο VBA για να το επιτύχετε.

Προστατέψτε όλα τα φύλλα εργασίας κατά το κλείσιμο του βιβλίου εργασίας του Excel με κώδικα VBA

Προστατέψτε όλα τα φύλλα εργασίας κατά το κλείσιμο του βιβλίου εργασίας του Excel με κώδικα VBA

Για να προστατεύσετε αυτόματα όλα τα φύλλα εργασίας κατά το κλείσιμο του βιβλίου εργασίας, εφαρμόστε τον ακόλουθο κώδικα VBA.

1. Στο βιβλίο εργασίας που θέλετε να προστατεύσετε όλα τα φύλλα εργασίας κατά το κλείσιμο του αρχείου, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ στο Αυτό το βιβλίο εργασίας στο αριστερό παράθυρο και, στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Προστατέψτε όλα τα φύλλα εργασίας κατά το κλείσιμο του βιβλίου εργασίας

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Συμβουλές:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Στη συνέχεια, πατήστε το άλλος + Q για να κλείσετε το παράθυρο της Microsoft Visual Basic for Applications.

Μετά το παραπάνω βήμα, όλα τα φύλλα εργασίας ή το καθορισμένο φύλλο εργασίας θα προστατεύονται αυτόματα κατά το κλείσιμο του βιβλίου εργασίας.

Notes:

Σχετικά άρθρα:

• Πώς να χρησιμοποιήσετε την αναπτυσσόμενη λίστα σε ένα προστατευμένο φύλλο εργασίας στο Excel;
• Πώς να κλειδώσετε συγκεκριμένα κελιά χωρίς να προστατεύσετε ολόκληρο το φύλλο εργασίας στο Excel;
• Πώς να αποκρύψετε τον τύπο αλλά να εμφανίσετε το αποτέλεσμα χωρίς να προστατεύσετε το φύλλο εργασίας στο Excel;