如何用VBA隐藏右键菜单中的浮动工具栏？

　　【问题】
     如何用VBA隐藏右键菜单中的浮动工具栏？

　　【解答】

　　代码如下：

　　Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

　　Cancel=True

　　Application.CommandBars("cell").ShowPopup

　　End Sub