返回列表 上一主題 發帖

Worksheet_Deactivate() 程序啟動失敗?? (已解決)

riceeric

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2012-3-15 
最後登錄
2012-9-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-15 14:04 | 只看該作者

Worksheet_Deactivate() 程序啟動失敗?? (已解決)

本帖最後由 riceeric 於 2012-3-16 09:34 編輯

我有個取消拖拉儲存格的事件Code，但是Worksheet_Deactivate()這個程序在同一個Excel檔切換到另一個工作表時會啟動這個事件
但是從這個工作表點開另一個Excel檔這個事件卻不會被執行
更奇怪的是我換部電腦嘗試這個檔案，有3台卻可以，有1台跟我的一樣不行
有高手可以幫我解惑嗎?
---------------------------------------Code為我為了鎖住拖拉儲存格以及複製功能寫的
  1. '啟動此工作表事件
  2. Private Sub Worksheet_Activate()
  3. '禁止拖拉儲存格
  4. Application.CellDragAndDrop = False
  5. Dim copyCtls As CommandBarControls
  6. Dim copyCtl As CommandBarControl
  7. Application.CutCopyMode = False
  8. '尋找所有 [複製] 按鈕, 其ID為19
  9. Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  10. '將所有 [複製] 按鈕功能取消
  11. For Each copyCtl In copyCtls
  12. copyCtl.Enabled = False
  13. Next
  14. '取消 [複製] 快捷鍵
  15. Application.OnKey "^c", ""
  16. '工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕可移動並產生副本
  17. '因此一并禁止
  18. Application.CommandBars("ply").Controls(5).Enabled = False
  19. '以上應該就無法複製了
  20. End Sub


  23. '移出此工作表程序
  24. Private Sub Worksheet_Deactivate()
  25.     '系統恢復拖拉功能
  26.     Application.CellDragAndDrop = True
  27.     Dim copyCtls As CommandBarControls
  28. Dim copyCtl As CommandBarControl
  29.     '尋找所有 [複製] 按鈕, 其ID為19
  30.     Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  31.     '將所有 [複製] 按鈕功能恢復
  32.     For Each copyCtl In copyCtls
  33.         copyCtl.Enabled = True
  34.     Next
  35.     '恢復 [複製] 快捷鍵
  36.     Application.OnKey "^c"
  37.     '恢復工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕功能
  38.     Application.CommandBars("ply").Controls(5).Enabled = True
  39.     '以上應該就可以複製了
  40. End Sub
複製代碼
收藏 分享
Eric.Tu

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-3-15 15:36 | 只看該作者
回復 1# riceeric
從這個工作表點開另一個Excel檔這個事件卻不會被執行
該是用  ThisWorkbooK的 Deactivate 事件
  1. Private Sub Workbook_Deactivate()
  2.     Run "Sheet1.Worksheet_Deactivate"
  3. End Sub
複製代碼

TOP

riceeric

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Window XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2012-3-15 
最後登錄
2012-9-18 
3#
發表於 2012-3-16 09:34 | 只看該作者
回復 2# GBKEE


    感激不盡，可以用了∼:)
Eric.Tu

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題