Workbook_Open - как объединить один и несколько кодов?

Question

! Перед тем, как задать вопрос, я просмотрел много вариантов, и ничего не помогло мне!

У меня есть в PERSONAL.XLSB некоторый код. VBA Сохраняет и закрывает все книги после нажатия на красный крест. Работает без проблем:

Private WithEvents xlApp As Application

Private Sub Workbook_Open()
    Set xlApp = Application
End Sub

---

Private Sub xlApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    xlApp.ScreenUpdating = False
    xlApp.DisplayAlerts = False
    xlApp.EnableEvents = False
    For Each Wb In xlApp.Workbooks
        Wb.Save 'Wb.Close True
    Next
    xlApp.Quit
End Sub

У меня есть другой код, с которым я хочу работать, когда открываю Excel. Отдельно этот код работает, но я не знаю, как объединить? Этот код открывает мою собственную вкладку на ленте:

Private Sub Workbook_Open()
    SendKeys "%BP{F6}", True
End Sub

Хотите работать, когда я открываю любую книгу .