[WordWorker]

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[_2_]]

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

[WordWorker]

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

[WordWorker]

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

[Greg Maxey[_2_]]

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

[WordWorker]

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

[Graham Mayor]

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

[Maggiechen]

There could be 2 things that are wrong.

1) You have reached the end of the Microsoft Office 2007 Trial.
When this happens you are not able to edit any documents. You will only be able to view and print your documents.
To fix this you need to buy an office 2007 license from http://office.microsoft.com

2) You are trying to edit a protected document.
Some people protect their documents or parts of their documents from being edited. The only way around this is to get an original copy of the file or the password for the file.try to recover the word password with word password recovery 5.0, which is considered as the best word password recovery tool on the market.

Hope this helps you!