I need to remove passwords from a list of files.

[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

 

[Norman Jones]

Hi Conan,

See JE McGimpsey at:

http://www.mcgimpsey.com/excel/fileandvbapwords.html

 

[Guest]

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

 

[Conan Kelly]

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

 

[Conan Kelly]

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