|
|
发表于 2011-9-25 15:49:31
|
显示全部楼层
来自： 中国广东东莞
看一下這個行不行 以前我有個同事遇到過個個問題: x; i$ U% G1 v- \+ Z; \! N
0 W) _ y# I$ z' g) b7 S: N8 W, Y' h$ n, I( o
9 g6 \1 p' a: QStartUp.xls宏清除方法; L- w# A0 h7 F% x8 s8 E) q
第一步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls； X- O5 z6 `5 n- g3 t
第二步：清除C:\Documents and Settings\登陸用戶名\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。' z6 t/ ^$ i& k! M& ~
第三步：新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的宏代码了2 I6 T8 g! L* Z+ l0 y' b
- z* Y9 P/ S: M: O+ SSub auto_open()0 Z( Z$ d0 {% q9 ^$ y8 }
On Error Resume Next. T- h- b9 L) [7 [9 c6 P% Q
Application.ScreenUpdating = False4 H+ O6 E2 Q ~8 z2 I# ~; |; v
ActiveWindow.Visible = False% N% ~# T: b7 A7 T
n$ = ActiveWorkbook.Name# [- r0 V1 D/ W7 f
Workbooks(n$).Close (False)
" }: V+ X$ |! g% p7 {& C$ w. fApplication.OnSheetActivate = "StartUp.xls!cop"2 C: O* s6 T0 v9 c! o L
End Sub- T+ y, r' Z& b' G: }
Sub cop() [0 e0 `% A8 I2 d5 k
On Error Resume Next
6 |$ L( I. u8 ]0 S/ y: R' \Dim VBC As Object( o0 x8 P+ |$ R
Dim Name As String4 q5 G2 J G4 G* l' ]# x3 h5 J; I
Dim delComponent As VBComponent
* Q# r/ K' k- i" N3 n. eName = "StartUp"
8 q: \$ u: |3 i% IFor Each book In Workbooks
) ~1 m" Z2 a) ?- j! l9 _& KSet delComponent = book.VBProject.VBComponents(Name)5 E5 @6 A5 B# J) ]% R" V
book.VBProject.VBComponents.Remove delComponent
3 `5 K: f% N9 K; @2 m3 QNext
5 |3 C$ s' |0 s YEnd Sub |
|
楼主