新闻 | 人社 | 住建 | 水利 | 招标 | 文化旅游 | 自然资源 | 海峡人才 | 疾控中心
论坛 | 视频 | 驾培 | 造价 | 房产 | 公 积 金 | 成人高考 | 超市商场 | 行政服务            
医院 | 科技 | 教育 | 医保 | 商务 | 市场监督 | 人力社保 | 开放大学 | 公安服务   会员中心|设为首页|加入收藏|繁体中文
栏目导航
生活搜索
热门排行

首页生活服务电脑知识  
 
excel提示“无法找到startup.xls文件”解决
来源:本站 点击数:3778次 更新时间:2013/1/22 9:34:35

StartUp.xls宏病毒清除方法及步骤:(excel宏病毒)
No.1  自动清除(于本站下载中心下载宏病毒专杀工具)

http://www.2898100.com/down_Show.asp?InfoId=216&ClassId=31&Topid=0

No.2  手动方法 

         第一步:清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls;

        第二步:清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe(约236K)。(Excel程序会自建该文件)

        第三步:新建C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件,输入以下代码(代码在图片下面)就行了,以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码。

        (注意:其中有些事隐藏文件,你看不到,按照下面说的做就可以看到那些隐藏文件:打开我的电脑》》工具》》文件夹选项》》“隐藏受保护的操作系统文件(推荐)”前面的勾打掉》》选中“显示隐藏的文件、文件夹和驱动器”》》去掉“隐藏已知文件类型的扩展名”的勾。)

代码如下:
      Sub auto_open()

On Error Resume Next

Application.ScreenUpdating = False

ActiveWindow.Visible = False

n$ = ActiveWorkbook.Name

Workbooks(n$).Close (False)

Application.OnSheetActivate = "StartUp.xls!cop"

End Sub

Sub cop()

On Error Resume Next

Dim VBC As Object

Dim Name As String

Dim delComponent As VBComponent

Name = "StartUp"

For Each book In Workbooks

Set delComponent = book.VBProject.VBComponents(Name)

book.VBProject.VBComponents.Remove delComponent

Next

End Sub

【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:如何预防冬季传染病 下一篇:中国每分钟有 6人确诊为癌症
 

网友点评
没有点评
参与点评

 用户名:验证码: 看不清楚请点击刷新验证码
 请文明参与讨论,禁止漫骂攻击
  友情链接
彭城刘氏族谱站长工具超星网课火速云中国投资资讯淄博信息港37abc网盘石网盟漳台族谱对接
漳州花果网巫锦文中医圈网站历史库优古网络
广告服务 | 联系我们 | 关于漳州 | 版权声明 | 站长寄语 | 友情链接
版权所有:漳州信息网 Copyright 2007-2027 by www.2898100.com. All Rights Reserved.
邮箱:2898100@gmail.com 电话:(0596)2898100 手机:15359698100、15959698100  地址:漳州市芗城区水仙大街19号