How to password protect multiple exisitng doc files at one time

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can someone tell me how to mass password protect my documents?
I have many existing documents but do not feel like opening every file to
set the password protection. Is there an easy way to do many docments at the
same time?
Hope you know a way....
 
That would have to be done at the operating system level, possibly
password-protecting the folder the files are in (assuming your O/S supports
such protection). What operating system are you using? (To do it using Word,
you'd need a macro of some kind, since Word itself doesn't provide mass
protection.)
 
The following macro should do that. Just make sure you don't forget the
password or you will not be able to open your documents -
http://www.gmayor.com/installing_macro.htm

Public Sub PasswordAll()

Dim FirstLoop As Boolean
Dim myFile As String
Dim sPassword As String
Dim PathToUse As String
Dim myDoc As Document
Dim Response As Long

PathToUse = InputBox("Path To Use?", "Path", "D:\My Documents\Test\Merge\")
sPassword = InputBox("Enter Password")

On Error Resume Next
Documents.Close SaveChanges:=wdPromptToSaveChanges
FirstLoop = True
myFile = Dir$(PathToUse & "*.doc")
While myFile <> ""
Set myDoc = Documents.Open(PathToUse & myFile)
If FirstLoop Then
With ActiveDocument
.Password = sPassword
.WritePassword = sPassword
End With
FirstLoop = False

Response = MsgBox("Do you want to process " & _
"the rest of the files in this folder", vbYesNo)
If Response = vbNo Then Exit Sub
Else
With ActiveDocument
.Password = sPassword
.WritePassword = sPassword
End With
End If
myDoc.Close SaveChanges:=wdSaveChanges
myFile = Dir$()
Wend
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Sparky said:
Can someone tell me how to mass password protect my documents?
I have many existing documents but do not feel like opening every file to
set the password protection. Is there an easy way to do many docments at the
same time?
Hope you know a way....
Click to expand...


Thanks Herb Tyson. I am using winxp pro. Is it hard to make a macro to
password documents en mass? I guess you need to have the files names ordered
in such a way that it is easy in a macro to program or not?
 
Hi Graham, being a novice in macro's I will need to read up about this so
thanks a lot for the sample macro and the link!
much appreciated
 
Back
Top