|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
/ e( y( t! k1 ]) q( z- R$ }$ A4 L# f# F- ^
* N! e P, ]6 W
0 K+ B9 I7 ^7 ~/ I! xStartUp.xls宏清除方法
+ E. A/ _8 ?9 p; {( M+ q% U第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；9 Q4 ] g) m, T+ d2 d+ M
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。* ~: T# \/ L$ _+ H
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了- Y! N0 I/ o3 j6 v
[4 U2 b2 X* ]& z$ {
Sub auto_open()
+ W# @# ~7 N, I7 ?On Error Resume Next
) l9 b2 b, D" _2 h5 kApplication.ScreenUpdating = False0 [; \5 j+ I; _
ActiveWindow.Visible = False9 L9 x3 [0 n9 ?9 v
n$ = ActiveWorkbook.Name! }* U% T+ a2 e. W4 S8 D
Workbooks(n$).Close (False)1 W* z# Y! S: `- u
Application.OnSheetActivate = "StartUp.xls!cop"
4 [* J; P2 s7 B$ \+ F0 QEnd Sub
: p2 [ T+ }1 u. \$ r$ R$ tSub cop()2 H1 s8 _" K& `) k
On Error Resume Next
6 ?& Q( i3 P& V" ]; S; mDim VBC As Object" c# X+ C! i# l! C
Dim Name As String, S1 O7 R9 `. ^& z. M
Dim delComponent As VBComponent
) w$ q4 H/ f, `Name = "StartUp": I3 `3 J" _2 E& v3 L1 u
For Each book In Workbooks& l& z% t1 I6 Y. ?: [3 ?: c
Set delComponent = book.VBProject.VBComponents(Name)8 f% g0 o4 ~* q9 E
book.VBProject.VBComponents.Remove delComponent7 i3 w, F. r7 o4 \8 |
Next, j0 d" X" c& z% w
End Sub |
|
楼主