Κωδικός VBA για να ξεκλειδώσετε ένα κλειδωμένο φύλλο Excel: 4 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:37

Εάν έχετε ξεχάσει ποτέ έναν κωδικό πρόσβασης για ένα από τα φύλλα εργασίας excel, γνωρίζετε πόσο απογοητευτικό μπορεί να είναι αυτό. Ο κώδικας που χρησιμοποιείται σε αυτήν την οδηγία είναι ένας από τους πιο απλούς που έχω βρει. Θα δημιουργήσει έναν χρήσιμο κωδικό που θα ξεκλειδώσει το προστατευμένο φύλλο σας. Δεν μπορώ να πιστέψω τον κωδικό καθώς τον βρήκα απλώς σε μια στιγμή ανάγκης (και δεν μπορώ να βρω πού βρίσκεται πλέον ο ιστότοπος)… έτσι δεν θα είμαι πολύ βοηθός αν δεν λειτουργεί για εσάς, αλλά έχω είχε επιτυχία με αυτό και σκέφτηκα να μοιραστώ.

Βήμα 1: Ανοίξτε το VBA

Ανοίξτε το φύλλο εργασίας στο οποίο ξεχνάτε τον κωδικό πρόσβασής σας. Χρησιμοποιήστε το Alt+F11 για να εισαγάγετε τον επεξεργαστή μακροεντολών. Μόλις στο VBA κάντε διπλό κλικ στο φύλλο που πρέπει να ξεκλειδώσετε από τη λίστα μενού στα αριστερά. Αυτό θα ανοίξει τη σελίδα γενικών δηλώσεων για το φύλλο.

Βήμα 2: Κόψτε και επικολλήστε τον διακόπτη κωδικού

Εισαγάγετε τον παρακάτω κώδικα στη σελίδα των γενικών δηλώσεων που έχετε ανοίξει. Δεν θα πρέπει να αλλάξετε τίποτα, όνομα φύλλου κλπ… Απλώς κόψτε και επικολλήστε._ Sub PasswordBreaker () 'Σπάει την προστασία του κωδικού φύλλου εργασίας. Dim i As Integer, j Ως Integer, k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 έως 66: Για j = 65 έως 66: Για k = 65 έως 66 Για l = 65 έως 66: Για m = 65 έως 66: Για i1 = 65 έως 66 Για i2 = 65 έως 66: Για i3 = 65 έως 66: Για i4 = 65 Προς 66 Για i5 = 65 έως 66: Για i6 = 65 έως 66: Για n = 32 έως 126 ActiveSheet. Προστασία Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = False then MsgBox "One usable password is" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Exit Sub End Αν Επόμενο: Επόμενο: Επόμενο: Επόμενο: Επόμενο: Επόμενο Επόμενο: Επόμενο: Επόμενο: Επόμενο: Επόμενο: Επόμενο Τέλος Υπο _

Βήμα 3: Εκτελέστε τη μακροεντολή

Μόλις προστεθεί ο κώδικας εκτελέστε τη μακροεντολή επιλέγοντας Εκτέλεση από τη γραμμή καρτέλας μενού στο επάνω μέρος της οθόνης του προγράμματος επεξεργασίας VBA ή απλώς πατήστε F5

Βήμα 4: Χρησιμοποιήστε τον κωδικό που δημιουργήθηκε

Η μακροεντολή θα σας επιστρέψει στο φύλλο εργασίας που θέλετε να καταργήσετε την προστασία. Θα εμφανιστεί ένα πλαίσιο στυλ ειδοποίησης με έναν κωδικό που μπορεί να χρησιμοποιηθεί. Στην καρτέλα μενού "Επισκόπηση", κάντε κλικ στο στοιχείο Προστασία φύλλου. Εισαγάγετε τον κωδικό που δημιουργήθηκε ως κωδικό πρόσβασης και τελειώσατε. Το φύλλο σας πρέπει να ξεκλειδωθεί! Θα πρέπει να χρησιμοποιήσετε αυτήν τη δύναμη με σύνεση και υπευθυνότητα μόνο για να ξεκλειδώσετε τα δικά σας φύλλα εργασίας.