EXCEL文件能定期时间自动加锁吗?
我制造的EXCEL文件我们公司里人都说很实用,我想三个月或六个月后自动地把功能锁起来,然后不能再拷贝复制,具体怎搞?因为这里人他们顺利的用着,以后永远不会依靠我与请求我,再说我这个操作的同事很有私心及心机的.所以我总是接受不下这个.谢谢各位了!
Excel自带的保密功能很薄弱的，稍加处理即可破解。 要解决你的问题，前提是其他人的Excel操作水平一般，下面是处理的一种思路： 写一段VBA代码作用于Workbook_open()事件，检查当前日期和你设定的日期的先后，如果到期的话，清空各个工作薄里的内容，然后保存退出。
这样你的表格到期后别人就不能用了，复制到其他地方也没有内容了。 做到这里，如果别人打开工作簿时不启用宏的话，等于什么都白做，所以，要再用一点手段，强迫别人一定要启用宏。于是，可以定义Workbook_BeforeClose()事件，在关闭工作簿前，深度隐藏所有工作表，如果下次打开使用时，不启用宏的话，则只能看到一张工作表，其余的都隐藏了，通过“格式”－》“工作表”－》“取消隐藏”是显示不出来的，只有通过代码才能显示…… 最后，要给你的VBA工程加一个复杂一点的密码，建议用Email地址或者某个网址，这样，别人要修改代码可能要费点神，不过不是绝对安全的哦~~ 参考代码如下： Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim wstTemp As Worksheet For Each wstTemp In ThisWorkbook。
Worksheets wstTemp。Visible = xlSheetVeryHidden '深度隐藏工作表 Next ThisWorkbook。Save End Sub Private Sub Workbook_Open() Dim datCreate As Date, wstTemp As Worksheet For Each wstTemp In ThisWorkbook。
Worksheets wstTemp。Visible = xlSheetVisible '显示隐藏工作表 Next datCreate = DateSerial(2008, 9, 25) '设定创建日期 If DateDiff("d", datCreate, Date) > 60 Then '超过60天的话 For Each wstTemp In ThisWorkbook。
Worksheets wstTemp。Cells。Clear '清空所有工作表中的内容 Next ThisWorkbook。Save '保存更改 Application。Quit '退出程序 End If End Sub。
答：一样的啊！没有不同！ 拷贝是英语直接翻译过来的：copy 也就是复制.......详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
