Μεταπήδηση στο περιεχόμενο
  • Εγγραφείτε
Σύνδεση  
kyros

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

Recommended Posts

post-48-0-23169300-1538845082_thumb.png

 

Αν σας έχει τύχει να έχετε ένα αρχείο 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 και επεξεργαστειτε το κανονικά.

Επεξεργάστηκε από kyros

Κοινή χρήση αυτής της δημοσίευσης


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

Κοινή χρήση αυτής της δημοσίευσης


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.

Guest
Απαντήστε σε αυτό το θέμα...

×   Επικολλήστε ως πλούσιο κείμενο (με μορφοποίηση).   Επικολλήστε ως απλό κείμενο

  Only 75 emoji are allowed.

×   Ο σύνδεσμός σας έχει ενσωματωθεί αυτόματα.   Εμφάνιση ως σύνδεσμος

×   Το προηγούμενο περιεχόμενό σας έχει αποκατασταθεί.   Καθαρισμός επεξεργαστή

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

Σύνδεση  

×
×
  • Δημιουργία νέας...

Σημαντική πληροφορία

Η ιστοσελίδα Lifehack.gr χρησιμοποιεί cookies. Προχωρώντας στο περιεχόμενο, συναινείτε με την αποδοχή τους. Περισσότερα: Πολιτική Απορρήτου