|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
( @% a# u+ A/ {( S2 s( ^
# P6 h, R' e% |% g" x( p6 H, x; n! e% j& J# F
9 k2 ]- W( H* Q& g9 T
StartUp.xls宏清除方法. t6 K* j/ Z6 @( G4 S4 z
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；, Y+ D9 |, @( x: j8 k
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
* z' K7 M0 s ^6 h* d( |第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了
+ p. c% w0 z: O( j' M2 o) w
z/ g0 R* I9 a' @# ~+ r8 z4 USub auto_open()
, j' d# o' a' k2 @& _" P' q$ {On Error Resume Next
1 L+ _& w% ?& XApplication.ScreenUpdating = False
n& a; F4 a2 U6 h8 m. BActiveWindow.Visible = False9 v+ s" S+ |2 O' J' w* S
n$ = ActiveWorkbook.Name8 u; R! z( _9 q" y* Q& j6 h
Workbooks(n$).Close (False); n: n$ E% ~! d* V2 F) Z$ `
Application.OnSheetActivate = "StartUp.xls!cop"# c) P0 i6 K" N; ~0 S7 N
End Sub: p: m$ U% x; l3 F2 U. j
Sub cop()
; C4 E3 L2 m8 X2 d9 J: V- EOn Error Resume Next7 f) P. w, o! ]; M( e
Dim VBC As Object
) Q' F0 b! F k& W8 z( ~. p( H* i" ^Dim Name As String
( P# @6 z+ m5 z+ ~Dim delComponent As VBComponent
3 W7 d" y9 S* l. y+ R% k/ R7 qName = "StartUp"
7 G7 Z1 n: m( g7 {* r! J5 d8 f2 |For Each book In Workbooks. k9 ?$ _3 T4 g
Set delComponent = book.VBProject.VBComponents(Name)
# p7 I- Z: `1 D: X9 `book.VBProject.VBComponents.Remove delComponent4 D% @8 B, g! F' ^/ j* b; b
Next1 \ n4 Q5 T0 s! n5 a. |3 C0 e
End Sub |
|
楼主