帮我看看啊!!!帮帮忙

t5841314321

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Sheet2").Activate
        
ActiveWorkbook.Save
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFormulaBar = True
Application.CommandBars("Drawing").Visible = True
'ActiveWindow.DisplayWorkbookTabs = True
    MenuBars(xlWorksheet).Reset
    MenuBars(xlWorksheet).Activate
ActiveWorkbook.Close
End Sub
Private Sub Workbook_Open()
    On Error Resume Next
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.DisplayFormulaBar = False
    Application.CommandBars("Drawing").Visible = False
    ActiveWindow.DisplayWorkbookTabs = False
    Sheets("Sheet2").Activate
    MenuBars("系统").Delete
   
    MenuBars.Add "系统"
    MenuBars("销售管理").Menus.Add "文件"
      
    '设置每个菜单的子菜单
   
    MenuBars("系统").Activate
Sheets("Sheet2").Activate
End Sub

Private Sub Workbook_Open()
   Load UserForm1
  UserForm1.Show
End Sub

帮我看看错哪里 了？
原来是我在两个表写的宏，单独在一张表就用可以
我整合到一起就不行了