|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題. g9 V& f- z7 _- U0 `; X- O. U
3 ^2 r4 m$ k2 F2 M" u9 d/ ^
8 t5 z5 k2 r' r# h, ?3 w" z4 m" t: {, b
StartUp.xls宏清除方法
$ F K) J0 z( O: ?第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；
0 @6 j$ m( c6 f7 M6 i. A第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
8 L; k5 {, f5 C$ z/ M. }第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了
, F( n+ ?; t& F' z& I f& J
+ L1 l. ~7 _0 @. {; P, f4 |Sub auto_open()
2 G6 I, P2 i/ u, D' }9 k( }3 a0 }On Error Resume Next8 L0 @, ]( B) S4 J1 r; Z3 }# P
Application.ScreenUpdating = False
/ I* t: n1 _$ `& c5 k2 d3 _" fActiveWindow.Visible = False
8 t( }( n3 T6 Wn$ = ActiveWorkbook.Name6 `$ [, j, ?2 t; P* A; U
Workbooks(n$).Close (False)# C9 I: A5 Y" x U( f, v
Application.OnSheetActivate = "StartUp.xls!cop"# U1 f( e2 x; J6 i3 K4 O
End Sub/ o, S" X* Q! P7 Q+ X3 f/ w
Sub cop()" Z$ }8 E# V- S5 i1 _- C4 |
On Error Resume Next; n% @& g) e$ P: K# C
Dim VBC As Object
4 i/ h3 T6 d, R9 x8 fDim Name As String
4 a6 r0 ?/ a' E! G! PDim delComponent As VBComponent, T2 s' X2 p! Y: E) X% N
Name = "StartUp"
, o& x7 E+ t, J6 S. M. tFor Each book In Workbooks ~+ B1 \7 |9 d
Set delComponent = book.VBProject.VBComponents(Name)' B t# T; `3 d7 @! l0 s/ ^5 I
book.VBProject.VBComponents.Remove delComponent
( d) l$ j# e5 M6 _+ `; q( x# ^Next
5 m* u9 A0 g; d% UEnd Sub |
|
楼主