一. 我常用的一个最简单的办法,我常用它: 在工具栏上按右键 ,显示自定义工具栏的对话框,然后在键入帮助这个方框的地方按右键,会有 "显示提问框" 的检查框, 取消之就可以了.
二.使用函数
Function SetTypeAQuestionForHelpBox()
'本函数调用 WSH 来修改注册表达到去掉 OFFICE 组件右上角提问框的目的
'请先到 菜单 -> 工具 -> 引用 中去引用如下类库：
'Windows Script Host Object Model
On Error Resume Next
Dim a As New WshShell
'如果采用后引用方式，也可以写如下代码：
'Set a = CreateObject("Wscript.Shell")
'显示提问框，键入需要帮助的问题 这个框的设置选项是在注册表中的一下键位
'HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden
'先显示键的值。注意：如果你从来没有手动设置过“显示提问框”这个选项就没有以下键值。
'因此以下这行会出错。前面已经使用过 On Error Resume Next 可以忽略该错误。
Debug.Print a.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden")
'再修改它（或者建立该键，并赋值）
a.RegWrite "HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden", 1, "REG_DWORD"
End Function
