Removing password protection

macropod · #1 03-06-2012, 09:07 PM

Hi,

That warning is part of how you have Word configured. It can be disabled temporarily, with the following code mods.

Starting with the end of the 'Dim' line, add the following:

Code:

, TrkStatus As Boolean
TrkStatus = Options.WarnBeforeSavingPrintingSendingMarkup
Options.WarnBeforeSavingPrintingSendingMarkup = False

then insert:

Code:

Options.WarnBeforeSavingPrintingSendingMarkup = TrkStatus

before:

Code:

Application.ScreenUpdating = True

This retains the current state of the documents, without changing their content. Simply changing the display to 'final' won't deactivate the messsage.

cure4glass · #2 03-07-2012, 05:47 AM

Thanks Macropod for the quick response.Please forgive my lack of knowledge here,but I'm thinking I may have inserted the first bit of code you provided in the wrong spot
.Here's the code as I have it now:

Code:

Sub UnprotectDocuments()
Application.ScreenUpdating = False
Dim strFolder As String, strPwd As String, strFile As String, wdDoc As Document
strPwd = InputBox("What is the password?", "maude#1")
If strPwd = "" Then Exit Sub
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc", vbNormal)
While strFile <> ""
  Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, _
    Visible:=False, PasswordDocument:=strPwd, WritePasswordDocument:=strPwd)
  With wdDoc
    '.ReadOnlyRecommended = False
    .Password = vbNullString
    .WritePassword = vbNullString
    ,TrkStatus As Boolean
TrkStatus = Options.WarnBeforeSavingPrintingSendingMarkup
Options.WarnBeforeSavingPrintingSendingMarkup = False
    .Close SaveChanges:=True
  End With
  strFile = Dir()
Wend
Set wdDoc = Nothing
Options.WarnBeforeSavingPrintingSendingMarkup = TrkStatus
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Did an auto-update remove password protection?	namedujour	Excel	0	11-22-2011 07:40 AM
Password Protection Problem	todobfl	Excel	4	07-26-2011 06:40 PM
Password Protection	JimP	Visio	2	03-24-2011 04:23 AM
Help reg Protection of cell.	aligahk06	Excel	1	09-02-2009 05:45 PM
Visio - password protection	icap5183	Visio	0	07-24-2009 06:00 AM