億看為中小型企業提供,無費用負擔,能持續 使用 的標準化ERP系統。 並以此為座右銘,開發最先進的功能。我們具有以下特點: ◑ 費用透明,免安裝費、免 ... ... <看更多>
excel 按鈕 無法使用 在 Excel 啟用巨集就當掉 - Mobile01 的推薦與評價
連開個新檔案後, 加個按鈕後(VBA都還沒寫), 按下按鈕也當>.< 由於我急著要用到VBA , 所以我就直接砍掉重練了 在重灌前, 已經google 了二 ... ... <看更多>
excel 按鈕 無法使用 在 excel無法啟用巨集 :: 讀書心得分享網站 的推薦與評價
讀書心得分享網站,excel巨集按鈕無法使用,excel巨集設定反灰,microsoft已封鎖巨集執行因為此檔案的來源不受信任,excel 2010無法執行巨集,excel 2013無法啟用巨集, ... ... <看更多>
excel 按鈕 無法使用 在 [問題] EXCEL VBA 會影響到其它EXCEL檔案- 看板Office 的推薦與評價
最近在設計公司要用到的EXCEL出勤表
設計好整個EXCEL後,發現若是使用者隨便複製其它欄位到另一個欄位貼上
原本的欄位的格式化條件就會被修改到,導致顯示異常
由於之後會有很多人使用,又難以要求每個人都能正確使用
所以開始研究VBA,從估狗找到一條可以禁止複製功能的VBA,也成功
但後來發現,一旦開啟VBA,其它EXCEL也會無法使用複製的功能
甚至出勤表關閉後,其它EXCEL依然無法使用複製功能
原先以為是巨集存放在的選項選到所有開啟的活頁簿
因此重新建立巨集,將巨集存放設定在出勤表的EXCEL中,但結果還是一樣....Orz
怕到時推出來,造成其它人的EXCEL無法複製造成他們的困擾
想請問一下,可不可以限制VBA只在出勤表的EXCEL使用,而不干涉其它EXCEL檔案?
又或是有什麼EXCEL複製貼上功能只會單純貼上值?
以下是EXCEL的巨集
Sub disCopy()
Dim copyCtls As CommandBarControls
Dim copyCtl As CommandBarControl
Application.CutCopyMode = False
'尋找所有 [複製] 按鈕, 其ID為19
Set copyCtls = Application.CommandBars.FindControls(ID:=19)
'將所有 [複製] 按鈕功能取消
For Each copyCtl In copyCtls
copyCtl.Enabled = False
Next
'取消 [複製] 快捷鍵
Application.OnKey "^c", ""
'工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕可移動並產生
副本
'因此一并禁止
Application.CommandBars("ply").Controls(5).Enabled = False
'以上應該就無法複製了
End Sub
Sub enCopy()
Dim copyCtls As CommandBarControls
Dim copyCtl As CommandBarControl
'尋找所有 [複製] 按鈕, 其ID為19
Set copyCtls = Application.CommandBars.FindControls(ID:=19)
'將所有 [複製] 按鈕功能恢復
For Each copyCtl In copyCtls
copyCtl.Enabled = True
Next
'恢復 [複製] 快捷鍵
Application.OnKey "^c"
'恢復工作表標籤右鍵所跳出來的 "ply" 工具列"移動或複製(M)..." 按鈕功能
Application.CommandBars("ply").Controls(5).Enabled = True
'以上應該就可以複製了
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.41.178 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1596590891.A.267.html
... <看更多>