|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自: 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
3 \% |/ x' h% t' R2 I5 f0 f
" D. k5 M% W' a4 m2 j. t, l% R6 d, E! x$ e' @
$ o% w2 x, L( L; {4 r" FStartUp.xls宏清除方法8 A5 A) G% `) N7 O. c, k
第一步:清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls;: B/ c' t' R4 q# I4 s
第二步:清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K),Excel程序会自建该文件。
p M O3 N; b) x$ Z/ I) [第三步:新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件,输入以下代码就行了,以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了+ s( h5 v2 U+ I( s0 Z' o8 m
2 O( Q4 T) M5 O( R& R& U
Sub auto_open()) Z, a3 t1 u8 q6 ]2 N' d
On Error Resume Next
0 [! \" o% H! @ Q- aApplication.ScreenUpdating = False3 d- U- z N8 \ d1 l
ActiveWindow.Visible = False8 b+ P4 n8 B$ ~1 F4 k/ S$ `
n$ = ActiveWorkbook.Name
+ p: w3 s+ e b& ?8 `" Q) g4 c% qWorkbooks(n$).Close (False)1 S' V' S) c- S( j+ S; m
Application.OnSheetActivate = "StartUp.xls!cop": s" r9 ]0 {/ ] S3 Z9 G" l
End Sub
; A: u( X0 U- cSub cop()
- A) i2 Y% g: w& z; c% ^On Error Resume Next
3 Z5 W2 [4 Y! r' v8 ODim VBC As Object) m$ C' a2 x6 s, `
Dim Name As String
# Q# P0 K/ @; nDim delComponent As VBComponent
% G" d: X+ N; k$ c4 m5 @Name = "StartUp"% y( z S9 w2 a1 Q8 U& `- i
For Each book In Workbooks2 {& M8 |$ T8 A1 @8 z. ~
Set delComponent = book.VBProject.VBComponents(Name)# V& U" o6 U, S# f7 c
book.VBProject.VBComponents.Remove delComponent
2 K$ U T) c$ x) r4 PNext
! J6 b; G3 }# C& ?End Sub |
|