|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
1 q- m" T6 M q+ m8 H- y9 E1 o; n1 y. M% O. W6 Z3 w- B
+ K0 g7 a5 N1 y, H* [6 K' v! ]
' X. ?3 g* w) u# d; ^5 g* D, T
StartUp.xls宏清除方法/ b. {2 g& @7 d4 Z6 y: e
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；
( G: d" r( r/ V& [- i/ B, e* f! I第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
6 P0 O6 G) }! f第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了9 Y8 o$ `; [5 Q
4 L! `. E: B0 y: _9 [
Sub auto_open()# t9 a0 O+ ?" O
On Error Resume Next
' v& P' g1 f$ T& k& s$ P! CApplication.ScreenUpdating = False
1 j4 e0 m; m1 i( s: U3 ~6 @4 \ActiveWindow.Visible = False" b9 w( ?; |! n& j
n$ = ActiveWorkbook.Name/ V! m: b1 d5 K5 \+ r6 d. g2 C) G' s% w
Workbooks(n$).Close (False)8 \8 _% x" |/ w6 ~" s
Application.OnSheetActivate = "StartUp.xls!cop"
2 H8 [/ |6 [0 @) Q3 d' HEnd Sub. A" f( r/ p. @
Sub cop()& b5 n% f1 ^0 N9 f/ ^
On Error Resume Next
8 U4 [0 t* B& h2 A! Z+ H* xDim VBC As Object
5 m$ {3 Z' ^3 Z5 D+ YDim Name As String1 F7 S, W2 x( F% H2 Q- s- p) d2 W) |
Dim delComponent As VBComponent' F; f; p! u6 e
Name = "StartUp", b! }* Q1 I6 |0 \& Y: Q/ z* \% M) _
For Each book In Workbooks" b& b, e! u0 r. i0 S ], i
Set delComponent = book.VBProject.VBComponents(Name)
! H+ u F5 z$ i: {: h! g! h; O& \' Jbook.VBProject.VBComponents.Remove delComponent
0 }6 X3 F$ a7 y, b p. t( a( w# q% DNext2 j0 Q1 v0 C7 X6 F6 e% _) L
End Sub |
|
楼主