Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
password removal from multiple docs
How do you remove the password from multiple Word docs without having to open
each one and go to 'Tools'-'Options'-'Security' and delete the password?? -- Bruce Bumbier |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
password removal from multiple docs
If the documents have the *same* passwords then you can use a batch macro to
open all the protected documents in a folder and reset the passwords to none - something like the following. Copy all the common password protected files to a temporary folder before running the macro. Public Sub UnPasswordAll() Dim FirstLoop As Boolean Dim strFileName As String Dim sPassword1 As String Dim sPassword2 As String Dim strPath As String Dim oDoc As Document Dim Response As Long Dim fDialog As FileDialog Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) With fDialog .Title = "Select folder and click OK" .AllowMultiSelect = False .InitialView = msoFileDialogViewList If .Show -1 Then MsgBox "Cancelled By User", , "Password" Exit Sub End If strPath = fDialog.SelectedItems.Item(1) If Right(strPath, 1) "\" Then strPath = strPath + "\" End With sPassword1 = InputBox("Enter Password to open Document") sPassword2 = InputBox("Enter Password to edit Document") On Error Resume Next Documents.Close SaveChanges:=wdPromptToSaveChanges FirstLoop = True strFileName = Dir$(strPath & "*.doc") While strFileName "" Set oDoc = Documents.Open(strPath & strFileName, _ PasswordDocument:=sPassword1, _ WritePasswordDocument:=sPassword2) If FirstLoop Then With ActiveDocument .Password = "" .WritePassword = "" 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 = "" .WritePassword = "" End With End If oDoc.Close SaveChanges:=wdSaveChanges strFileName = Dir$() Wend End Sub 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 Bruce Bumbier wrote: How do you remove the password from multiple Word docs without having to open each one and go to 'Tools'-'Options'-'Security' and delete the password?? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to password protect multiple exisitng doc files at one time | Microsoft Word Help | |||
if I know the password, how do I remove it from a large no of docs? | Microsoft Word Help | |||
apply a common password for multiple word documents | Microsoft Word Help | |||
Applying password to multiple existing Word documents at one time | Microsoft Word Help | |||
Multiple docs open multiple words | New Users |