force a command button to be pushed before exit

[deanl33069]

how do i force a command button to be pushed before exit.

 

[JoeMo]

how do i force a command button to be pushed before exit.

What do you mean by "exit"? Close the Excel Application or just close a workbook??

 

[Fluff]

If you are referring to a Userform, you can use this

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
      Cancel = True
      MsgBox "Please use the ""Close"" button.", vbCritical, "Illegal Exit"
   End If
End Sub

 

[deanl33069]

Great Quite ,mind if I reuse it.....?

 

[Fluff]

You're more than welcome to use it, that's why we're here

 

[deanl33069]

this is what i have
i want the use to have to click commandbutton1 before exit.

ty



Private Sub CommandButton1_Click()


ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:="C:\release" & Range("C2") & ".pdf", _
OpenAfterPublish:=False, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
Quality:=xlQualityStandard, _
From:=1, To:=2
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set r = Range("C2, n2")
For Each C In r
If C.Value = "" Then
MsgBox "Fill cells " & C.Address(0, 0)
Application.EnableEvents = False
C.Select
Application.EnableEvents = True
Exit For
End If
Next
End Sub


Private Sub commandbutto1(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the ""Close"" button.", vbCritical, "Illegal Exit"
End If
End Sub

 

[Fluff]

Is your button on a sheet or a userform?

 

[deanl33069]

sheet

 

[Fluff]

In that case can you answer JoeMo's questions in Post#2

 

[deanl33069]

What i am trying to do is
before close click commandbutton1
and make it mandatory .