Tắt thanh menu

[chibi]

Các bạn cho hỏi, tôi muốn tắt thanh menu khi mở 1 workbook và đã dùng

Application.CommandBars("Worksheet Menu Bar").Visible = False

trong sự kiện Workbook_Activate() và Workbook_Open() nhưng đều báo lỗi.
Xin cho cách khắc phục.

 

[digita]

Bạn thử cái code sau nha (tôi thì không dám thử). Nhưng nói trước nhá cái nầy là bạn hỏi thì tôi trả lời thôi. Nếu có chạy được thì bạn tự tìm cách khôi phục cái menu. Good luck.

Sub MenuOff()
for c = 30002 to 30010
[FONT=Arial][SIZE=2][COLOR=#000080]Application.CommandBars.FindControl(ID:=c).Enabled = False[/COLOR][/SIZE][/FONT]
Next
Application.DisplayFormulaBar = False
End sub

 

[tedaynui]

Gởi Chibi
Chibi dùng đoạn code này xem

Application.CommandBars("Worksheet Menu Bar").[B]Enabled [/B]= False

TDN

 

[chibi]

Bạn thử cái code sau nha (tôi thì không dám thử).

Tính em đã nhát mà các pác cứ hay doạ.

Application.CommandBars("Worksheet Menu Bar").Enabled = False​

Cảm ơn tedaynui, hiệu quả ngay.

 

[tedaynui]

Cái này cũng lạ, khi mình Record Macro thì VBA ghi lai là

Application.CommandBars("Worksheet Menu Bar").[FONT=mon][B]Visible[/B][/FONT]= False

Nhưng vào VBA cho chạy lại đúng macro vừa ghi thì bị báo lỗi. Phải sửa lại là

Application.CommandBars("Worksheet Menu Bar").[FONT=mon][B]Enabled[/B][/FONT]= False

thì chạy OK ???

TDN

 

[phamduylong]

Các bạn cho hỏi, tôi muốn tắt thanh menu khi mở 1 workbook

Bạn chép đoạn code này vào trong 1 module, khi mở workbook nó sẽ tự dộng xóa hết các menu trên thanh menu, nhưng thanh menu vẫn còn. Bạn có thể thêm menu riêng của bạn.

Sub Auto_Open()
For Each MenuName In MenuBars(xlWorksheet).Menus
  MenuName.Delete
Next
End Sub