save as macro/for password
I need to add the same password to 200 documents.
I recorded a macro:
ub Macro1()
'
' Macro1 Macro
' Macro recorded 8/22/2005 by Dedrie Smith
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
ActiveWorkbook.SaveAs Filename:= _
"G:\Budget 2006\Individual Managers\TAnderson"_
FileFormat:=xlNormal, Password:="newone", WriteResPassword:="meonly" _
, ReadOnlyRecommended:=True, CreateBackup:=False
End Sub
Which works, except when I open the next file, it copies the macro over with
the previous file name and then tries to save over that file.
I'm sure there's a way to have the macro name the file based on it's current
name, or the cell reference (A2) which also contains the file name, but I
don't know how to write that code.
It also may be that there's an easier way to do this other than opening each
of the 200 files.
Any assistance/suggestions are appreciated!
Thanks!!
|