|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
4 \: R; F k C4 F @8 Q% b2 A7 Z- ~) k" H' h4 h `
2 P: h( I1 s: _) ?9 b% o2 V u. ^
6 N- e! s" ?# ~! [
StartUp.xls宏清除方法" r0 j) I3 M; o7 M/ D
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；
# O0 E4 D1 R# c+ S$ }第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
8 N) n3 ?" C& N3 C0 C J第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了* T& m) ? ~6 P/ G1 j! P# ]
C7 _% {$ c3 V0 {+ wSub auto_open()" m) G) ~% V* x# ]' t; g, V" Q
On Error Resume Next$ q# K& C# S6 m0 E; h. G) E5 [
Application.ScreenUpdating = False; h v5 ?+ [& x* K; Z! K# X8 j, n
ActiveWindow.Visible = False
1 L m- a1 A" k; ?$ h# E! b- v7 A- A# xn$ = ActiveWorkbook.Name! N% {9 r5 j. H* i4 b0 P
Workbooks(n$).Close (False)
7 F& @% N, ]* B. f8 N, j; U! PApplication.OnSheetActivate = "StartUp.xls!cop"
' z: E3 B6 W! n6 yEnd Sub
0 P" c; z' j0 W+ Q0 G4 jSub cop()9 I$ ^" Q u. a6 J
On Error Resume Next0 |4 b2 w( z7 R5 z! V
Dim VBC As Object
% c' s3 q# ?0 v, a' ZDim Name As String/ v% p; g8 v0 e/ m# m+ G* O' H+ B
Dim delComponent As VBComponent
, r0 K7 a- |# x: RName = "StartUp". @, V1 k. @5 E! Z" L6 M1 v# R
For Each book In Workbooks7 X1 v" P* u" h) v/ C
Set delComponent = book.VBProject.VBComponents(Name)
: b* b7 n0 m) B, S2 u& ~, jbook.VBProject.VBComponents.Remove delComponent/ a/ ~. R( \ a: j
Next
3 o* Q5 u2 }. i4 iEnd Sub |
|
楼主