自己随便建个窗体及按钮,执行一下,下次打开就永远起效了
Private Sub 隐藏复制功能_Click()
CommandBars("RDPMenu-Data").Controls(9).Visible = False '隐藏粘贴功能
CommandBars("RDPMenu-Data").Controls(8).Visible = False '隐藏复制功能
CommandBars("RDPMenu-Data").Controls(7).Visible = False '隐藏剪切功能
MsgBox "RDPMenu-Data右键菜单隐藏复制功能完成"
End Sub
相关参考:http://www.accessoft.com/article-show.asp?id=9907