[算表] 其他使用者開啟時,巨集不會執行
軟體:
Office 2003 - Excel
【狀況說明】
有N個使用者共同使用一個Excel檔,用以登錄、追蹤某項工作的進度。
因為檔案中設定了很多函數、格式化的條件,
為避免使用者修改這些設定,檔案被設定為保護且非共用的狀態。
但還是有使用者以複製貼上的方式,
將其他來源的函數、格式帶到這份檔案中,
使檔案管理者(也就是我)非常困擾,經常要手動將函數及格式改回來。
(因為檔案還要供給MIS人員分析,並定時寄送給另一個部門的人做為參考,
所以原來設定的函數及格式很重要)
為此,我寫了一個巨集,在這份檔案的工作表中,
禁止"貼上"這個功能(但保留選擇性貼上),
但發生了一個問題:
這個巨集在我的電腦上可以正常執行,
但在其他使用者的電腦上卻都沒有效用(啟用巨集的情況下),
請問各位VBA的高手,其中是不是出了甚麼錯誤?
【編碼】
Private Sub Worksheet_Activate()
With Application
.CommandBars(3).Controls("剪下(&T)").Enabled = True
.CommandBars(3).Controls("複製(&C)").Enabled = True
.CommandBars(3).Controls("貼上(&P)").Enabled = False
.CommandBars("Cell").Controls("剪下(&T)").Enabled = True
.CommandBars("Cell").Controls("複製(&C)").Enabled = True
.CommandBars("Cell").Controls("貼上(&P)").Enabled = False
.CommandBars(1).Controls("編輯(&E)").Controls("剪下(&T)").Enabled =
True
.CommandBars(1).Controls("編輯(&E)").Controls("複製(&C)").Enabled =
True
.CommandBars(1).Controls("編輯(&E)").Controls("貼上(&P)").Enabled =
False
.OnKey "^x"
.OnKey "^c"
.OnKey "^v", ""
End With
End Sub
謝謝!
--
回憶 留給那年初夏的我們。
吉他游泳和單車 還有我的初戀
是微風裡青春的顏色。
你的初吻 是給喜歡你的男生 還是你喜歡的女生。
很多很多年後的你
一定會站在一扇藍色大門前 微笑著 看著我。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.12.84.148