Preventing Form Fields to Reset

[PosseJohn]

Greetings,



I have a WORD document that contains Form Fields for the user to enter information. This document is repeatedly used from one shift to another, it contains information for shift turnover.

I want to FORCE the user to enable macros so that when the user closes the document, it automatically creates a 'archive' copy of the file, with the current date/time in the file name, saved to a different folder, for retrieval if something got fouled up.

I attempted to protect the document from any changes upon closing, and then upon opening, I would unprotect the document, then re-protect it allowing 'Filling in forms'.

When I do this, all the fields reset to empty.

I don't want the user to have to retype everything, only edit what might have changed in the last shift, then save it.

Here is my code:

 
Private Sub Document_Close()
        With ThisDocument
            .Unprotect Password:="pw"
            .Protect Password:="pw", _
                    NoReset:=False, _
                    Type:=wdAllowOnlyReading, _
                    UseIRM:=False, _
                    EnforceStyleLock:=False
        End With
End Sub

 
Private Sub Document_Open()
        With ThisDocument
            .Unprotect Password:="pw"
            .Protect Password:="pw", _
                    NoReset:=False, _
                    Type:=wdAllowOnlyFormFields, _
                    UseIRM:=False, _
                    EnforceStyleLock:=False
        End With
End Sub

[macropod]

Hi PosseJohn,

Change 'NoReset:=False' to 'NoReset:=True'.

[PosseJohn]

Thankyou, setting the NoReset:=True now prevents the form fields from going blank.

Followup question:
Using the code I previously posted, it seems that the VBA code doesn't protect the document after AllowOnlyReading. When I reopen the document, without enabling macros, the FormFields are still able to be edited.

When troubleshooting, I stepped thru the VBA code by using F8, and the code seemed to work just fine. But when the code runs on its own, it doesn't.

Any suggestions? Thanks!!

[macropod]

Hi PosseJohn,

What you need to do is to lock each formfield. For example:

Private Sub Document_Close()
Dim fFld As FormField, Pwd As String
Pwd = "pw"
With ThisDocument
  .Unprotect Password:=Pwd
  For Each fFld In .FormFields
    fFld.Enabled = False
  Next
  .Protect Password:=Pwd, NoReset:=True, _
    Type:=wdAllowOnlyFormFields, _
    UseIRM:=False, EnforceStyleLock:=False
End With
End Sub

[PosseJohn]

Very well, I will give it a go. Thank you for your quick response and sharing of the knowledge.

G'Day