How to call Workbook_BeforeClose Event when commandbutton is pressed

[Pookiemeister]

Option Explicit

Private Sub CommandButton1_Click()
    Workbook_BeforeClose
End Sub


Private Sub UserForm_Initialize()
    Me.Caption = "Print, Save and Close"
    With Me.Label1
        .Caption = "Do you want to print, save and close the workbook named: " & """" & ActiveWorkbook.Name & """" & "?"
        .Font = "Tahoma"
        .Font.Size = "14"
    End With
    Me.CommandButton1.Caption = "Yes"
    Me.CommandButton2.Caption = "No"
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "The X is disbled, please use a button on the form", vbCritical, "X is Disabled"
    End If
End Sub

At this point in time the code below is still unfinished until I can figure out how to call the workbook_BeforeClose Event
Workbook_BeforeClose Code Below

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sFilePath As String
Dim sFileName As String




sFilePath = "C:\Users\UserNamer\Desktop\CompanyFolder\Project\Yield_Report\FileStorage\"
sFileName = Range("C11")


End Sub

When I run this code and click commandbutton1, then I get a "Compile error: Sub or Function not defined" with "Workbook_BeforeClose" highlighted in blue.

Thank you

 

[Domenic]

The reason you're getting that error is that Workbook_BeforeClose is marked Private, so it's inaccessible from outside ThisWorkbook. You can easily get around this by simply creating a new procedure and placing the code that's in that event handler in this new one. Declare this new procedure as Public, and place it in a regular module. Then have both Workbook_BeforeClose and CommandButton1_Click call the new procedure.