excel2007:如何实现禁止复制粘贴-excel不能复制粘贴,excel表格内容无法复制

使用宏，如果鼠标点到禁止区域，则光标直接跳到其他位置

输入的话，用宏设计几个弹出框就可以 了，哇哈哈~~~~

你试试：

'*** In a standard module ***
Option Explicit 

Sub ToggleCutCopyAndPaste(Allow As Boolean) 
      'Activate/deactivate cut, copy, paste and pastespecial menu items
     Call EnableMenuItem(21, Allow) ' cut
     Call EnableMenuItem(19, Allow) ' copy
     Call EnableMenuItem(22, Allow) ' paste
     Call EnableMenuItem(755, Allow) ' pastespecial
      
      'Activate/deactivate drag and drop ability
     Application.CellDragAndDrop = Allow 
      
      'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
     With Application 
         Select Case Allow 
         Case Is = False 
             .OnKey "^e799bee5baa6e997aee7ad94e58685e5aeb9333c", "CutCopyPasteDisabled" 
             .OnKey "^v", "CutCopyPasteDisabled" 
             .OnKey "^x", "CutCopyPasteDisabled" 
             .OnKey "+{DEL}", "CutCopyPasteDisabled" 
             .OnKey "^{INSERT}", "CutCopyPasteDisabled" 
         Case Is = True 
             .OnKey "^c" 
             .OnKey "^v" 
             .OnKey "^x" 
             .OnKey "+{DEL}" 
             .OnKey "^{INSERT}" 
         End Select 
     End With 
End Sub 

Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 
      'Activate/Deactivate specific menu item
     Dim cBar As CommandBar 
     Dim cBarCtrl As CommandBarControl 
     For Each cBar In Application.CommandBars 
         If cBar.Name <> "Clipboard" Then 
             Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) 
             If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled 
         End If 
     Next 
End Sub 

Sub CutCopyPasteDisabled() 
      'Inform user that the functions have been disabled
     MsgBox "Sorry!  Cutting, copying and pasting have been disabled in this workbook!" 
End Sub 

'*** In the ThisWorkbook Module ***
Option Explicit 

Private Sub Workbook_Activate() 
     Call ToggleCutCopyAndPaste(False) 
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
     Call ToggleCutCopyAndPaste(True) 
End Sub 

Private Sub Workbook_Deactivate() 
     Call ToggleCutCopyAndPaste(True) 
End Sub 

Private Sub Workbook_Open() 
     Call ToggleCutCopyAndPaste(False) 
End Sub

1、表百设计完成之后，首先右键点选右上角的空白处，实现表格全选。

2、在右键快捷菜单中选择度“设置单元格格式”，在打开的界面中选择“保护”，将里面的“锁定”勾选项去掉并保存。

3、然后，选择需要保护的单元格区域，同样右键菜单选择“设置单元格格式”，在打开的界面中选择“保护”，将里面的“锁定”勾选项加上并专保存。

4、接着，我们点击“审阅”菜单中的“保护工作表”，在弹出的对话框中录入密码进行保护。

5、录入两遍密码确定之后属（也可以不录），我们再试试复制锁定的单元格，此时会有提示单元格受保护。而在保护区域之外的单元格还能正常录入填写。