Hallo zusammen!
Habe ein Problem mit einem Word-Formular. Um das Formular zu vereinfachen, habe ich einzelne Zeilen mit einem Ein-/Ausblende-Makro hinterlegt. Je nach Bedarf kann eine Checkbox angewählt werden, das Formularfeld erscheint und kann ausgefüllt werden. Nun möchte ich, dass ausgefüllte Felder nicht mehr ausgeblendet werden können, d.h. die Checkbox gesperrt wird... Ist das irgendwie möglich? Was füge ich wo noch ein?
Sub EinAusblende1()
ActiveDocument.Bookmarks("K3").Select
If ActiveDocument.FormFields("K3").CheckBox.Value = True Then
ActiveDocument.Unprotect 'wdAllowOnlyFormFields
Bookmarks("T3").Range.Font.Hidden = False
ActiveDocument.Protect wdAllowOnlyFormFields, True
ActiveDocument.FormFields("K3").CheckBox.Value = True
Else
ActiveDocument.Unprotect 'wdAllowOnlyFormFields
Bookmarks("T3").Range.Font.Hidden = True
ActiveDocument.Protect wdAllowOnlyFormFields, True
End If
ActiveDocument.Bookmarks("K4").Select
End Sub
|