[VBA ] 其他使用者開啟時，巨集不會執行？

看板Visual_Basic作者hsnuest (Mr. Grass)時間12年前 (2012/02/16 01:31)推噓2(2推 0噓 10→)

留言12則, 3人參與討論串1/1

【狀況說明】有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: 125.225.7.61 ※ 編輯: hsnuest 來自: 125.225.7.61 (02/16 01:48)

推

ClubT

02/16 08:55, , 1^F

02/16 08:55, 1^F

→

hsnuest

02/16 22:29, , 2^F

02/16 22:29, 2^F

推

yauhh

02/16 22:55, , 3^F

02/16 22:55, 3^F