GBKEE

回復 30# skyutm
加一行On Error Resume Next，這樣就可以解決了。（不知這樣有無風險嗎？）
是有的 如有錯誤的語法或變數書寫錯誤, VBA是不處裡的.
請附檔看看

skyutm

回復 31# GBKEE
版大您好！再次感謝。附上檔案。工作表是「成績儲存」它是「學籍簿」工作表的複製。巨集是macro24

GBKEE

回復 32# skyutm
EnableEvents 屬性 如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。

1. Sub macor24()
   
2.     '解除保護「成績儲存」表格↓'
   
3.    Application.EnableEvents = False  '停止物件能觸發事件
   
4.     Sheets("成績儲存").Unprotect Password:="6323"
   
5.     '解除保護「成績儲存」表格↑
   
6.     Dim a, b, u, v, r, n As String
   
7.     a = Sheets("基本設定").Range("a6").Value
   
8.     b = Sheets("基本設定").Range("a8").Value
   
9.     u = Sheets("基本設定").Range("j1").Value
   
10.     v = Sheets("基本設定").Range("j2").Value
    
11.    r = "C:\Documents and Settings\Administrator\桌面\"
    
12.     n = a & "學年度" & b & "學期" & u & "年" & v & "班成績檔"
    
13.    
    
14.     Sheets("成績儲存").Copy
    
15.     With ActiveWorkbook
    
16.          Application.DisplayAlerts = False
    
17.          .SaveAs Filename:=r & n & ".xls", FileFormat:=51
    
18.          Application.DisplayAlerts = False
    
19.          '保護「成績儲存」表格↓'
    
20.          Sheets("成績儲存").Activate
    
21.          ActiveSheet.EnableSelection = xlUnlockedCells
    
22.          Sheets("成績儲存").Protect Password:="6323"
    
23.          '保護「成績儲存」表格↑'
    
24.          .Close savechanges:=True
    
25.     End With
    
26.     Application.EnableEvents = True '恢復物件能觸發事件
    
27. End Sub

複製代碼

1. Option Explicit
   
2. Sub Worksheet_Activate()
   
3. ' ***  On Error Resume Next  可刪掉
   
4.     Application.ScreenUpdating = False

複製代碼

skyutm

感謝版大！我又去網路上找了一下有關EnableEvents的資料，讓我多上了一課，也圓滿的解決這個問題了。