Code làm ẩn menu

[hongtruong101186]

Các bác giúp em đoạn Code mà khi khởi động Excel nên thì các menu Item đều bị mờ đi.

 

[Hai Lúa Miền Tây]

Các bác giúp em đoạn Code mà khi khởi động Excel nên thì các menu Item đều bị mờ đi.

1) Đóng Menubar
-Nếu ẩn luôn thì bạn dùng code sau:

Sub Dong()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = False
    Next
End Sub

-Để mở lại dùng code sau:

Sub Mo()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = True
    Next
End Sub

Nếu bạn muốn khi mở file ra nó ẩn thì vào ThisWork Book gọi macro "Dong" như sau:

Private Sub Workbook_Open()
Call Dong
End Sub

2) Ẩn Menubar

Bạn xem hình bên dưới về các mã của thanh menu, để ẩn cái nào thì bạn ẩn cái đó thôi:

Bạn dùng code sau để ẩn
VD: Tôi cho ẩn "File" thì mã số của file là 30002

Sub An()
 Application.CommandBars.FindControl(ID:=30002).Enabled = False
End Sub

Mở nó ra thì bạn thay Enabled=True

Sub BoAn()
 Application.CommandBars.FindControl(ID:=30002).Enabled = True
End Sub

Bạn tham khảo thêm file nhé
Thân

 

[sealand]

Bạn lưu ý phải đặt thêm sub sau

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call boan
Call mo
End Sub

Như vậy để khôi phục tình trạng bình thường, tránh ảnh hưởng tới Exc khi sử dụng file khác