Hello all,

I have a list of *.XLS files in a folder. Each one has a password to
open the file (Save As...ToolsGeneral 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

Hi Conan,

See JE McGimpsey at:

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


---
Regards,
Norman


"Conan Kelly" <CTBarbarin at msn dot com wrote in message
...
Hello all,

I have a list of *.XLS files in a folder. Each one has a password to open
the file (Save As...ToolsGeneral 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
--
HTH...

Jim Thomlinson


"Conan Kelly" wrote:

Hello all,

I have a list of *.XLS files in a folder. Each one has a password to
open the file (Save As...ToolsGeneral 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,

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





"Norman Jones" wrote in message
...
Hi Conan,

See JE McGimpsey at:

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


---
Regards,
Norman


"Conan Kelly" <CTBarbarin at msn dot com wrote in message
...
Hello all,

I have a list of *.XLS files in a folder. Each one has a password
to open the file (Save As...ToolsGeneral 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

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




"Jim Thomlinson" wrote in message
...
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
--
HTH...

Jim Thomlinson


"Conan Kelly" wrote:

Hello all,

I have a list of *.XLS files in a folder. Each one has a password
to
open the file (Save As...ToolsGeneral 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