Question

打开excel时，菜单中（格式--单元格、格式--行、数据--有效性）成灰色？用vba如何实现。

Answer 1

新建一个excel文件,按alt+f11
在VB编辑器,选菜单:插入>模块
选中该模块,在右边填入以下代码:

Private Sub Auto_Open()

With Application.CommandBars("worksheet Menu Bar")
.Controls("格式(O)").Controls("单元格(E)...").Enabled = False
.Controls("格式(O)").Controls("行(R)").Enabled = False
.Controls("数据(D)").Controls("有效性(L)...").Enabled = False
End With

End Sub

Private Sub Auto_Close()

With Application.CommandBars("worksheet Menu Bar")
.Controls("格式(O)").Controls("单元格(E)...").Enabled = True
.Controls("格式(O)").Controls("行(R)").Enabled = True
.Controls("数据(D)").Controls("有效性(L)...").Enabled = True
End With

End Sub

把文件保存,关闭.
重新打开就ok了.

Answer 2

录制宏，再做你要的操作，做完之后停止录制，看录制到的代码就可以了。