WORD - Help with removing protection

[garlarr]

I need some VBA that will remove protection only if document has protection. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I have a subfolder that has 20 docm, some have protection and some don’t. I need some code that will only remove protection on docm that are protected.<o></o>
I tried using this code with no success

[FONT=Arial][SIZE=3]If ActiveDocument.ProtectionType <> wdNoProtection Then 
ActiveDocument.Unprotect Password:=""[/SIZE][/FONT]

 

[c_m_s_jr]

Re: Help with removing protection

Garlarr, I believe there is a policy on the board of not being able to help unprotect workbooks or documents.

 

[garlarr]

Re: Help with removing protection

You are misunderstanding the question
I am not asking for a special code that will open a password protected workbook or document.
Read my previous question a little closer.
I already know the passwords, that not what I’m after.
I have a folder that holds 20 or so word documents that have link fields, some have protection and others do not. I’m trying to find some VBA that I can use with my existing code that will remove protection ONLY on the documents that have protection (I KNOW THE PASSWORD) so that I can unlink fields so that I can archive documents without having to worry about losing data because of link fields.

 

[mikerickson]

Re: Help with removing protection

You can record a macro that removes the protection from a document. Use the recorded macro to remove it from all documents.

For each Document
Is the Document protected?
If so, remove protection
Loop

is slower then

For each Document
remove protection
Loop

 

[garlarr]

Re: Help with removing protection

Hi Mikerickson
I’m using Office 2007 and I was unable to record a macro that will unprotect document. I tried to do it a couple different ways, from a different docx and docm in question. I was also unable to record from one folder to another. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Here is the code I am using that allows me to copy a folder, remove link fields. <o></o>
this may give you a better understanding.

[FONT=Calibri][SIZE=3]Dim fso As Scripting.FileSystemObject[/SIZE][/FONT]
[SIZE=3][FONT=Calibri]  Dim fol As Scripting.Folder[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim fil As Scripting.File[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim wrd As Word.Application[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim doc As Word.Document[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim fld As Word.Field[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim strSource As String[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Dim strTarget As String[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  strSource = "C:\Documents and Settings\Reports"  ' Source folder path[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  strTarget = "C:\Documents and Settings\My Documents\Reports 2" ' Target folder path[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Set fso = CreateObject("Scripting.FileSystemObject")[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  If fso.FolderExists(strTarget) Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]    MsgBox strTarget & " already exists!", vbExclamation[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]    Exit Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  End If[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  fso.CopyFolder strSource, strTarget[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Set wrd = CreateObject("Word.Application")[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Set fol = fso.GetFolder(strTarget)[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  For Each fil In fol.Files[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]    If fil.Name Like "*.doc*" Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]      Set doc = wrd.Documents.Open(Filename:=fil.Path, _[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]        AddToRecentFiles:=False)[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]      For Each fld In doc.Fields[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]        If fld.Type = wdFieldLink Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]          fld.Update[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]          fld.Unlink[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]        End If[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]      Next fld[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]      doc.Close SaveChanges:=True[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]    End If[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  Next fil[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]  wrd.Quit SaveChanges:=False[/FONT][/SIZE]
[FONT=Calibri][SIZE=3]End Sub[/SIZE][/FONT]

<o>I was thinking of using something like this added to my existing code

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect ""
End If

</o>