I need to remove passwords from a list of files.

  • Thread starter Thread starter Conan Kelly
  • Start date Start date
C

Conan Kelly

Hello all,

I have a list of *.XLS files in a folder. Each one has a password to
open the file (Save As...>Tools>General Options...). The password is
the same on each file.

I need to remove the password on each file. Is there a way to create
a macro that will do this for me? Sample code is welcomed.

Any help will be greatly appreciated,

Conan Kelly
 
Give this a try...

Sub UnprotectAllsheets
dim wks as worksheet

on error resume next
for each wks in activeworkbook.Worksheets
wks.UnProtect "MyPassword"
next wks
set wks = nothing
end sub
 
Norman,

Thanks for the info. But that's not exactly what I'm looking for.

I don't need to crack the passwords. I already know what they are.

What I'm looking for is code to remove the file passwords from a list
of files.

Thanks again for your help,

Conan
 
Jim,

Thanks for the response. But that isn't what I'm looking for.

What you described appears to be code to remove worksheet/workbook
passwords.

What I need is code to remove FILE passwords. I already know what the
passwords are.

Thanks again for your help,

Conan
 
Back
Top