Macro to Unlock a Locked Word 2007 Document

Is it possible -- and how do I do it -- to write a macro that a text input
field will run to temporarily unlock a locked Word 2007 form? I wrote one
that will lock the document that will run "On exit" from a field, but no
matter how I phrase it I can't get a macro to unlock the doc.

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a text
input field will run to temporarily unlock a locked Word 2007 form?
I wrote one that will lock the document that will run "On exit" from
a field, but no matter how I phrase it I can't get a macro to unlock
the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org

Thank you so much, Greg. You are a job saver!


"Greg Maxey" wrote:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a text
input field will run to temporarily unlock a locked Word 2007 form?
I wrote one that will lock the document that will run "On exit" from
a field, but no matter how I phrase it I can't get a macro to unlock
the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org

My excitement jumped the gun. I forgot to mention that the document is
password protected. As such, when it gets to the "ActiveDocument.Unprotect"
line, it chokes. I tried putting in the password as the string is indicated
to be written (see below), but the Debugger doesn't like that either. What
am I missing? What am I doing wrong?

ActiveDocument.Unprotect(password)


"Greg Maxey" wrote:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a text
input field will run to temporarily unlock a locked Word 2007 form?
I wrote one that will lock the document that will run "On exit" from
a field, but no matter how I phrase it I can't get a macro to unlock
the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org

Replace "password" with the real password:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect Password:="password"
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub


--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org


"WordWorker" wrote in message
...
My excitement jumped the gun. I forgot to mention that the document is
password protected. As such, when it gets to the
"ActiveDocument.Unprotect"
line, it chokes. I tried putting in the password as the string is
indicated
to be written (see below), but the Debugger doesn't like that either.
What
am I missing? What am I doing wrong?

ActiveDocument.Unprotect(password)


"Greg Maxey" wrote:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a text
input field will run to temporarily unlock a locked Word 2007 form?
I wrote one that will lock the document that will run "On exit" from
a field, but no matter how I phrase it I can't get a macro to unlock
the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org

Thank you. It was the colon I had wrong. I was using a semicolon.

"Greg Maxey" wrote:

Replace "password" with the real password:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect Password:="password"
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub


--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org


"WordWorker" wrote in message
...
My excitement jumped the gun. I forgot to mention that the document is
password protected. As such, when it gets to the
"ActiveDocument.Unprotect"
line, it chokes. I tried putting in the password as the string is
indicated
to be written (see below), but the Debugger doesn't like that either.
What
am I missing? What am I doing wrong?

ActiveDocument.Unprotect(password)


"Greg Maxey" wrote:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a text
input field will run to temporarily unlock a locked Word 2007 form?
I wrote one that will lock the document that will run "On exit" from
a field, but no matter how I phrase it I can't get a macro to unlock
the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org

You would need to re-apply the password when reprotecting:

Dim sPassword as string
sPassword = "password"

'Unprotect the file
If ActiveDocument.ProtectionType wdNoProtection Then
bProtected = True
ActiveDocument.Unprotect Password:=sPassword
End If

'Do your stuff then

'Reprotect the document.
If bProtected = True Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, _
NoReset:=True, _
Password:=sPassword
End If


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Greg Maxey wrote:
Replace "password" with the real password:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect Password:="password"
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



"WordWorker" wrote in message
...
My excitement jumped the gun. I forgot to mention that the document
is password protected. As such, when it gets to the
"ActiveDocument.Unprotect"
line, it chokes. I tried putting in the password as the string is
indicated
to be written (see below), but the Debugger doesn't like that either.
What
am I missing? What am I doing wrong?

ActiveDocument.Unprotect(password)


"Greg Maxey" wrote:

Sub OnExit()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect
MsgBox "I'm unlocked. Do your deed."
ActiveDocument.Protect wdAllowOnlyFormFields, True
MsgBox "I'm back in chains."
Else
MsgBox "I wasn't locked to start with"
End If
End Sub



WordWorker wrote:
Is it possible -- and how do I do it -- to write a macro that a
text input field will run to temporarily unlock a locked Word 2007
form? I wrote one that will lock the document that will run "On
exit" from a field, but no matter how I phrase it I can't get a
macro to unlock the doc.

--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org