出现starup.xls宏病毒解决办法
2页1、出现starup.xls宏病毒的解决方法:关闭所有表格,打开一个新表按alt+F11键,按F7键在窗口内粘贴下列内容。然后关闭。以下是需要粘贴的内容从此行及以上不要粘贴。Sub auto_open()Dim FS As ObjectDim BK As WorkbookDim SHT As WorksheetDim ifExist As BooleanOn Error Resume Next判断是否存在StartUp,以ifExist标记ifExist = FalseIf Dir(Application.StartupPath & & StartUp.xls) Then ifExist = TrueIf ifExist = False Then For Each BK In Workbooks If ifExist Then Exit For For Each SHT In BK.Sheets If ifExist Then Exit For If BK.Sheets(StartUp).Name StartUp Then ifExist = False Else ifExist = Tr
2、ue End If Next SHT Next BKEnd If判断是否清除StartUpIf ifExist Then If MsgBox(发现StartUp! & vbCrLf & StartUp可能影响你的Excel!是否清除?, vbOKCancel) = vbCancel Then Exit SubElse MsgBox 未发现StartUp,自动退出 ThisWorkbook.Close Exit SubEnd If关闭StartUp.xlsWorkbooks(StartUp.xls).Close False删除文件Set FS = CreateObject(Scripting.FileSystemObject)FS.DeleteFile Application.StartupPath & & StartUp.xls删除宏模块StartUpApplication.DisplayAlerts = FalseFor Each BK In Workbooks BK.Sheets(StartUp).DeleteNext BKApplication.DisplayAlerts = True恢复变量Application.OnSheetActivate = Application.OnKey %F11Application.OnKey %F8MsgBox 清除StartUp完毕,自动退出!ThisWorkbook.CloseEnd Sub
《出现starup.xls宏病毒解决办法》由会员小**分享,可在线阅读,更多相关《出现starup.xls宏病毒解决办法》请在金锄头文库上搜索。
2020年高考真题——理科综合(全国卷Ⅲ)+Word版含答案
2021年绝味鸭脖策划书
2021年熟食店创业方案
2021年熟食店开店策划
2021年卤菜店创业计划书
2021年周黑鸭网络营销策划方案
东大21年1月考试《现代设计方法》考核作业
谈我国行政管理效率的现状及其改观对策(论文)
单证员考试-备考辅导-复习资料:无贸易背景信用证案分析.docx
土木工程毕业生答辩自述.docx
建筑学毕业后工作状态真实写照.doc
C#代码规范(湖南大学).doc
xx区食药监局2019年工作总结及2020年工作计划
2019年中医院药物维持治疗门诊工人先锋号先进事迹
2019年度xx乡镇林长制工作总结
2019年性艾科工作计划书
2019年人才服务局全国扶贫日活动开展情况总结
关于组工信息选题的几点思考
摘了穷帽子 有了新模样
2019年某集团公司基层党支部书记培训班心得体会
2024-03-21 40页
2024-03-21 32页
2024-03-21 44页
2024-03-13 36页
2024-03-13 12页
2024-03-13 15页
2024-03-13 35页
2024-03-04 55页
2024-03-04 57页
2024-03-04 137页