|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題 N) S) y9 k. R) R% v# o0 ^) m
- K/ D7 x) O0 d q; \+ Q0 H$ J
6 _2 U' H: {3 S, o
' ~/ P" p; _+ S& @! M" O( [StartUp.xls宏清除方法
' C' O7 c# J0 J( x& @第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；) x: |# p4 U" P3 E% F5 M
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。& k; v4 Z9 Y8 v; S
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了" t. t0 b# z. M3 e7 f) ~: D" j( j
7 {5 {+ @% \2 B4 H5 K: e2 u
Sub auto_open(); C" `* v# s L4 K p( U, l5 Y
On Error Resume Next" i7 F ^1 |3 d2 Y+ j$ a
Application.ScreenUpdating = False
, w9 Q W* L0 r3 F' j6 o; r# zActiveWindow.Visible = False
( ]6 ]: J C& U9 C6 Cn$ = ActiveWorkbook.Name
& t9 s$ P) ?& i+ x+ V* Z1 CWorkbooks(n$).Close (False): h8 M3 b4 [1 W% I/ {3 A
Application.OnSheetActivate = "StartUp.xls!cop"
9 t" Y; v# ?, \. P" ^9 sEnd Sub/ r' G# L5 V2 N( @2 S# w
Sub cop()
6 i+ z) t3 L" z, r# POn Error Resume Next+ B8 ~& Z6 \2 u* F7 s6 Y
Dim VBC As Object- C0 v! r' Q; r7 V7 G
Dim Name As String
, g6 U' P3 q* l; J: s- {7 ]! B1 ?+ DDim delComponent As VBComponent3 {- k* y* f6 D6 H7 w
Name = "StartUp"
( s) A0 K% @5 B* IFor Each book In Workbooks
T: q' s. z( W+ \Set delComponent = book.VBProject.VBComponents(Name)2 T5 G" T" M+ c; m0 ?1 M& s) F
book.VBProject.VBComponents.Remove delComponent
% @9 q2 p. H% B, j3 M' J; U9 LNext; M( x p: Q2 h
End Sub |
|
楼主