Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How so I set up an entire folder to be password protected?
I would like to set up a folder to be password protected so I dont have to
keep doing every individual document. Is this possible? I am using Windows XP |
#2
|
|||
|
|||
This is a Windows function, not Word.
-- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. "k_man10" wrote in message ... I would like to set up a folder to be password protected so I dont have to keep doing every individual document. Is this possible? I am using Windows XP |
#3
|
|||
|
|||
Assuming you mean you want to password protect each document in a folder,
you need a macro e.g. Public Sub PasswordAll() Dim FirstLoop As Boolean Dim myFile, Password, PathToUse As String Dim myDoc As Document Dim Response As Long '********************************** 'enter path to the folder below PathToUse = "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 See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org k_man10 wrote: I would like to set up a folder to be password protected so I dont have to keep doing every individual document. Is this possible? I am using Windows XP |
#4
|
|||
|
|||
Graham,
Is there a way to password protect the folder, with the files contained within it NOT being password protected? Patrick "Graham Mayor" wrote: Assuming you mean you want to password protect each document in a folder, you need a macro e.g. Public Sub PasswordAll() Dim FirstLoop As Boolean Dim myFile, Password, PathToUse As String Dim myDoc As Document Dim Response As Long '********************************** 'enter path to the folder below PathToUse = "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 See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org k_man10 wrote: I would like to set up a folder to be password protected so I dont have to keep doing every individual document. Is this possible? I am using Windows XP |
#5
|
|||
|
|||
Not from Word. The NTFS filing system allows you to restrict user access to
folders and there are third party tools for earlier filing systems. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Patrick wrote: Graham, Is there a way to password protect the folder, with the files contained within it NOT being password protected? Patrick "Graham Mayor" wrote: Assuming you mean you want to password protect each document in a folder, you need a macro e.g. Public Sub PasswordAll() Dim FirstLoop As Boolean Dim myFile, Password, PathToUse As String Dim myDoc As Document Dim Response As Long '********************************** 'enter path to the folder below PathToUse = "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 See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org k_man10 wrote: I would like to set up a folder to be password protected so I dont have to keep doing every individual document. Is this possible? I am using Windows XP |
#6
|
|||
|
|||
Thanks Graham,
Patrick "Graham Mayor" wrote: Not from Word. The NTFS filing system allows you to restrict user access to folders and there are third party tools for earlier filing systems. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Patrick wrote: Graham, Is there a way to password protect the folder, with the files contained within it NOT being password protected? Patrick "Graham Mayor" wrote: Assuming you mean you want to password protect each document in a folder, you need a macro e.g. Public Sub PasswordAll() Dim FirstLoop As Boolean Dim myFile, Password, PathToUse As String Dim myDoc As Document Dim Response As Long '********************************** 'enter path to the folder below PathToUse = "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 See http://www.gmayor.com/installing_macro.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org k_man10 wrote: I would like to set up a folder to be password protected so I dont have to keep doing every individual document. Is this possible? I am using Windows XP |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
password protection | Microsoft Word Help | |||
password protection | Microsoft Word Help | |||
global find and replace for an entire folder? | Microsoft Word Help | |||
Word 2003 forgets folder | Microsoft Word Help | |||
Forgotten Password - Which Program? | Microsoft Word Help |