標題: 2007 防止複製 [打印本頁]

---

作者: alex141225    時間: 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
    
18. 
    
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
    
34. 
    
35. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
36. 
    
37. End Sub

複製代碼

---

作者: mark15jill    時間: 2013-12-3 23:09

回復 1# alex141225


    這問題 很久以前有討論過...

     結論就是 只要 新開檔案  將巨集功能關閉...

      則  相關設定就自動失效

---

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