Groups of Word Files

[Guest]

How can I password protest a group of Word documents? Can I apply a password
at the folder level (if so, how?) or do I need to password protect each
individual file?

 

[Jay Freedman]

How can I password protest a group of Word documents? Can I apply a password
at the folder level (if so, how?) or do I need to password protect each
individual file?

You can protect a folder *if* your disk is formatted with the NTFS
file system, not if it's FAT32. The details also depend on what
version of Windows you have.

This is a Windows thing and not a Word thing; you do it by
right-clicking the folder in Windows Explorer and selecting Sharing &
Security, then clicking the Security tab. From there it gets a bit
more complicated, so if the article at
http://support.microsoft.com/?id=308418 doesn't explain it well
enough, ask in one of the Windows operating system newsgroups.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Graham Mayor]

You can protect a group of Word files in a folder individually using a
macro. The macro uses the folder
D:\My Documents\Test\Merge\
but you can change that to your choice either in the macro or by entering it
at the prompt.
http://www.gmayor.com/installing_macro.htm
DON'T FORGET THE PASSWORD!!!


Public Sub PasswordAll()

Dim FirstLoop As Boolean
Dim myFile As String
Dim Password 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

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