返回列表 上一主題 發帖

2007 防止複製

alex141225

帖子
7 
主題
5 
精華
0 
積分
8 
點名
0  
作業系統
windows xp 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2013-11-13 
最後登錄
2015-10-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-25 08:44 | 顯示全部帖子

2007 防止複製

各位前輩好:
我爬文找到這個
寫到EXCEL後
發現2007板的會自動關閉巨集
那我要用什麼方法才能讓他自動啟動呢
不然也無法達到保護EXCEL
不想讓別人複製內容的功能
  1. Sub disCopy()
  2. Dim copyCtls As CommandBarControls
  3. Dim copyCtl As CommandBarControl
  4.     Application.CutCopyMode = False
  5.     '尋找所有 [複製] 按鈕, 其ID為19
  6.     Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  7.     '將所有 [複製] 按鈕功能取消
  8.     For Each copyCtl In copyCtls
  9.         copyCtl.Enabled = False
  10.     Next
  11.     '取消 [複製] 快捷鍵
  12.     Application.OnKey "^c", ""
  13.     '工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕可移動並產生副本
  14.     '因此一并禁止
  15.     Application.CommandBars("ply").Controls(5).Enabled = False
  16.     '以上應該就無法複製了
  17. End Sub

  19. Sub enCopy()
  20. Dim copyCtls As CommandBarControls
  21. Dim copyCtl As CommandBarControl
  22.     '尋找所有 [複製] 按鈕, 其ID為19
  23.     Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  24.     '將所有 [複製] 按鈕功能恢復
  25.     For Each copyCtl In copyCtls
  26.         copyCtl.Enabled = True
  27.     Next
  28.     '恢復 [複製] 快捷鍵
  29.     Application.OnKey "^c"
  30.     '恢復工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕功能
  31.     Application.CommandBars("ply").Controls(5).Enabled = True
  32.     '以上應該就可以複製了
  33. End Sub

  35. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  37. End Sub
複製代碼
收藏 分享

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題