Vô hiệu hóa Menu Toolbar và nút Customize

[tuantienlocdb]

Có bạn nào biết cách vô hiệu hóa Menu Toolbar và nút Customize thì chỉ cho mình biết với. Lưu ý hộ mình là Menu Toolbar có cả ở trong nút Customize khi ta bật lên bằng nút phải chuột vào các thanh Menu. Xin cảm ơn các bạn rất nhiều!!!!!!!!

 

[SoiBien]

Có bạn nào biết cách vô hiệu hóa Menu Toolbar và nút Customize thì chỉ cho mình biết với. Lưu ý hộ mình là Menu Toolbar có cả ở trong nút Customize khi ta bật lên bằng nút phải chuột vào các thanh Menu. Xin cảm ơn các bạn rất nhiều!!!!!!!!

Bạn sử dụng 2 sub này nhé.

[color=darkblue]Sub[/color] disableCustommizeToolbar()
    CommandBars("view").FindControl(ID:=30045).Enabled = [color=darkblue]False[/color]
    CommandBars("Toolbar List").Enabled = [color=darkblue]False[/color]
    [color=darkblue]Set[/color] myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
    [color=darkblue]For[/color] [color=darkblue]Each[/color] myct [color=darkblue]In[/color] myControls
        myct.Enabled = [color=darkblue]False[/color]
    [color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Sub[/color] EnableCustommizeToolbar()
    CommandBars("view").FindControl(ID:=30045).Enabled = [color=darkblue]True[/color]
    CommandBars("Toolbar List").Enabled = [color=darkblue]True[/color]
    [color=darkblue]Set[/color] myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
    [color=darkblue]For[/color] [color=darkblue]Each[/color] myct [color=darkblue]In[/color] myControls
        myct.Enabled = [color=darkblue]True[/color]
    [color=darkblue]Next[/color]
[color=darkblue]End[/color] Sub

 

[ongtrungducmx25]

zậy còn vô hiệu hóa các thanh menu:File,edit,view,tools,windown,data,inset
sau không làm luôn cho em được nhờ pác nhỉ

 

[Duong gia]

Bạn sử dụng 2 sub này nhé.

[COLOR=darkblue]Sub[/COLOR] disableCustommizeToolbar()
    CommandBars("view").FindControl(ID:=30045).Enabled = [COLOR=darkblue]False[/COLOR]
    CommandBars("Toolbar List").Enabled = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]Set[/COLOR] myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] myct [COLOR=darkblue]In[/COLOR] myControls
        myct.Enabled = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Sub[/COLOR] EnableCustommizeToolbar()
    CommandBars("view").FindControl(ID:=30045).Enabled = [COLOR=darkblue]True[/COLOR]
    CommandBars("Toolbar List").Enabled = [COLOR=darkblue]True[/COLOR]
    [COLOR=darkblue]Set[/COLOR] myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=797)
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] myct [COLOR=darkblue]In[/COLOR] myControls
        myct.Enabled = [COLOR=darkblue]True[/COLOR]
    [COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] Sub

SoiBien bạn có biết vô hiệu hóa biểu tượng "excel" phía trên góc trái màn hình (gần chữ File) không cho mình xin với. Thanks

 

[SoiBien]

zậy còn vô hiệu hóa các thanh menu:File,edit,view,tools,windown,data,inset
sau không làm luôn cho em được nhờ pác nhỉ

Mấy cái menu này nằm trong commandbar Worksheet Menu Bar

nên đoạn code để disable nó bạn có thể dùng

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

To Duong_gia: disable thanh Worksheet Menu Bar thì cũng disable luôn biểu tượng đó. còn chỉ disable mỗi biểu tượng đó thôi thì e rằng mình ko làm được, chắc phải nhờ bác TuanVNUNI dùng hàm API của Window chăng, cái này thì mình mù tịt.

P/S: bạn cũng có thể tạo một thanh commandbar mới chứa các command button của thanh "Worksheet Menu Bar", rồi disable thanh "Worksheet Menu Bar" cũ đi. Ví dụ:

[color=darkblue]Sub[/color] createnewWksMenuBar()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    [color=darkblue]Set[/color] newWMB = CommandBars.Add("NewWksMenuBar")
    newWMB.Visible = [color=darkblue]True[/color]
    newWMB.Position = msoBarFloating    [color=green]'msoBarTop[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] myct [color=darkblue]In[/color] CommandBars("Worksheet Menu Bar").Controls
        myct.Copy Bar:=newWMB
    [color=darkblue]Next[/color]
    CommandBars("Worksheet Menu Bar").Enabled = [color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Sub[/color] resetWksMenuBar()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    CommandBars("NewWksMenuBar").Delete
    CommandBars("Worksheet Menu Bar").Enabled = [color=darkblue]True[/color]
[color=darkblue]End[/color] Sub

Thân

 

[ongtrungducmx25]

vô hiệu hoá disableCustommizeToolbar,EnableCustommizeToolbar,WorksheetMenuBaran và WorksheetMenuBarhien
cho các bạn tham khảo!

 

[chidunglk]

Mình rất thích các câu hỏi và phần trả lời ở trên, vì mình đang tìm nó rất lâu rồi
Mình đã từng sưu tâm được 1 file excel, khi khởi động lên thì tất cả các thanh menu, công cụ, định dạng đều biến mât, trong file excel đó còn có dòng chữ ghi tên tác giả bay nhảy lên nhảy xuống, không biết làm sao mà được hiệu ứng như vậy, giống powper point vậy. Các bạn đã gặp chưa?

 

[PhanTuHuong]

SoiBien bạn có biết vô hiệu hóa biểu tượng "excel" phía trên góc trái màn hình (gần chữ File) không cho mình xin với. Thanks

Cái này mình mò mãi cũng chưa ra, vì nó là 1 thành phần nên chắc là không cho biến được.

 

[thanhnhanubnd]

1. Customize không triệt để , nhấn đúp là vô lại được.
2. Có cách nào ẩn toolsbar không?

Thank