[VBA精品课] A01030 - 显示/隐藏常用工具栏 - P17

发表于 2019-3-15 15:58:41 | 显示全部楼层 |阅读模式

您需要登录才可以下载或查看，没有账号？注册

Public Sub 技巧1_030()
+ s; u% R X/ h7 r8 A7 d- p
'隐藏常用工具栏
+ X' s' I9 D: q9 f+ t
Application.CommandBars("Standard").Visible = False! |8 @; x; u, o. M! ~- S4 p1 o
If MsgBox("常用工具栏被隐藏!" & vbCrLf & "是否重新显示常用工具栏?", _
9 H& a0 I/ `- |6 D* G3 U
vbQuestion + vbYesNo) = vbNo Then Exit Sub) r4 E" T- h2 Z' k
'显示常用工具栏
: V/ p; m' h4 r: R0 [' c" e
Application.CommandBars("Standard").Visible = True
. {5 v9 m" r, m5 l: f
End Sub

复制代码

新大榭Python学习社区培训、Excel业务指导、办公软件定制、网站建设；新大榭探索实验室欢迎您！http://lab.daxie.net.cn/

Q群推荐大榭本地求职招聘QQ群，欢迎转发分享本地招聘信息资讯! 官方招聘1群（已满）；官方招聘2群：315816937 *

GMT+8, 2026-2-26 23:06 , Processed in 0.071389 second(s), 19 queries , Gzip On.

		自动登录	找回密码
密码			注册