删除/列出所有键盘快捷键VBA excel
我们办公室的某人已经将一个macros分配给Ctrl + D。 这是令人沮丧的，因为它已经在Excel中的function。
Excel使得您可以轻松地在开发人员>macros指定一个macros，我知道，如果我推这个菜单中的选项，我可以看到哪些键被分配到哪里。 这个工作簿中的macros列表是相当大的，我不想单独打开每个macros。
这是列在哪里？ 我以为这个地方有个日志？ 这是最接近我可以findmsdn，但我需要在macroworkbook中分配的macros： https ://msdn.microsoft.com/en-us/library/hh179479(v = nav.90).aspx
按ALT + F11转到您的项目模块。 你可以在这里find快捷键vbamacros编码。 如果你想保留它，那么不需要做其他的事情，你可以select全部，删除和保存并closures文件。
感谢@GSerg指出了这一点，我将在这里发布这个完整性来closures这个问题。 来源是：
https://groups.google.com/forum/#!topic/microsoft.public.excel.worksheet.functions/TwcT-IlWjVk
To use this Macro (Sub), <alt-F8> opens the macro dialog box. Select the macro by name, and <RUN>. =================================================== Option Explicit 'MUST set to Trust Access to the VBA Project Object Model ' in Excel Options 'Set reference to: 'Microsoft Visual Basic for Applications Extensibility 'Microsoft Scripting Runtime 'Microsoft VBScript Regular Expressions 5.5 Sub ListMacroShortCutKeys() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As CodeModule Dim LineNum As Long Dim ProcKind As VBIDE.vbext_ProcKind Dim sProcName As String, sShortCutKey As String Const FN As String = "C:\Temp\Temp.txt" Dim S As String Dim FSO As FileSystemObject Dim TS As TextStream Dim RE As RegExp, MC As MatchCollection, M As Match Set RE = New RegExp With RE .Global = True .IgnoreCase = True .Pattern = "Attribute\s+(\w+)\.VB_ProcData\.VB_Invoke_Func = ""(\S+)(?=\\)" End With Set FSO = New FileSystemObject Set VBProj = ActiveWorkbook.VBProject For Each VBComp In VBProj.VBComponents Select Case VBComp.Type Case Is = vbext_ct_StdModule VBComp.Export FN Set TS = FSO.OpenTextFile(FN, ForReading, Format:=TristateFalse) S = TS.ReadAll TS.Close FSO.DeleteFile (FN) If RE.Test(S) = True Then Set MC = RE.Execute(S) For Each M In MC Debug.Print VBComp.name, M.SubMatches(0), M.SubMatches(1) Next M End If End Select Next VBComp End Sub ==============================