如何彻底隐藏编辑栏

大海潮

4.工具是变成灰色了,但视图里又有编辑栏了,一点又上去了,难啊

5.怎么恢复

不看不看

楼主 先这样

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
Application.CommandBars(1).Controls("工具(&T)").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Application.CommandBars(1).Controls("工具(&T)").Enabled = False
End Sub
知道代码该放在那里吧

不看不看

这样

Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
Application.CommandBars(1).Controls("工具(&T)").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
Application.CommandBars(1).Controls("工具(&T)").Enabled = True
End Sub

hhzjxss

班长有点子倒挺多！

不看不看

QUOTE:

以下是引用hhzjxss在2007-12-1 15:40:00的发言：

班长有点子倒挺多！

13楼是最好的办法 兰版指导的 以后这类问题可以照此办理[em01][em01]

oobird

Sub yy()
Application.DisplayFormulaBar = False
Application.CommandBars("View").Controls("資料編輯列(F)").Enabled = False
End Sub
繁体字请自行变更

大海潮

我已试了多次,觉得还不太理想,总是视图里还能点编辑栏,是否有实例,谢谢各位老师的再次帮忙

不看不看

呵呵 偶就不信了 楼主 13楼的是工作薄事件 要放在 ThisWorkbook里

不看不看

7L71Vruj.rar (7.07 KB, 下载次数: 51)

2007-12-1 16:52 上传

点击文件名下载附件
如何彻底隐藏编辑栏

大海潮

是的,和我的一样,工具是变灰了,但是你打开视图,编辑栏打钩,不是又上去了吗