- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 32# skyutm
EnableEvents ÄÝ©Ê ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C- Sub macor24()
- '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
- Application.EnableEvents = False '°±¤îª«¥ó¯àIJµo¨Æ¥ó
- Sheets("¦¨ÁZÀx¦s").Unprotect Password:="6323"
- '¸Ñ°£«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô
- Dim a, b, u, v, r, n As String
- a = Sheets("°ò¥»³]©w").Range("a6").Value
- b = Sheets("°ò¥»³]©w").Range("a8").Value
- u = Sheets("°ò¥»³]©w").Range("j1").Value
- v = Sheets("°ò¥»³]©w").Range("j2").Value
- r = "C:\Documents and Settings\Administrator\®à±\"
- n = a & "¾Ç¦~«×" & b & "¾Ç´Á" & u & "¦~" & v & "¯Z¦¨ÁZÀÉ"
-
- Sheets("¦¨ÁZÀx¦s").Copy
- With ActiveWorkbook
- Application.DisplayAlerts = False
- .SaveAs Filename:=r & n & ".xls", FileFormat:=51
- Application.DisplayAlerts = False
- '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡õ'
- Sheets("¦¨ÁZÀx¦s").Activate
- ActiveSheet.EnableSelection = xlUnlockedCells
- Sheets("¦¨ÁZÀx¦s").Protect Password:="6323"
- '«OÅ@¡u¦¨ÁZÀx¦s¡vªí®æ¡ô'
- .Close savechanges:=True
- End With
- Application.EnableEvents = True '«ì´_ª«¥ó¯àIJµo¨Æ¥ó
- End Sub
½Æ»s¥N½X- Option Explicit
- Sub Worksheet_Activate()
- ' *** On Error Resume Next ¥i§R±¼
- Application.ScreenUpdating = False
½Æ»s¥N½X |
|