If you can open and view the protected workbook a simple work-around is to copy and paste the data into a NEW workbook. The protection rights are NOT carried with the data.
So for each worksheet in the protected workbook;
1) Select all data on the worksheet (mouse click on the top left cell above the row number indicators)
2) Edit "copy"
3) Open a NEW workbook
4) Edit "paste" the copied data into the new workbook
5) Save the new workbook
If the protected workbook has mutliple sheets just copy/paste each into the new workbook. You do not have to create a new workbook for each worksheet (unless you want to).
If a worksheet is too large to copy all at once then you'll have to manually select rows and copy/paste them into the new workbook until all of the data has been copied.
Hope this helps.
Constance
a pass word protected excel sheet is able to be cut / copied to a new work sheet by a third person and doing so the protection is lost. to prevent this the ptotected excel sheet should not be able to be cut / copy any person who do not know the pass word.
Seems to me that a person shouldn't be able to get access where they can copy & paste the workbook, if they don't already have the password to open the workbook?
we came across this issue when someone left our company. we could not open the file since it prompted for a password to open the file. we ended up purchasing a program called Excel Recovery Pro. Works great, of course it'll cost you.
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!
Discuss This Question: 7 Replies
Sub PasswordBreaker()
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