Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Groups of Word Files
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? |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Groups of Word Files
On Thu, 2 Mar 2006 09:44:30 -0800, "Mike McLellan"
wrote: 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 FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Groups of Word Files
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 Word MVP web site http://word.mvps.org Mike McLellan wrote: 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? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Line Spacing in Word | New Users | |||
Converting Word Perfect forms to Word forms | Microsoft Word Help | |||
In Word, how do I surpress headers and footers on page 2 | Microsoft Word Help | |||
Underscore (_) will not always display in RTF files (Word 2002). | Microsoft Word Help | |||
copying files from Wordperfect to Microsoft Word | New Users |