excel如何把菜单栏全部隐藏?

我看有人用VB做了个excel应用,打开后,excel上面自带的菜单栏都隐藏了,这是如何做到的?... 我看有人用VB做了个excel应用,打开后,excel上面自带的菜单栏都隐藏了,这是如何做到的? 展开
 我来答
washemeng
高粉答主

推荐于2016-03-25 · 醉心答题,欢迎关注
知道大有可为答主
回答量:6384
采纳率:85%
帮助的人:2144万
展开全部

Excel电子表格,右击“菜单栏”空白处,选择“自定义”,在“工具栏”卡片中,将“工作表菜单栏”前面的对号对掉,即可!如图!

tlxwd
推荐于2016-04-07 · TA获得超过1148个赞
知道大有可为答主
回答量:1592
采纳率:66%
帮助的人:701万
展开全部
Sub 全屏()
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Application.CommandBars(1).Controls("文件(&F)").Visible = True '隐藏工作薄菜单
Application.CommandBars(1).Controls("编辑(&E)").Visible = True
Application.CommandBars(1).Controls("视图(&V)").Visible = True
Application.CommandBars(1).Controls("插入(&I)").Visible = True
Application.CommandBars(1).Controls("格式(&O)").Visible = True
Application.CommandBars(1).Controls("工具(&T)").Visible = True
Application.CommandBars(1).Controls("数据(&D)").Visible = True
Application.CommandBars(1).Controls("窗口(&W)").Visible = True
Application.CommandBars(1).Controls("帮助(&H)").Visible = True
Else
Application.DisplayFullScreen = True
Application.CommandBars(1).Controls("文件(&F)").Visible = False '恢复工作薄菜单
Application.CommandBars(1).Controls("编辑(&E)").Visible = False
Application.CommandBars(1).Controls("视图(&V)").Visible = False
Application.CommandBars(1).Controls("插入(&I)").Visible = False
Application.CommandBars(1).Controls("格式(&O)").Visible = False
Application.CommandBars(1).Controls("工具(&T)").Visible = False
Application.CommandBars(1).Controls("数据(&D)").Visible = False
Application.CommandBars(1).Controls("窗口(&W)").Visible = False
Application.CommandBars(1).Controls("帮助(&H)").Visible = False
End If
End Sub
更多追问追答
追问
你好,这个如何运行,我已经添加好了,但是没有反应?
追答

本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jjdsjeff
2015-05-21 · TA获得超过2052个赞
知道大有可为答主
回答量:2468
采纳率:72%
帮助的人:609万
展开全部

在窗体中加载spreadsheet控件,默认的属性是有常用工具栏,可在spreadsheet控件属性中选择FALSE隐藏。

更多追问追答
追问
你好,为啥我的没有这个控件?需要另外安装吗?
追答

插入用户窗体后,在工具--附加控件中勾选 spreadsheet控件

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
凌文元LWY
高粉答主

2015-05-21 · 每个回答都超有意思的
知道大有可为答主
回答量:3.6万
采纳率:76%
帮助的人:1.3亿
展开全部
不用VB的情况下,双击任一选项卡,也可以隐藏工具栏。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式