使用道具 举报
用代码
呵呵 还没想好 先出个馊主意
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.DisplayFormulaBar = FalseEnd Sub
不行的,编辑栏是隐藏了,视图里的编辑栏也变成灰色了,但是打开工具,选项里的编辑栏打上钩,工作表里就又有了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)是工作表事件 是要放在表里的代码
上面这段虽然无法使 打开工具,选项里的编辑栏打上钩,工作表里就又有了 失效
但是只要任意选一下单元格 编辑栏就又没了
只是不能完全达到楼主的要求
要不再隐藏菜单栏
呵呵 又一个馊主意 这样试试
Sub XX() Application.DisplayFormulaBar = False Application.CommandBars(1).Controls("工具(&T)").Enabled = FalseEnd Sub
发现有点问题:
1.代码运行后达到效果,但再重新打开一个工作表,工具也变成灰色了
2.将以上两样代码合并,可以达到效果,但再重新打开一个工作表,工具也变成灰色了
3.也不知我合并的对不对,反正将两个代码都放在工作表事件里了
4.工具是变成灰色了,但视图里又有编辑栏了,一点又上去了,难啊
要退出时恢复,就没事了。
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-3-29 02:14 , Processed in 0.404031 second(s), 8 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.