|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題8 R2 s6 {( `+ Y1 ?; A
8 d7 l( ], v/ T: q3 y/ H
+ F1 T" [, v6 q
A( q, M3 I& f3 ^! |StartUp.xls宏清除方法
Z2 C+ a8 n' p Z第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；: O* x H- K& ^6 m9 T1 G
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。" i h" e, M& c7 g% a$ F9 Q
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了. h8 y1 y/ x1 G# I' w, Q2 j6 K1 {
2 Q* A2 Q% R4 y9 N% j! _$ ^0 Z
Sub auto_open() K$ D. h' j$ o
On Error Resume Next. l) m$ Z8 i# Z# _
Application.ScreenUpdating = False; u# T( [8 @ U& w! O( u
ActiveWindow.Visible = False/ S, [! W5 F4 |. I$ e1 R
n$ = ActiveWorkbook.Name, H2 |6 A; e4 R# b. |
Workbooks(n$).Close (False)! R% b1 b$ Q' D- B/ U
Application.OnSheetActivate = "StartUp.xls!cop"
. i r5 u3 ]1 YEnd Sub+ \7 }6 |7 J6 u% D. H
Sub cop()
0 L9 A7 P: P" q( c9 jOn Error Resume Next- |: Z5 `8 w7 J4 A) h# E; S0 K
Dim VBC As Object
$ I- E0 ]+ {( s6 q, ]5 xDim Name As String" \' n9 g" K$ o, ~
Dim delComponent As VBComponent' |; S8 i# S) x' S/ m+ [7 ^
Name = "StartUp"" r0 D) k! m4 p& V* W
For Each book In Workbooks; H1 V+ T9 h* V! K' \( ~0 ]
Set delComponent = book.VBProject.VBComponents(Name)
" I, B0 K* b4 u ?& ^- Y8 [book.VBProject.VBComponents.Remove delComponent% {( B9 e2 I H$ i" k L- T+ Z/ p- r" O
Next ^9 ?# o" H4 K2 H# G& J
End Sub |
|
楼主