|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題
) u) D- Q; }: P% m- R
% B5 G1 P$ A0 ]5 N5 X
1 {, {. C8 T. }3 s W
D. k- a/ J3 q# [9 CStartUp.xls宏清除方法
0 m. t1 P) l% {; V1 D. j/ s第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls；. P% \ X2 ]# v$ X3 i2 I- ]& @
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。
$ W) o( i5 W; [. j第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了9 _$ y; S* E1 h3 t! l7 K `9 K
6 Y d" d* d5 I2 z$ n G" aSub auto_open()
9 ~; y! A% P7 Z- F2 J- c8 gOn Error Resume Next
/ L+ d2 m5 R; S9 ]Application.ScreenUpdating = False& i8 w7 B: a1 O, ^7 t
ActiveWindow.Visible = False
, K$ O/ K# E! G# U/ T9 T' tn$ = ActiveWorkbook.Name$ y; p; z2 [6 E
Workbooks(n$).Close (False)
5 u8 g" P% k7 K: d) h$ I6 ?Application.OnSheetActivate = "StartUp.xls!cop", P& I: i5 b+ j$ @
End Sub" ^$ s3 z, x$ `, }- i
Sub cop(); q# ~; M: Y3 t! `* v, z, R$ |
On Error Resume Next8 N- k F7 B" ?) I- a# b, k
Dim VBC As Object- B& e# t8 t4 m3 m- ^' t! i
Dim Name As String/ H5 k, R9 e- A+ `9 J( q2 `
Dim delComponent As VBComponent
% h2 }- E* o2 n4 v _' E4 z iName = "StartUp"
1 l. g$ a. A1 N; Z* P. Y9 [: JFor Each book In Workbooks x3 ]- {7 P$ D+ ]8 {7 X7 w5 f
Set delComponent = book.VBProject.VBComponents(Name)5 G2 v. ?$ i: F4 ]. O, L) X8 F6 ~: C, X
book.VBProject.VBComponents.Remove delComponent' [ M! H! E. U5 v0 J9 s
Next
% |! I2 s, X; O! Y4 |2 @End Sub |
|
楼主