How to password protect a bunch of Word document files at once?

[Ant]

Hello.

Is there a way to password protect a group of Word document files at
once? Doing one by one with save as and its password options is a pain.
This is with Word 2000 SP3 (all updates) in Windows 98 SE.

Thank you in advance.
--
"Is this stuff any good for ants?" "No, it kills them." --unknown
/\___/\
/ /\ /\ \ Phillip (Ant) @ http://antfarm.ma.cx & http://aqfl.net
| |o o| | E-mail (nuke ANT if replying privately to a newsgroup
\ _ / post): (e-mail address removed) or (e-mail address removed)
( )
Ant is currently not listening to any songs on his home computer.

 

[Graham Mayor]

Only with a macro. The following will do the job on a folder full of files.
Put the path to that folder where indicated:
http://www.gmayor.com/installing_macro.htm

Public Sub PasswordAll()

Dim FirstLoop As Boolean
Dim myFile, Password, PathToUse As String
Dim myDoc As Document
Dim Response As Long

'*************************************
'Set the required path here
PathToUse = "C:\Path\"
'*************************************
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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Ant]

Do I assume this will work on USB Flash drives where all the documents are?

Only with a macro. The following will do the job on a folder full of files.
Put the path to that folder where indicated:
http://www.gmayor.com/installing_macro.htm

Public Sub PasswordAll()

Dim FirstLoop As Boolean
Dim myFile, Password, PathToUse As String
Dim myDoc As Document
Dim Response As Long

'*************************************
'Set the required path here
PathToUse = "C:\Path\"
'*************************************
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

--
"Caution is not cowardice; even the ants march armed." --Ugandan Proverb
/\___/\
/ /\ /\ \ Phillip (Ant) @ http://antfarm.ma.cx & http://aqfl.net
| |o o| | E-mail (nuke ANT if replying privately to a newsgroup
\ _ / post): (e-mail address removed) or (e-mail address removed)
( )
Ant is currently not listening to any songs on his home computer.

 

[Doug Robbins]

If you have plenty of space on the USB drive you may be OK. For complete
peace of mind however, you would be well advised to create a folder on the
hard disk and copy all of the files into that folder and password protect
them there and after verifying everything is OK, copy them back to the USB
drive.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP