EXCEL VBA禁用和启用快捷键

最新推荐文章于 2024-08-19 14:41:36 发布

HiRuyue

最新推荐文章于 2024-08-19 14:41:36 发布

阅读量4.5k

点赞数 1

分类专栏： VBA VB

VBA 同时被 2 个专栏收录

24 篇文章 0 订阅

订阅专栏

10 篇文章 0 订阅

订阅专栏

Private Sub Workbook_Open()
With Application
     '禁止自动填充
     .CellDragAndDrop = False
    
     '屏蔽常用工具栏剪切、复制、粘贴
     .CommandBars(3).Controls("剪切(&T)").Enabled = False
     .CommandBars(3).Controls("复制(&C)").Enabled = False
     .CommandBars(3).Controls("粘贴(&P)").Enabled = False
   
     '屏蔽单元格右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Cell").Controls("剪切(&T)").Enabled = False
     .CommandBars("Cell").Controls("复制(&C)").Enabled = False
     .CommandBars("Cell").Controls("粘贴(&P)").Enabled = False
    
     '屏蔽列右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Column").Controls("剪切(&T)").Enabled = False
     .CommandBars("Column").Controls("复制(&C)").Enabled = False
     .CommandBars("Column").Controls("粘贴(&P)").Enabled = False
    
     '屏蔽行右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Row").Controls("剪切(&T)").Enabled = False
     .CommandBars("Row").Controls("复制(&C)").Enabled = False
     .CommandBars("Row").Controls("粘贴(&P)").Enabled = False
   
     '屏蔽编辑菜单中的剪切、复制、粘贴命令
     .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False
     .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
     .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False
     '屏蔽键盘剪切、复制、粘贴键
     .OnKey "^x", ""
     .OnKey "^c", ""
     .OnKey "^v", ""
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
     '恢复自动填充
     .CellDragAndDrop = True
    
     '恢复常用工具栏剪切、复制、粘贴
     .CommandBars(3).Controls("剪切(&T)").Enabled = True
     .CommandBars(3).Controls("复制(&C)").Enabled = True
     .CommandBars(3).Controls("粘贴(&P)").Enabled = True
   
     '恢复单元格右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Cell").Controls("剪切(&T)").Enabled = True
     .CommandBars("Cell").Controls("复制(&C)").Enabled = True
     .CommandBars("Cell").Controls("粘贴(&P)").Enabled = True
    
     '恢复列右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Column").Controls("剪切(&T)").Enabled = True
     .CommandBars("Column").Controls("复制(&C)").Enabled = True
     .CommandBars("Column").Controls("粘贴(&P)").Enabled = True
    
     '恢复行右键菜单中的剪切、复制、粘贴命令
     .CommandBars("Row").Controls("剪切(&T)").Enabled = True
     .CommandBars("Row").Controls("复制(&C)").Enabled = True
     .CommandBars("Row").Controls("粘贴(&P)").Enabled = True
   
     '恢复编辑菜单中的剪切、复制、粘贴命令
     .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = True
     .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = True
     .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = True
    
     '恢复键盘剪切、复制、粘贴键
     .OnKey "^x"
     .OnKey "^c"
     .OnKey "^v"
End With
End Sub