如何实现打开文件后限时（超过有效时间）禁止编辑

liuxiao

原帖由 pt98 于 2009-10-27 18:05 发表
Option Explicit
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:10"), "Test" '打开Excel 10s后调用test过程，你在过程里写点代码就可以了
End Sub
'------------------------
' ...

上述代码好像没有解决了我的问题，请给写出完整代码！如果弹出对话框后确定以后不能编辑也就解决了我的一部分问题！谢谢21楼，继续解决！

[ 本帖最后由 liuxiao 于 2009-10-27 21:06 编辑 ]

liuxiao

21楼请再次出马！我在等待您的后续答案！

pt98

'没什么意义的吧，宏的级别高了就没有用了，就算你保护了工作表别人也可以通过复制粘贴或者直接破掉保护，另外也可以直接打开你的宏等等。
Option Explicit
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:20"), "Test" '打开Excel 20s后调用test过程
End Sub
'---------------------
'模块：
Option Explicit
Public Sub Test()
    Application.EnableEvents = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123" '保护工作表，密码：123
    Application.EnableEvents = True
    ThisWorkbook.Save '保存
    MsgBox "时间已到"
     ThisWorkbook.Close '关闭
End Sub
Sub UnLck() '宏解除工作表的保护，根据条件你自己设置一下
   Application.EnableEvents = False
    Application.DisplayAlerts = False
    ActiveSheet.Unprotect ("123")
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

liuxiao

非常感谢25楼把问题解决了！为什么我重新定义时间，提示“在中断模式不能执行代码”这个问题怎么解决？

wisdom100

原帖由 liuxiao 于 2009-11-2 08:12 发表
非常感谢25楼把问题解决了！为什么我重新定义时间，提示“在中断模式不能执行代码”这个问题怎么解决？

不是提示的很清楚了啊  ---“在中断模式不能执行代码”         

关闭VBE就可以了.

boeot01

其实工作中，很多人还是不懂什么叫VBA的，呵呵，还是有点意义的。
当然了，对于我们来说，加密和不加密是一样的，呵呵！

boeot01

至于，宏安全性的问题，我看见坛里有人建议封装成exe文件，能使文件打开后，把安全性强制变为低。
楼主可以搜搜！

变不了的改。

pt98 发表于 2009-11-1 21:26
'没什么意义的吧，宏的级别高了就没有用了，就算你保护了工作表别人也可以通过复制粘贴或者直接破掉保护， ...

既然宏的级别高了，没有用，那就是说禁用了宏，强制性，如果禁用宏，直接对某工作表进行彻底隐藏工作表，只显示指定可以显示的工作表就可以了