重装不行了吗?
说详细一些。
该Excel文档在其它电脑上面单击右键能弹出快捷菜单吗?
其他Excel文档在该电脑上面单击右键能弹出快捷菜单吗?
使用Word等程序的时候单击右键能弹出快捷菜单吗?
try this one,
SUb resetnormaltoolsbar()
'reset the freqency using toolsbar
dim c, i
c = array("worksheet menu bar", "standard", "Formatting", "bUIlt-in menus", "column", "row", "ply", "cell", "Autocalculate")
' on error reSUme next
For i = lbound(c, 1) to ubound(c, 1)
application.commandbars(c(i)).reset
next i
end SUb