Solved: Using trackrevisions and protectedforforms at the same time

[cunnus88]

Again, I thank all of you for providing me with informed, reliable answers.

This time, my question has to do with using trackrevisions and protectedforforms at the same time.

I originally developed my macro in Office 2003. I divided a document into sections, and every third section would have the following property:

activedocument.sections(currentsectionindex).protectedforforms = true

Finally, I would activate revision tracking.

Activedocument.trackrevisions = true

In office 2003, i got the results I wanted. All the sections which weren't protected for forms would allow revisions and the other sections (which had dropdown formfields) would allow formfield interaction by the user.

Then I took this same macro to an earlier version of office, and, oh dear lord, the formfields would just disappear after I changed the value of a dropdown formfield.

Is there any way to keep formfields from disappearing in lesser versions of office?

[MOS MASTER]

Hi, :yes

The key is using the argument NoReset:=True in your protection code!
This will keep the fields from being reset/emptied out!

A normal Protection routine for a document could look like this:
Option Explicit
Sub ProtectForForms()
With ActiveDocument
If .ProtectionType <> wdNoProtection Then .Unprotect Password:=""
'Do things to de document

.Sections(1).ProtectedForForms = True
.Sections(2).ProtectedForForms = False

.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End With
End Sub


Later..:whistle:

[cunnus88]

Thanks for the input.

Unfortunately, I have that line in my original code, and the formfields still disappear in Office versions 10 or less.

Anyway, I found a weird workaround to the problem. So now, I can have dropdown formfields and track revisions at the same time in Office 10 but not in 9.

It goes something like this:

thisdocument.Trackrevisions = true
thisdocument.usercontrol = true
for each formfield in thisdocument.formfields
formfield.helptext = ""
next

Don't know why, but it works.

Again, thanks for your time.

[MOS MASTER]

Hi, :yes

Glad I could help and you're welcome!
I must admit the work arround seams strange to me...but if it works what the heck..:whistle:

[untitled]

This helped me today, cheers.

:D