Macro para cerrar Excel
Private Sub CommandButton1_Click()
	Application.Quit
End Sub

Macro para cerrar Excel sin notificaciones
Private Sub CommandButton2_Click()
	Application.DisplayAlerts = False
	Application.Quit
End Sub

Guardar el libro activo y cerrar Excel
Private Sub CommandButton3_Click()
	ActiveWorkbook.Save
	Application.Quit
End Sub

Guardar los libros abiertos y cerrar Excel
Private Sub CommandButton4_Click()
	Dim wb As Workbook
	For Each wb In Workbooks
		wb.Save
	Next
	Application.Quit
End Sub

Como evito que se me abra el entorno VBE al ejecutar macro con CreateEventProc?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
	CreateEventProcedure
	AppActivate ("Excel")
End Sub
Sub CreateEventProcedure()
    Set VBProj = ActiveWorkbook.VBProject
    Set VBComp = VBProj.VBComponents(ActiveSheet.CodeName)
    Set CodeMod = VBComp.CodeModule
    
    With CodeMod
        x = .CreateEventProc("BeforeRightClick", "Worksheet")
            .insertLines x + 1, "   If Target.Value <> """" Then" & vbCrLf & _
            "       MsgBox Target.Value" & vbCrLf & _
            "       Cancel = True" & vbCrLf & _
            "   Else" & vbCrLf & _
            "       Cancel = False" & vbCrLf & _
            "   End If"
    End With
End Sub