RCRG

回復 17# 准提部林


    如果來源檔( 修改檔)與目標檔(使用檔)都被保護著，那麼VBA我自己改成如下，但用起來感覺有點怪怪的，好像有時會複製成功，有時會沒複製到，是那兒有問題嗎?

Private Sub Workbook_Open()
Dim MyB As Workbook, xB As Workbook, xFile$
Set MyB = ThisWorkbook
xFile = ThisWorkbook.Path & "\修改資料夾\修改檔.xls"  '路徑檔名自行修改
Application.ScreenUpdating = False
Set xB = Workbooks.Open(xFile, ReadOnly:=True)

ActiveSheet.Unprotect "123" '先取消保護

xB.Sheets("工作表A").[A1:H500].Copy MyB.Sheets("工作表a").[A1]
xB.Sheets("工作表B").[AA1:AB20].Copy MyB.Sheets("工作表b").[AA1]
xB.Close 0

ActiveSheet.Protect "123" '重新設定保護
End Sub

RCRG

回復 19# 准提部林


    原來如此，"不一定是目標檔或來原檔" 這句提醒了我;

那可以改幫我寫成貼上目標檔前，先解開目標檔的保護，再貼上目標檔，最後再恢復目標檔的保護嗎?

RCRG

回復 21# 准提部林


   謝謝准大指教，有時間的話的確自己測試遠比貼上收穫的多，也很羨慕你們能用專業替他人解答，這是我們新手努力的目標，再次謝謝解題。