黑色火山地板娘怎么打:EXCEL 禁止复制粘贴

Private Sub Workbook_Open()
With Application         '禁止拖曳复制
    Application.CellDragAndDrop = False
     '禁止自动填充
     .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         '恢复拖曳复制
    Application.CellDragAndDrop = True
     '恢复自动填充
     .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  另： Sub auto_open()         '打开文件执行的宏
If Environ("COMPUTERNAME") <> "Administrator" Then       '验证计算机用户不是指定名称时执行
Call 强行关闭文件            '调用宏
End If
End Sub