|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自: 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題/ L7 y! }/ k% d7 Q6 e
$ a$ k& {3 E8 M" }* `( w' c9 c
: g0 w5 Q9 d- Q& j
F$ c- {# s4 b7 ]
StartUp.xls宏清除方法
; W; |" H9 d1 a: L第一步:清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls;7 x! d+ f/ t; E9 X1 a
第二步:清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K),Excel程序会自建该文件。% l$ t, [; `" a0 Q7 R
第三步:新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件,输入以下代码就行了,以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了) B0 `$ j* q+ N1 J% ^
! F' U$ v" `- P( f! {2 V0 YSub auto_open()
# m$ j8 c/ O: X% u6 _: |& ZOn Error Resume Next- ` ?& d& K+ [- t5 r; x4 a
Application.ScreenUpdating = False- q% U3 O- s, }4 w( O
ActiveWindow.Visible = False
6 _% R6 G# j/ X2 Hn$ = ActiveWorkbook.Name; k- `5 s( N0 w. k
Workbooks(n$).Close (False)! ~2 f( ~$ M' l6 t& E- z
Application.OnSheetActivate = "StartUp.xls!cop"
b0 R) B; r$ C2 PEnd Sub
1 Y8 s4 d9 a" K" p- OSub cop()
% x, z" G, P5 t' ^- ZOn Error Resume Next
- O' [/ u- e$ e% f4 x6 N1 sDim VBC As Object
- A0 x% c( X: ^+ M% I8 ADim Name As String& S3 m6 O3 L& x4 i( S* @6 Z4 }. C
Dim delComponent As VBComponent* p/ x% W% I! r$ `5 V7 U. \
Name = "StartUp"
7 Z$ l3 D( Q- eFor Each book In Workbooks
I: j- z, a) u- ]0 HSet delComponent = book.VBProject.VBComponents(Name)
. o$ a: P+ ^! N$ U8 `/ ^book.VBProject.VBComponents.Remove delComponent
- y) F6 J9 m1 k( `3 wNext
0 \9 M8 G. L) e9 A' J4 c8 m# ~End Sub |
|