GBKEE

¦^´_ 32# skyutm
EnableEvents ÄÝ©Ê ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C

1. Sub macor24()
   
2.     '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
   
3.    Application.EnableEvents = False  '°±¤îª«¥ó¯àIJµo¨Æ¥ó
   
4.     Sheets("¦¨ÁZÀx¦s").Unprotect Password:="6323"
   
5.     '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô
   
6.     Dim a, b, u, v, r, n As String
   
7.     a = Sheets("°ò¥»³]©w").Range("a6").Value
   
8.     b = Sheets("°ò¥»³]©w").Range("a8").Value
   
9.     u = Sheets("°ò¥»³]©w").Range("j1").Value
   
10.     v = Sheets("°ò¥»³]©w").Range("j2").Value
    
11.    r = "C:\Documents and Settings\Administrator\®à­±\"
    
12.     n = a & "¾Ç¦~«×" & b & "¾Ç´Á" & u & "¦~" & v & "¯Z¦¨ÁZÀÉ"
    
13.    
    
14.     Sheets("¦¨ÁZÀx¦s").Copy
    
15.     With ActiveWorkbook
    
16.          Application.DisplayAlerts = False
    
17.          .SaveAs Filename:=r & n & ".xls", FileFormat:=51
    
18.          Application.DisplayAlerts = False
    
19.          '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
    
20.          Sheets("¦¨ÁZÀx¦s").Activate
    
21.          ActiveSheet.EnableSelection = xlUnlockedCells
    
22.          Sheets("¦¨ÁZÀx¦s").Protect Password:="6323"
    
23.          '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô'
    
24.          .Close savechanges:=True
    
25.     End With
    
26.     Application.EnableEvents = True '«ì´_ª«¥ó¯àIJµo¨Æ¥ó
    
27. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. Sub Worksheet_Activate()
   
3. ' ***  On Error Resume Next  ¥i§R±¼
   
4.     Application.ScreenUpdating = False

½Æ»s¥N½X