如何从未出现在工具 > 宏 > 宏中的宏中删除热键？
我安装了一个加载项，Excel 自动为其分配了热键“CTRL+U”。我希望 Ctrl+U 保留其原始功能，在单元格中为文本加下划线。
请注意，加载项 (.xla) 是从 Excel 菜单栏运行的——它在工具 > 宏 > 宏中不可见，因此无法从工具 > 宏 > 宏 > 选项更改热键。
我在各种版本的 Excel 中使用此加载项，所以如果说明因版本而异，请告诉我。
谢谢！
附加信息：插件（我写的）没有设置快捷键。它是由 Excel 单方面分配的。
Private Sub Workbook_Open()
Set XLApp = New clsExcelEvents ' start monitoring events
Set SC = New clsStatementConverter ' initialize some variables
If CountVisibleWorkbooks > 0 Then
Call SetMenuOptions ' update the menu bar
End If
End Sub
设置菜单选项（）：
Public Sub SetMenuOptions(Optional IsDisableOptions As Boolean = False)
' Set the enabled/disabled status of the "Convert to QB" menu options
'
' If config files exist in the same directory as the current workbook,
' enable the menu options. Otherwise, disable.
' To force the sub-menu to be disabled (last visible workbook is
' being closed), set IsDisableOptions to True
'
On Error GoTo Error_Handler
Dim blnEnableOptions As Boolean
' Default to menu options not enabled
blnEnableOptions = False
Application.ScreenUpdating = False
'
' Is a visible workbook open?
If (Not IsDisableOptions) And (Not ActiveWorkbook Is Nothing) Then
' Yes, there is an active workbook. Are any of my config files in
' the same directory as this workbook?
Dim aryFiles() As String
aryFiles = GetListOfConfigFiles(ActiveWorkbook.Path)
' Are there any files? (is the array initialized?)
If IsInitializedArray(aryFiles) Then
If (UBound(aryFiles) > 0) Then
' Yes, there is at least one config file
blnEnableOptions = True
End If
End If
End If
'
' If disable: set all options to disabled, except for the "About..."
' If enable: (1) set all _installed_ converters to enabled (if a converter
' has not been installed, don't enable it)
' (2) enable all other menu options
' (3) rebuild the list of config files
Dim cbcMenu As CommandBar
Dim cbcConverterMenu As CommandBarControl
Dim cbcViewConfigMenu As CommandBarControl
Dim cbcControl As CommandBarControl
Dim blnMenuIsInstalled As Boolean
'
Set cbcMenu = Application.CommandBars("Worksheet Menu Bar")
'
' Is the Converter menu installed?
' This Sub is called after the menu is deleted (when the add-in is uninstalled), so
' trap for the menu not existing before enabling/disabling the sub-menu options, below
blnMenuIsInstalled = False
For Each cbcControl In cbcMenu.Controls
If cbcControl.Caption = "&Convert to QB" Then
blnMenuIsInstalled = True
End If
Next
'
If blnMenuIsInstalled Then
Set cbcConverterMenu = cbcMenu.Controls("&Convert to QB")
Set cbcViewConfigMenu = cbcConverterMenu.Controls("View config...")
'
' Step 1: Disable/Enable the controls for this menu
' If Disable, then disable all controls except "About"
' If Enable, then enable all controls for which converters are installed
For Each cbcControl In cbcConverterMenu.Controls
' Keep "About" enabled
If cbcControl.Caption <> "About..." Then
cbcControl.Enabled = blnEnableOptions
End If
Next
'
' Step 2: Rebuild the list of config files
If blnEnableOptions Then
' If a system configuration file exists in the ActiveWorkbook directory, read it
SC.ConfigFilePath = ActiveWorkbook.Path & Application.PathSeparator
' Test for the system config filename
SC.SystemConfigFilename = GetConfigFilename(SC, True)
' Was a system config file found?
If SC.SystemConfigFilename <> "" Then
' Yes, get user settings from the config file
Call GetConfigSettings(SC.ConfigFilePath, SC.SystemConfigFilename)
End If
'
' Delete the existing menu options to view config files
For Each cbcControl In cbcViewConfigMenu.Controls
cbcControl.Delete
Next
' Add a menu option to view for each config file
Dim lCtr As Long, strMenuItem As String
For lCtr = 1 To UBound(aryFiles)
strMenuItem = aryFiles(lCtr)
With cbcViewConfigMenu
.Controls.Add(type:=msoControlButton).Caption = strMenuItem
.Controls(strMenuItem).OnAction = "'ThisWorkbook.ViewTextFile """ & strMenuItem & """'"
End With
Next
End If
End If
Application.ScreenUpdating = True
GoTo Exit_Handler
Error_Handler:
MsgBox Err.Number, "SetMenuOptions", Err.Description, Err.HelpFile, Err.HelpContext
GoTo Exit_Handler
Exit_Handler:
Exit Sub
End Sub