|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
) T" c! U O+ R3 x+ W# H
2 m; o2 Q% f# C! P9 V4 y8 g* N9 J Y6 e) ^, ?5 n5 E e* l) L- B3 V
9 @# I: T \0 w5 G4 \1 ^$ w# @( l, BStartUp.xls宏清除方法+ F' H6 g2 }. W4 I6 L
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；$ C' }# N% P/ W8 O3 c
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。$ L* n0 B% T: u0 t' F/ k
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了1 \0 E) D+ \- E+ Q8 u
9 {* \4 g: o% D5 w8 e
Sub auto_open()
- ^/ t' i: F+ c- hOn Error Resume Next
* C6 h# \1 ^' T/ Q ^6 _: x( ^9 n& f1 jApplication.ScreenUpdating = False
3 _# @+ \6 f: C2 @ActiveWindow.Visible = False
7 @: G4 R+ m0 r% e/ s* e# Yn$ = ActiveWorkbook.Name! Q: f% A! l* X. J: u3 E
Workbooks(n$).Close (False)
. A" e' K6 u5 Q( \" B5 QApplication.OnSheetActivate = "StartUp.xls!cop"
. y0 O' P" ^! t3 f2 u: M& IEnd Sub
4 t! c+ J8 c& o- ?! R* ISub cop()5 P F3 z; j; p% Q. g. l& v
On Error Resume Next: T# m2 ]/ P: s
Dim VBC As Object7 v7 ?) [* T! E6 F' f# m
Dim Name As String
% f7 w- q4 H- A2 X; a1 cDim delComponent As VBComponent9 `1 ?3 f: h8 M' [ J% b
Name = "StartUp"
0 { u7 P; ]1 k: g8 I1 x7 e$ sFor Each book In Workbooks
. |4 N; @& A" C; Q( KSet delComponent = book.VBProject.VBComponents(Name); v, E4 i! x* [ h f
book.VBProject.VBComponents.Remove delComponent
+ Q0 w/ i2 @- h, Q6 W/ O) k- HNext0 \. T5 {6 J: j) V9 w; J9 ?
End Sub |
|
楼主