查看: 9855|回复: 9
EXCLE文件打不开了！“对不起由于禁用了宏，文件将自动关闭”
阅读权限20
在线时间 小时
如图所示，打开就弹出“对不起由于禁用了宏，文件将自动关闭”，点击确定，马上关闭。
我之前有个EXCEL2007运行老出现单据锁定，所以换了个版本的2007，发现2个版本不兼容，没办法又换回来了，就出现这个情形，应该是染病毒导致的，现在病毒没了，但打不开了。
我已经开启了宏安全最低了，还是不行！
请求达人相助！
(32.34 KB, 下载次数: 3)
08:26 上传
阅读权限20
在线时间 小时
网上搜了搜，需要自定义安装全部功能，试一试吧！
阅读权限30
在线时间 小时
“我已经开启了宏安全最低了，还是不行！”
关了再开还不行的话，只有期待高人指点了。
阅读权限70
在线时间 小时
你是否在打开文件时禁用了宏?
打开文件时：shift+&启用宏& ，在VB编辑器中看一下Thisworkbook中是否有代码
阅读权限20
在线时间 小时
谢谢各位仁兄！
找到答案了！
重装是不行的！
禁用宏 禁用ActiveX控件后就能打开！
阅读权限70
在线时间 小时
& & & & & & & &
原帖由 wzd98031 于
09:13 发表
谢谢各位仁兄！
找到答案了！
重装是不行的！
禁用宏 禁用ActiveX控件后就能打开！
谢谢分享，学习了！[em07]
阅读权限10
在线时间 小时
禁用ActiveX控件？？
阅读权限10
在线时间 小时
哈哈，对于这个问题，我也研究了好一阵，终于解决了这个问题，我的方法是：
1：我在360安全卫士的软件管家中搜索“WPS Office 2012个人版”，下载并安装完成。
2：用WPS打开刚才的文件，将他另存为.xls格式即可。
3：核对里面的数据，进行确认，如果正确，将数据重新copy到新的excel表中即可。
4：作者（近视+散光）无意中发现的，希望对--亲们--有所帮助。
阅读权限10
在线时间 小时
请问怎么禁用宏 禁用ActiveX控件
阅读权限10
在线时间 小时
怎么禁用宏 禁用ActiveX控件??
最新热点 /1
当当网ExcelHome部分图书限时5折封顶，活动至4月19日！购买猛戳下面“查看”了解。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师二次元同好交流新大陆
扫码下载App
汇聚2000万达人的兴趣社区下载即送20张免费照片冲印
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1247)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_',
blogTitle:'VB判断指定的Excel文件是否打开',
blogAbstract:' 程序要求：判断一个Excel文件是否打开。实现方法：窗体布局如下：代码如下：\'先引用 Microsoft Excel 11.0 Object Library(Excel2003) 后再声明:Dim xlApp As New Excel.ApplicationDim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetPrivate Sub Command1_Click() \'打开Excel文件&&& Set xlBook = xlApp.Workbooks.Open(&& & App.Path & &\\test.xls&)&&& xlBook.RunAutoMacros (xlAutoOpen)&&& xlApp.Visible = True',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:4,
permalink:'blog/static/',
commentCount:1,
mainCommentCount:1,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}> 怎么用vb判断某个excel文件是否打开
怎么用vb判断某个excel文件是否打开
longdaye8801 & &
发布时间： & &
浏览：905 & &
回复：2 & &
悬赏：0.0希赛币
如何用vb判断某个excel文件是否打开因为excel有一个共同的类名 &xlmain &，用类名查找标题只能找到几个已打开的excel文件中的一个
createfile api 来判断。
longe2007 & &
& & （0）（0）引用Dir(App.Path +
&\路径\文件名 &) =
& &longdewang239 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&查看: 2514|回复: 9
请教大侠们：有没有办法知道我的Excel文件被什么人在什么时候打开看过，虽然没有修改
阅读权限20
在线时间 小时
请教大侠们：有没有办法知道我的Excel文件被什么人在什么时候打开看过，虽然没有修改保存。
阅读权限100
在线时间 小时
什么人打开，它只能读取系统名，如果每个人都在你的电脑上打开的话，它只能显示你电脑上的系统名……
如果我打开的话，能显示出我的名字出来，那用它能算命好了……
阅读权限20
在线时间 小时
但是文件如果被重新保存过，就会显示是谁最后保存的呀，我的意思是那么同样的能不能显示被谁打开看过？
阅读权限100
在线时间 小时
& & & & & & & &
winds.ch 发表于
但是文件如果被重新保存过，就会显示是谁最后保存的呀，我的意思是那么同样的能不能显示被谁打开看过？
如果被人重新保存过，则可以通过查看该文件的属性。其中有一个 LastSavedBy 属性就可以看出。当然前提是这些人设置了个人的签字，就是加备注的时候显示的用户名。如下图所示：
untitled.JPG (42.24 KB, 下载次数: 2)
10:55 上传
阅读权限100
在线时间 小时
当然，如果楼主所处的环境像我们公司一样使用“域用户”名来管理各个员工的话，那就更方便了。
在该文件里写一段代码，如果保存的时候触发，将该用户的域用户名称（即员工的 UserID）保存到上图中的 Comments 属性里。这样可以在不打开该文件的情况下就可以通过属性窗口查看到是谁最后一次保存了。
阅读权限20
在线时间 小时
lu_zhao_long 发表于
当然，如果楼主所处的环境像我们公司一样使用“域用户”名来管理各个员工的话，那就更方便了。
在该文件 ...
谢谢老师，但我不是想看是谁最后保存，我是想知道是谁“打开”过文件，看了一下，没有保存，就把文件关了，不知道能不能做到？
阅读权限100
在线时间 小时
winds.ch 发表于
谢谢老师，但我不是想看是谁最后保存，我是想知道是谁“打开”过文件，看了一下，没有保存，就把文件关了 ...
这个比较难了！
除非你在本工作簿内写有代码，在打开工作簿的时候将阅读者的 UserID 从后台存入局域网内一个专门的文件中。但是，如果阅读者禁用了宏，则一切就白费了。
阅读权限20
在线时间 小时
lu_zhao_long 发表于
这个比较难了！
除非你在本工作簿内写有代码，在打开工作簿的时候将阅读者的 UserID 从后台存入局域网内 ...
哦，是这样，那么这段代码怎么写呢，我正在学习VBA，正处于一窍不通阶段，还请老师赐教。不胜感激。
阅读权限100
在线时间 小时
winds.ch 发表于
哦，是这样，那么这段代码怎么写呢，我正在学习VBA，正处于一窍不通阶段，还请老师赐教。不胜感激。
下面一段代码是我在几年前写的一段Word 文档中的程序，目的是要记录下是谁最后一次更改 SOP，并将更新的内容自动从后台记录到另外一个 Excel 表格中。当然，和楼主的要求不一样的地方是，只有用户选择了保存才会记录，并将使用者在 OFFICE 中设置的用户名保存在“System Info” 中。
虽然是在Word 中编辑的代码，但编程思路是一样的。供楼主参考。
Option Explicit
Private Sub Document_Close()& & '只要本 SOP被关闭就运行
& & Dim FilePath As String
& & Dim FileName As String
& & Dim FileTitle As String
& & Dim DocumentNumber As String
& & Dim FileVersion As String
& & Dim EffectiveDate As Date
& & Dim NextReviewDate As Date
& & Dim SaveResponse As Boolean
& & Dim Answer As Long
& & SaveResponse = False& & '保存响应设为假
& & Check_Name FilePath, FileName, FileTitle, _
& && && && &DocumentNumber, FileVersion, EffectiveDate, _
& && && && &NextReviewDate
& && && && &'运行 Check_Name程序, 获得本 SOP的保存路径, 文件名称, 文件标题, 文件编号, 文件版本号,
& && && && &'文件生效日期, 文件下次 REVIEW 日期
& && &&&With Application.Dialogs(wdDialogFileSummaryInfo)
& && && && &.Title = FileTitle
& && && && &.Author = Application.UserName
& && && && &.Subject = DocumentNumber
& && && && &.Execute& && && && && && && && &'将文件标题, 编辑人员名称, 文件编号等信息填入到本 SOP的 Summary中(可以通过文件属性中查阅是谁上次保存的)
& && &&&End With
& & Answer = MsgBox(&Do you want to save the changes to & & FileName, vbYesNo + vbDefaultButton1 + vbExclamation, &Microsoft Office Word&)
& && &&&'模拟通常 WORD 关闭文件时的对话框
& && &&&If Answer = vbYes Then& && && & '如果选择了 Yes
& && && && &On Error GoTo Err_Handle& & '如果发生错误的话, 则跳转到错误处理程序段
& && && && &ThisDocument.Save& && && &&&'保存本 SOP.
& && && && &SaveResponse = True& && && &'保存响应设为真
& && &&&ElseIf Answer = vbNo Then& && & '如果选择不保存
Err_Handle: ThisDocument.Saved = True& &'则简单地将本 SOP的保存状态设为真即可. 这样可以保证真正的 WORD保存对话框不会出现.
& && && && &Exit Sub& && && && && && &&&'退出本程序
& && &&&End If
& & '如果选择了保存, 且本 SOP处于下面三个路径中的任何一个的话, 则调用SOP_Checklists程序,
& & '将相关的信息保存到一个专用的 Excel 工作簿中
& & If SaveResponse = True And _
& & (UCase(Left(FilePath, 45)) = UCase(&&) _
& & Or UCase(Left(FilePath, 45)) = UCase(&&) _
& & Or UCase(Left(FilePath, 56)) = UCase(&&)) Then
& && &&&SOP_Checklists FilePath, FileName, FileTitle, _
& && && && &DocumentNumber, FileVersion, EffectiveDate, _
& && && && &NextReviewDate
& & End If
阅读权限20
在线时间 小时
lu_zhao_long 发表于
下面一段代码是我在几年前写的一段Word 文档中的程序，目的是要记录下是谁最后一次更改 SOP，并将更新的内 ...
谢谢大侠，没想到这么复杂，实在是看不懂，看来还得努力学习。
最新热点 /1
当当网ExcelHome部分图书限时5折封顶，活动至4月19日！购买猛戳下面“查看”了解。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师