[原创][分享]隐藏菜单栏中“键入需要帮助的问题”的下拉列表

zldccmx

Application.CommandBars.DisableAskAQuestionDropdown =1  '隐藏菜单栏中“"键入需要帮助的问题"ˇ”的下拉列表框

Application.CommandBars.DisableAskAQuestionDropdown =0  '显示菜单栏中“"键入需要帮助的问题"ˇ”的下拉列表框

在四楼有附件 为证，绝不唬人!

[此贴子已经被作者于2006-8-17 21:31:22编辑过]

来生缘

方法和数据成员找不到

huyongapple

EXCEL2003成功隐藏了菜单栏中“键入需要帮助的问题”的下拉列表框。

zldccmx

QUOTE:

以下是引用来生缘在2006-8-17 21:14:30的发言：
方法和数据成员找不到

不会呀 刚刚试验通过。 WIN XP +EXCEL 2003,绝对没有问题的。有附件为证。

Private Sub Workbook_Open()
Application.DisplayAlerts = False:Application.Visible = False ' 请将附件中这条指令改为 Application.Visible = True 上
 Application.ScreenUpdating = 0
If Val(Application.Version) <= 8 Then ThisWorkbook.Close
'上句的作用是：若OFFICE的版本是97或其以下，禁止运行本软件
Application.CommandBars("Worksheet Menu Bar").Enabled = False '禁用常规菜单
Application.DisplayFormulaBar = False        '禁用编辑栏
Application.CommandBars.DisableAskAQuestionDropdown = 1

'开始.Show  '启动开始窗口
End Sub

NBhwgLHf.rar (5.99 KB, 下载次数: 93)

2006-8-17 21:27 上传

点击文件名下载附件
[分享]隐藏菜单栏中“"键入需要帮助的问题"ˇ”的下拉列表框

补充说明：附件上传太急，请先打开VBA窗口再打开附件，将附件中这条指令Application.Visible = False 改为 Application.Visible = True ，否则看不到EXCEL窗口

[此贴子已经被作者于2006-8-17 21:37:35编辑过]

dnss

谢谢分享!   [em17]

来生缘

第三杯茶

谢谢分享!

zldccmx

QUOTE:

以下是引用来生缘在2006-8-18 18:40:02的发言：

缘哥哥，那是因为你已经将它禁用了吧？!ＥＸＣＥＬ中如果这个“键入需要帮助的问题”的下拉列表 已经被你删除了或者是禁用了当然会报错呀！

聪明一世，糊涂一时吧？！

F_MILLION

谢谢了[em02]

hhzjxss

楼主只说了隐藏，没有显示，我弄了半天才恢复过来：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True '启用常规菜单
Application.DisplayFormulaBar = True        '启用编辑栏
Application.CommandBars.DisableAskAQuestionDropdown = 0 '显示菜单栏中“"键入需要帮助的问题"ˇ”的下拉列表框

End Sub

Private Sub Workbook_Open()
Application.DisplayAlerts = True
Application.Visible = True '界面
 Application.ScreenUpdating = 0
If Val(Application.Version) <= 8 Then ThisWorkbook.Close
'上句的作用是：若OFFICE的版本是97或其以下，禁止运行本软件
Application.CommandBars("Worksheet Menu Bar").Enabled = False '禁用常规菜单
Application.DisplayFormulaBar = False        '禁用编辑栏
Application.CommandBars.DisableAskAQuestionDropdown = 1 '隐藏菜单栏中“"键入需要帮助的问题"ˇ”的下拉列表框

'开始.Show  '启动开始窗口
End Sub