|
|
|
|
|
|
|
|
|
Multiple Apps
|
Remove the Ask A Question Dropdown
|
|
|
Ease of Use
|
Easy
|
|
Version tested with
|
2000, 2002
|
|
Submitted by:
|
Justinlabenne
|
|
Description:
|
Hides / Disables the Ask A Question Dropdown that can be found on Excel 2002 (XP) and up.
|
|
Discussion:
|
Excel 2002 introduced the "Ask A Question Dropdown" that can be found on the Worksheet menu bar in all Office XP applications.
To customize your Excel application and prevent your user from using this option, this code will disable it / enable it. When it is disabled, it disappears entirely. The code checks to make sure it is version compatible as the "Ask a question" option is not available in versions prior to 2002. Nothing happens if you try to run it in a previous version.
Although an example is not included, this works for Access also
|
|
Code:
|
instructions for use
|
Option Explicit
Sub StopAskingQuestions()
Dim objCBarTemp As Object
With Application
If Val(.Version) >= 10 Then
Set objCBarTemp = .CommandBars
objCBarTemp.DisableAskAQuestionDropdown = True
End If
End With
Set objCBarTemp = Nothing
End Sub
Sub AgainWithTheQuestions()
Dim objCBarTemp As Object
With Application
If Val(.Version) >= 10 Then
Set objCBarTemp = .CommandBars
objCBarTemp.DisableAskAQuestionDropdown = False
End If
End With
Set objCBarTemp = Nothing
End Sub
|
|
How to use:
|
- Open an Excel Workbook
- Copy the code
- Press Alt + F11 to open the Visual Basic Editor (VBE)
- Select INSERT > MODULE from the menubar
- Paste code into the right pane
- Press Alt+Q to return to Excel
- Save workbook before any other changes
|
|
Test the code:
|
- Go to TOOLS > MACRO > MACROS
- When the dialog appears, select {StopAskingQuestions}
- Press Run
-
- To Re-enable it
- Go to TOOLS > MACRO > MACROS
- When the dialog appears, select {AgainWithTheQuestions}
- Press Run
|
|
Sample File:
|
Ask Questions.zip 21.97KB
|
|
Approved by mdmackillop
|
|
This entry has been viewed 68 times.
|
|
|