返回列表 上一主題 發帖

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
複製代碼
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-12-3 23:09 | 只看該作者
回復 1# alex141225


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

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

      則  相關設定就自動失效

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題