Written by: How To

Πως να ξεκλειδώσετε ένα αρχείο Excel χωρίς κωδικό

Πως να ξεκλειδώσετε ένα αρχείο Excel χωρίς κωδικό

Πολλές φορές μας έχει τύχει να θέλουμε να επεξεργαστούμε ένα αρχείο excel το οποίο είναι κλειδωμένο και δεν γνωρίζουμε τον κωδικό. Παρακάτω θα σας δείξουμε βήμα προς βήμα τι θα πρέπει να κάνουμε προκειμένου να το ξεκλειδώσουμε.

1. Ανοίγουμε το αρχείο του excel που θέλουμε να ξεκλειδώσουμε.

Πως να ξεκλειδώσετε ένα αρχείο Excel χωρίς κωδικό

2. Πηγαίνουμε στο φύλλο εργασίας που θέλουμε.

3. Πατάμε τα πλήκτρα Alt + F11 για να ανοίξουμε την Visual Basic.

4. Πατάμε F7 για να βγει ο Code Editor.

5. Αντιγράφουμε τον παρακάτω κώδικα:

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim 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 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect 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 If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

​6. Πατάμε F5 προκειμένου να εκτελεστεί ο κώδικας. 

7. Το φύλλο εργασίας έχει ξεκλειδώσει.

Αν βρήκατε το άρθρο μας χρήσιμο, θέλετε να μείνετε ενημερωμένοι για όλα τα νέα στο τομέα της τεχνολογίας καθώς και σε χρηστικά άρθρα, βοηθήστε μας κάνοντας like στην σελίδα μας στο Facebook πατώντας εδώ

(Visited 8.132 times, 1 visits today)
Ετικέτες: Last modified: 01/10/2019