Jump to content
Sign in to follow this  

Κατάργηση της προστασίας φύλλου στο Excel / Unlocking a locked Excel sheet

Recommended Posts



Αν σας έχει τύχει να έχετε ένα αρχείο excel στο όποιο τα φύλλα έχουν προστασία επεξεργασίας τότε ρίξτε μια ματιά παρακάτω.

Πάρτε ένα αντίγραφο του αρχείου σας και αλλάξτε του την κατάληξη από .xlsx ή .xlsm σε .zip

Aνοίξτε το αρχείο .zip με ένα πρόγραμμα unzip

Στα περιεχόμενα του φακέλου βρείτε τον φάκελο xl > worksheets

Εκεί θα υπάρχουν διάφορα αρχεία .xml (θα είναι τόσα όσα και τα φύλλα του excel)

Ανοίξτε το κάθε ένα .xml με το Notepad και κάντε αναζήτηση (find) για το tag που ξεκινά σαν:

<sheetprotection algorithmName="SHA-512"



<sheetprotection algorithmname="SHA-512" hashvalue="RHz9sWkLjs9Dr/0O/YSCetWP6bXZ46kiYpp5cQePROSuz57I0BC4mZb4riDW/pQonji0MVg3At0zgDqDLyh8Gw==" saltvalue="JyKgo6blT6gWFSVlOezDkg==" spincount="100000" sheet="1" objects="1" scenarios="1"/>



<sheetprotection algorithmName="SHA-512" hashValue="ALciNBSIqRcjDiFbCuyWoGk4iOcC/ZRKnEjwEVi1skb6G5JbHhp+QVZ9+rlPVbGILOS7lYiCvJmR4Q7IuSphXA==" saltValue="8OVKXrG0VacLOLVztUpEYw==" spinCount="100000" sheet="1" objects="1" scenarios="1" selectLockedCells="1"/>

Αφού το βρείτε, σβήστε το και κάντε save το .xml. (σημείωση αν δεν είναι στο 1ο ψάξτε στο 2ο κ.ο.κ)

Κάντε το ιδιο και για τα υπόλοιπα (sheet2.xml, sheet3.xml κλπ)

Όταν τελειώστε βάλτε όλα τα αρχεία στο zip φάκελο και αλλάξτε την κατάληξη από .zip σε .xlsx ή .xlsm (αναλόγως τι ήταν αρχικά)

Ανοίξτε το excel και επεξεργαστειτε το κανονικά.

Edited by kyros

Share this post

Link to post
Share on other sites

Να συμπληρώσω ότι αν δεν λειτουργήσει ο παραπάνω τρόπος μπορείτε να δοκιμάσετε τα εξής:


1. Ανοίγουμε το αρχείο του 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. Το φύλλο εργασίας έχει ξεκλειδώσει.

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Create New...

Important Information

This page uses cookies to confirm that you will have the best user experience. More Privacy Policy