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

当我打开任何工作簿时都想工作。

Answer 1

最后，我解决了这个问题！

因此，如果我们有代码，则只需推入内部即可，

Workbook_Open()

对于这一行，问题出在 Office 的版本中：

SendKeys "%БП{F6}"

在 Microsoft Office 365 2019 中，一切正常！