Board logo

標題: [發問] 如何在EXCEL 2010 禁止複製剪下貼上 [打印本頁]
作者: justintoolbox    時間: 2015-4-16 09:55     標題: 如何在EXCEL 2010 禁止複製剪下貼上

各位前輩好
如下圖，想請問有沒有辦法把EXCEL2010版的紅色框線一併禁止呢？
[attach]20666[/attach]
目前從網路搜尋結果只有 快捷鍵部分 以及 右鍵選單 可以禁止。
如附件[attach]20665[/attach]
作者: twispin    時間: 2015-4-16 10:09

使用"工具"-->保護-->保護工作表
作者: justintoolbox    時間: 2015-4-16 10:31

使用"工具"-->保護-->保護工作表
twispin 發表於 2015-4-16 10:09


前輩！這方法行不通呀！還是可以複製.....:(
作者: minture3    時間: 2015-4-16 16:30

回復 3# justintoolbox
是要只給看嘛?
試試勾選這個
[attach]20674[/attach]
作者: justintoolbox    時間: 2015-4-16 17:57

  1. '*** In the ThisWorkbook Module ***
  2. Option Explicit

  4. Private Sub Workbook_Activate()
  5.     Call ToggleCutCopyAndPaste(False)
  6. End Sub

  8. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  9.     Call ToggleCutCopyAndPaste(True)
  10. End Sub

  12. Private Sub Workbook_Deactivate()
  13.     Call ToggleCutCopyAndPaste(True)
  14. End Sub

  16. Private Sub Workbook_Open()
  17.     Call ToggleCutCopyAndPaste(False)
  18. End Sub
  19. '*** In a standard module ***
  20. Option Explicit

  22. Sub ToggleCutCopyAndPaste(Allow As Boolean)
  23.      'Activate/deactivate cut, copy, paste and pastespecial menu items
  24.     Call EnableMenuItem(21, Allow) ' cut
  25.     Call EnableMenuItem(19, Allow) ' copy
  26.     Call EnableMenuItem(22, Allow) ' paste
  27.     Call EnableMenuItem(755, Allow) ' pastespecial
  28.      
  29.      'Activate/deactivate drag and drop ability
  30.     Application.CellDragAndDrop = Allow
  31.      
  32.      'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
  33.     With Application
  34.         Select Case Allow
  35.         Case Is = False
  36.             .OnKey "^c", "CutCopyPasteDisabled"
  37.             .OnKey "^v", "CutCopyPasteDisabled"
  38.             .OnKey "^x", "CutCopyPasteDisabled"
  39.             .OnKey "+{DEL}", "CutCopyPasteDisabled"
  40.             .OnKey "^{INSERT}", "CutCopyPasteDisabled"
  41.         Case Is = True
  42.             .OnKey "^c"
  43.             .OnKey "^v"
  44.             .OnKey "^x"
  45.             .OnKey "+{DEL}"
  46.             .OnKey "^{INSERT}"
  47.         End Select
  48.     End With
  49. End Sub

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

  63. Sub CutCopyPasteDisabled()
  64.      'Inform user that the functions have been disabled
  65.     MsgBox "Sorry!  Cutting, copying and pasting have been disabled in this workbook!"
  66. End Sub
複製代碼
作者: justintoolbox    時間: 2015-4-16 18:03

前輩們，小的貼上代碼了如上，前輩們目前提供的是『禁止選擇儲存格』來達到禁止複製的目的，但是我我僅要『禁止複製、剪下、貼上』，要能保留可以選擇儲存格（因為若要篩選某些儲存格就需要選擇了）。感恩！有無更好的方法呢？？？
作者: justintoolbox    時間: 2015-4-17 08:52

目前找到一個方法是開啟活頁簿就先把RIBBON給隱藏起來。代碼如下
（資料來源：http://www.mrexcel.com/forum/excel-questions/634090-visual-basic-applications-hide-ribbon-others-how-limit-one-workbook.html）
  1. Private Sub Workbook_Activate()

  3.     Application.ScreenUpdating = False
  4.     Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
  5.     Application.DisplayFormulaBar = False
  6.     Application.DisplayStatusBar = Not Application.DisplayStatusBar
  7.     ActiveWindow.DisplayWorkbookTabs = False
  8.     Application.ScreenUpdating = True

  10. End Sub
複製代碼
  1. Code:
  2. Private Sub Workbook_Deactivate()

  4.     Application.ScreenUpdating = False
  5.     Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
  6.     Application.DisplayFormulaBar = True
  7.     Application.DisplayStatusBar = True
  8.     Application.ScreenUpdating = True

  10. End Sub
複製代碼
但填入上面後，就發現一個問題：就是不能用快捷鍵篩選了！怎麼辦？
我想要禁止複製剪下貼上的功能，但篩選的功能還是需要，請問這裡的高手前輩
有沒有更好的方法呢？？
作者: justintoolbox    時間: 2015-4-17 09:09

我還有試過IRM的認證方法，他可以用授權的方式給予三種『讀取』，『變更』、『完全控制』。
『讀取』：禁止任何複製剪下貼上的功能（ribbon上的也禁止了），但是我要的篩選也一併不能使用。
『變更』：能複製剪下貼上--->所以不是我要的。

有沒有介於讀取與變更之間的
如下圖，僅把『檢視』與『編輯』授與呢？[attach]20681[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)