Microsoft Office Forums - View Single Post - [Solved] Form fields and bookmarks restrictions

macropod · 04-16-2016, 11:12 PM

In that case, you might use something like:

Code:

Private Sub FileSave()
Call FieldCheck
End Sub
 
Private Sub Document_Close()
Call FieldCheck
End Sub
 
Private FieldCheck()
  Select Case ActiveDocument.FormFields("drop").Result
    Case "Internal"
    If ActiveDocument.FormFields("mob_ph_check").CheckBox.Value = False And ActiveDocument.FormFields("broad_check").CheckBox.Value = False And ActiveDocument.FormFields("car_check").CheckBox.Value = False And ActiveDocument.FormFields("vsp_check").CheckBox.Value = False Then
        MsgBox "Are you sure that contract should be without benefits?", vbOKOnly
    End If
    Case "Permanent"
    If ActiveDocument.FormFields("mob_ph_check").CheckBox.Value = False And ActiveDocument.FormFields("broad_check").CheckBox.Value = False And ActiveDocument.FormFields("car_check").CheckBox.Value = False And ActiveDocument.FormFields("vsp_check").CheckBox.Value = False Then
        MsgBox "Are you sure?", vbOKOnly
    End If
  End Select
End Sub