Vọc chơi với Popup Menu !!!

[anhtuan1066]

Một ngày nào đó, bổng dung bạn right click trên cell vào phát hiện ra điều kỳ lạ... Ở đâu ra hàng đóng Item... rồi lại có khi right click trên cell, phát hiện ra mấy Item đó mất tiêu hết... hi... hi... Xin tặng các bạn món đồ chơi vọc phá kiểu như vậy... Nghĩa là.. thích thì Add cái gì đó vào Popup menu... buồn buồn thì xoá bớt vài cái chơi.. cho thiên hạ ngạc nhiên...
Và đây:
Xoá "Cut" Item:

Sub Del_Item()
CommandBars("Cell").Controls("Cut").Delete
End Sub

Thích xóa cái gì thì điền vào... chẳng hạn xoá "Paste" Item thì....

Sub Del_Item()
CommandBars("Cell").Controls("Paste").Delete
End Sub

Nhưng... phục hồi thì sao? Hơi căng... vì mỗi 1 Item mang 1 ID riêng và bạn phải nhớ nó thì mới phục hồi dc...
Chẳng hạn Add "Cut" Item:

Sub Add_Item()
CommandBars("Cell").Controls.Add Type:=msoControlButton, _
ID:=21, Before:=1
End Sub

và Add "Paste" Item

Sub Add_Item()
CommandBars("Cell").Controls.Add Type:=msoControlButton, _
ID:=22, Before:=1
End Sub

Và hình như ko có quy luật gì về mấy ID này cả... Tôi gữi kèm theo đây ds ID của toàn bộ Item, đễ các bạn vọc xong thì biết cách mà phục hồi lại...
Hi... hi...
ANH TUẤN

 

[dmtdmtbb]

- Bác vô đây tải cái Add-In này sẽ biết được số của Faceids
http://www.j-walk.com/ss/excel/tips/tip67.htm