Saving Restrictions

**ravi_m5_2000** · 07-14-2009, 03:04 AM

Hi,

I have one user form in Excel where, there are couple of fields which are mandatory to fill now what I want is, I want to restrict the user to save or system don't allow to save this Excel form till all the mandatory fields are filled.

Please help me....!

Regards,
Ravi

**royUK** · 07-14-2009, 03:13 AM

Presumably you have a Save button, use it's click event to check before saving

Option Explicit

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value = Empty Or Me.TextBox2.Value = Empty Then
        MsgBox "You have not entered all necessary data", vbCritical, "Input required"
        Exit Sub
    End If
    'save code
End Sub

**JBeaucaire** · 07-14-2009, 03:20 AM

Like so, edit the message, sheet reference, ranges, etc, to your needs:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Sheets("Sheet1").Range("A1") = 0 Then
    MsgBox "Sheet1 has a manadatory field in A1, please fill the correct value."
    Cancel = True
End If

End Sub

**ravi_m5_2000** · 07-14-2009, 04:07 AM

Originally Posted by JBeaucaire

Like so, edit the message, sheet reference, ranges, etc, to your needs:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Sheets("Sheet1").Range("A1") = 0 Then
    MsgBox "Sheet1 has a manadatory field in A1, please fill the correct value."
    Cancel = True
End If

End Sub

Thanks JB, Its working, --- GREAT