Code XML chỉ ẩn thanh công cụ Excel

[Covid19pro]

Chào mọi người. Mình có dùng code sau để ẩn thanh công cụ cho gọn. Nhưng có nhược điểm là nó áp dụng tất cả các file khác khi mở sau file đó. Mình muốn chỉ áp dụng 1 file duy nhất chứa code. Mình muốn chuyển sang XML để ẩn tương tự như code bên dưới thì phải làm sao. Xin chân thành cảm ơn

Sub dad()
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",false)"
End Sub

 

[Bluestar092011]

Chào mọi người. Mình có dùng code sau để ẩn thanh công cụ cho gọn. Nhưng có nhược điểm là nó áp dụng tất cả các file khác khi mở sau file đó. Mình muốn chỉ áp dụng 1 file duy nhất chứa code. Mình muốn chuyển sang XML để ẩn tương tự như code bên dưới thì phải làm sao. Xin chân thành cảm ơn

Sub dad()
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",false)"
End Sub

View attachment 251893

Tạo Class tên clsExcelApp và cho đoạn code này vào.

Private WithEvents ExcelApp As Excel.Application
Private WBook As Excel.Workbook
Public Sub Wrap(ByVal ExcelApplication As Excel.Application)
    If ExcelApp Is Nothing Then
        Set ExcelApp = ExcelApplication
    End If
End Sub

Private Sub ExcelApp_WorkbookActivate(ByVal Wb As Workbook)
    If Wb Is ThisWorkbook Then
        Hide
    Else
        Show
    End If
End Sub

Cho đoạn code sau vào Module.

Public App As clsExcelApp
Sub Auto_Open()
    Set App = New clsExcelApp
    App.Wrap Application
    Hide
End Sub
Sub Auto_Close()
    Set App = Nothing
End Sub
Sub Hide()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",false)"
End Sub
Sub Show()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",true)"
End Sub

Lưu file lại sau đó mở lên xem kết quả.