☰

有没有办法禁用 MS Word 2010 的文件关闭（ctrl+w）快捷方式？

tag-icon • tag-icon keyboard-shortcuts microsoft-word-2010
有没有办法禁用 MS Word 2010 的文件关闭（ctrl+w）快捷方式？

发生了一起事故，在一份尚未保存的长文档上按下CTRL+键，所有未保存的工作都消失了。有没有办法禁用 MS Word 2010 的文件关闭快捷方式？W

答案1

是的，但请注意，它仅适用于您的计算机。如果您移动计算机，键盘快捷键仍会存在。

  1. 在Word 2010， 按文件，选项。
  2. 打开自定义功能区标签。
  3. 按键盘快捷键：自定义...按钮。
  4. 选择类别所有命令， 命令文件关闭。
  5. 选择当前键Ctrl+W并按下消除窗口底部的按钮。
  6. 按关闭， 然后好的。

如果要查看映射到键盘快捷键的命令的名称，可以在按新的快捷键框，它会告诉您使用该快捷键的命令的名称。例如，按Ctrl+N它会显示“当前分配给：FileNewDefault”。

答案2

有一种方法！

代码是 VB 代码，因此格式崩溃了，我GitHub 页面并将BuildKeyCode(wdKeyBackspace)修改为BuildKeyCode(wdKeyControl,wdKeyW)。

Attribute VB_Name = "NewMacros"  
Public backspace_disabled As Boolean  

Sub disable_backspace()
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB, wdKeyShift, wdKeyControl), KeyCategory:=wdKeyCategoryMacro, Command:="print_hello_world"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyBackspace), KeyCategory:=wdKeyCategoryMacro, Command:="empty_function"
End Sub

Public Sub print_hello_world()
Dim aKey As KeyBinding
For Each aKey In KeyBindings
   If aKey.KeyCode = BuildKeyCode(wdKeyBackspace) Then
       If backspace_disabled Then
       MsgBox ("disable_backspace")
       'KeyBindings.Add backspace_fake
       aKey.Rebind KeyCategory:=wdKeyCategoryMacro, Command:="empty_function"
       Else
       'FindKey(BuildKeyCode(wdKeyBackspace)).Execute
       MsgBox ("enable_backsapc")
       'MsgBox ("bye")
       aKey.Disable
       End If
   End If
Next aKey
backspace_disabled = Not backspace_disabled
End Sub

Public Sub empty_function()
End Sub

相关内容