[已解决]代码屏蔽却把不该屏蔽的工作薄也屏蔽了，有何办法？

zxg8zxg8

这是屏蔽代码：

Application.CommandBars(1).Controls("文件(&F)").Enabled = False  '屏蔽文件菜单
Application.CommandBars(1).Controls("编辑(&E)").Enabled = False  '屏蔽编辑菜单
Application.CommandBars(1).Controls("视图(&V)").Enabled = False  '屏蔽视图菜单

很管用，但是却把不该屏蔽的工作薄也屏蔽了
请老师指教

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-17 12:57

在需要屏蔽的工作簿的thisworkbook中写入宏
Private Sub Workbook_Activate()
    Application.CommandBars(1).Controls("文件(&F)").Enabled = False
    Application.CommandBars(1).Controls("编辑(&E)").Enabled = False
    Application.CommandBars(1).Controls("视图(&V)").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
    Application.CommandBars(1).Reset
End Sub

跳转到最佳答案楼层

zjdh

以上代码不可能把工作薄也屏蔽了，一定是有其他代码所为！

zxg8zxg8

这是屏蔽代码：

Application.CommandBars(1).Controls("文件(&F)").Enabled = False  '屏蔽文件菜单
Application.CommandBars(1).Controls("编辑(&E)").Enabled = False  '屏蔽编辑菜单
Application.CommandBars(1).Controls("视图(&V)").Enabled = False  '屏蔽视图菜单

把当前工作薄中的文件菜单，编辑菜单，视图菜单屏蔽后，发现在另外的没有做屏蔽的工作薄也给屏蔽了。我只想把当前工作薄屏蔽，请老师指教！

zxg8zxg8

我只想把当前工作薄中的文件菜单，编辑菜单，视图菜单屏蔽，而不屏蔽其余的工作薄中的文件菜单，编辑菜单，视图菜单。

zjdh

在需要屏蔽的工作簿的thisworkbook中写入宏
Private Sub Workbook_Activate()
    Application.CommandBars(1).Controls("文件(&F)").Enabled = False
    Application.CommandBars(1).Controls("编辑(&E)").Enabled = False
    Application.CommandBars(1).Controls("视图(&V)").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
    Application.CommandBars(1).Reset
End Sub

zxg8zxg8

感谢五楼！！！