Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
UnProtecting Many Worksheets in One Workbook
Hello,
I am currently working to update some excel files that had password protection on each worksheet from a former employee. I have obtained some generic code to unprotect the file, however, I cannot get it to perform on every worksheet in my workbook. I have many files to do and each file has many worksheets. Can anyone please help me make this code loop through each worksheet? Thanks for your time, Sub PasswordBreaker() Dim WS_Count As Integer WS_Count = ActiveWorkbook.Worksheets.Count Dim B As Integer Dim ws As Worksheet For B = 1 To WS_Count Set ws = ActiveWorkbook.Worksheets(B) ws.Activate 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) Next B End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
UnProtecting Many Worksheets in One Workbook
Toss this version and get a newer version from J.E. McGimpsey's site:
http://mcgimpsey.com/excel/removepwords.html Jordan wrote: Hello, I am currently working to update some excel files that had password protection on each worksheet from a former employee. I have obtained some generic code to unprotect the file, however, I cannot get it to perform on every worksheet in my workbook. I have many files to do and each file has many worksheets. Can anyone please help me make this code loop through each worksheet? Thanks for your time, Sub PasswordBreaker() Dim WS_Count As Integer WS_Count = ActiveWorkbook.Worksheets.Count Dim B As Integer Dim ws As Worksheet For B = 1 To WS_Count Set ws = ActiveWorkbook.Worksheets(B) ws.Activate 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) Next B End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
UnProtecting Many Worksheets in One Workbook
Dim sheet As Worksheet
For Each sheet In ThisWorkbook.Sheets sheet.Unprotect Next -- Gary "Jordan" wrote in message oups.com... Hello, I am currently working to update some excel files that had password protection on each worksheet from a former employee. I have obtained some generic code to unprotect the file, however, I cannot get it to perform on every worksheet in my workbook. I have many files to do and each file has many worksheets. Can anyone please help me make this code loop through each worksheet? Thanks for your time, Sub PasswordBreaker() Dim WS_Count As Integer WS_Count = ActiveWorkbook.Worksheets.Count Dim B As Integer Dim ws As Worksheet For B = 1 To WS_Count Set ws = ActiveWorkbook.Worksheets(B) ws.Activate 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) Next B End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
UnProtecting Many Worksheets in One Workbook
Thank you so much for your help, I was able to take the program you
offered the link to and throw in a few modifications. I open it in a workbook and it runs through every worksheet getting rid of all the password protection. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unprotecting worksheets | Excel Discussion (Misc queries) | |||
Unprotecting Worksheets | Excel Discussion (Misc queries) | |||
Unprotecting worksheets | Excel Worksheet Functions | |||
Unprotecting Worksheets in VB Script | Excel Programming | |||
Unprotecting worksheets with a macro | Excel Programming |