標題: 關於巨集轉貼問題!內容如下.. [打印本頁]

---

作者: 天魔黑羽    時間: 2010-12-23 00:14     標題: 關於巨集轉貼問題!內容如下..

小弟設定由內頁A的資料用巨集按鍵執行
內頁A的資料會複製>貼在內頁B
如果無保護頁面鎖可以直接貼上
但是有設定保護頁面鎖會顯示無法1004錯誤訊息...
小弟有設定解鎖的巨集...會無法執行
麻煩大大幫忙..解決....感恩!

---

作者: Hsieh    時間: 2010-12-23 08:20

回復 1# 天魔黑羽
執行並無問題
可能是你在vbe中執行
但總表成為作用中工作表所造成
指明工作表試試

1. Sub 執行()
   
2. With Sheets("總表")
   
3.     .Unprotect "0000"
   
4.      Sheets("key").Range("A2:C5").Copy .[A2]
   
5.     .Protect "0000"
   
6. End With
   
7. End Sub

複製代碼

---

作者: GBKEE    時間: 2010-12-23 16:57

回復 1# 天魔黑羽
你的錯誤是因為先copy 然後解除保護時,系統無法保存copy的資料而產生的.
可參考Hsieh版主的程式 來執行
下面程式碼是針對 你原來程序來修改

1. Sub 執行()
   
2.     'Rows("2:5").Select
   
3.     'Selection.Copy
   
4.     Sheets("總表").Select
   
5.     With ActiveSheet
   
6.         .Unprotect "0000"
   
7.         Sheets("key").Rows("2:5").Copy
   
8.         .Rows("2:2").Select
   
9.        ' ActiveSheet.Paste
   
10.         .Paste
    
11.         .Protect "0000"
    
12.     End With
    
13.     Sheets("key").Select
    
14. End Sub

複製代碼

---

作者: 天魔黑羽    時間: 2010-12-28 21:17

感謝 GBKEE&Hsieh 兩位大大幫助
但小弟看GBKEE大大的執行碼;流程是這樣
先複製>總表>解開>複製執行貼上>鎖上>回KEY?
而小弟先去總表>解開>KEY(複製)>總表(貼上)>鎖上>回KEY
未什麼無法執行˙˙...是差在哪邊...!請大大抬教

---

作者: GBKEE    時間: 2010-12-29 08:21

回復 4# 天魔黑羽
傳上你的檔案看看

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)