protection

%3CLINGO-SUB%20id%3D%22lingo-sub-1527353%22%20slang%3D%22en-US%22%3Eprotection%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1527353%22%20slang%3D%22en-US%22%3E%3CP%3EI%20would%20like%20to%20un-protect%20cells%20in%20excel%2C%20but%20have%20no%20access%20to%20the%20password%20used%20to%20protect%2C%20as%20it%20was%20done%20many%20years%20ago.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1527353%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Highlighted
Occasional Visitor

I would like to un-protect cells in excel, but have no access to the password used to protect, as it was done many years ago.

1 Reply
Highlighted
For this we create a macro. To do this, call the development environment with the key combination ALT + F11 and insert a new module.

Now paste the following code:
Sub Remove_sheet_protection ()
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 n = 65 To 66
For o = 65 To 66
For p = 65 To 66
For q = 65 To 66
For r = 65 To 66
For s = 65 To 66
For t = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _
Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)

Next t
Next s
Next r
Next q
Next p
Next o
Next n
Next m
Next l
Next k
Next j
Next i
MsgBox " The Protection sheet has been removed "
End Sub

Now run the macro with the F5 key. A message appears in a few seconds that the blade guard has been removed successfully.

Legal notice: If it is not your own worksheet and it is a matter of legal ownership then this code may not be used. Any use of this code is at your own risk.

I would be happy to find out if I could help.

Nikolino
I know I don't know anything (Socrates)