|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
9 h2 k( u6 T& w% f# s0 O5 h0 i A6 R) G- X$ i2 O0 X' D0 k0 d
! B% M# {1 s) N
1 b1 t1 y: J- s, }+ O. VStartUp.xls宏清除方法; |8 e' a) } m, {( D9 C6 {' Z! @. Z
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；' C& n! ~$ K% _, k. p$ d6 E
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
* Z5 V2 d W! `6 l5 I9 ?第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了# f) G2 f$ @3 h; u; s6 S
1 _3 X5 L( @: h5 D5 c. R
Sub auto_open()
# E/ U, c$ E' A/ q% h5 V/ N# {0 g3 oOn Error Resume Next
4 d' k+ f& K/ ?0 c# t( I$ PApplication.ScreenUpdating = False
1 P2 Z. v8 E8 n0 m9 kActiveWindow.Visible = False
6 `9 H4 t3 s' S" }2 @$ An$ = ActiveWorkbook.Name
+ ?$ B& v3 C: V* e- O$ U$ y, F4 [, UWorkbooks(n$).Close (False). B9 J$ V! T1 L$ \
Application.OnSheetActivate = "StartUp.xls!cop"
/ X6 r. [# ]% _8 LEnd Sub: }, j3 j" E) w. d; ?5 F
Sub cop()
0 T9 s/ I4 t6 x0 FOn Error Resume Next' Z- h6 l+ ?$ v4 k. c4 ?: v2 p
Dim VBC As Object
1 N7 [2 } ^3 d8 F) J$ R! _Dim Name As String
; {- [" |/ k! r1 a Q1 E2 K0 dDim delComponent As VBComponent3 X& k. Z7 |0 r1 p( @
Name = "StartUp"7 Q/ q& R4 T/ [9 Q6 g3 E
For Each book In Workbooks2 Q: n; o: }3 I6 _3 r
Set delComponent = book.VBProject.VBComponents(Name)
e! w& w- p5 _+ d, {5 Hbook.VBProject.VBComponents.Remove delComponent7 `! y5 f) o% D5 F7 E6 t; r+ ^7 _
Next
$ _. ]7 d4 _5 S, X, E' U' ?) kEnd Sub |
|
楼主