Save As Macro only if Check Boxes...
 

I have a command button that I would like to be able to use as a Save
As button. However on my form I have Check Box 12, 13, 14 that all
MUST be checked in order for the Macro to funtion and allow somebody to
Save. I would also really like to have a Comment window pop up
explaining why the command button is not working if they have not
checked off all 3 boxes. Thanks in advance.

Save As Macro only if Check Boxes...
 

I put 4 checkboxes from the control toolbox toolbar on a worksheet.

I put a commandbutton from that same toolbar on the same worksheet.

This was the code under the commandbutton:

Option Explicit

Private Sub CommandButton1_Click()
If Me.CheckBox1.Value = True _
And Me.CheckBox2.Value = True _
And Me.CheckBox3.Value = True _
And Me.CheckBox4.Value = True Then
'ok to save
Me.Parent.Save
Else
MsgBox "Please check all those boxes!" & vbLf & "Workbook not saved!"
End If
End Sub


You'll have to change the names (checkbox1 becomes checkbox14, etc).

JoePro82 wrote:

I have a command button that I would like to be able to use as a Save
As button. However on my form I have Check Box 12, 13, 14 that all
MUST be checked in order for the Macro to funtion and allow somebody to
Save. I would also really like to have a Comment window pop up
explaining why the command button is not working if they have not
checked off all 3 boxes. Thanks in advance.

--

Dave Peterson