乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 怎么Excel表格有使用时间限制(一百RMB)

怎么Excel表格有使用时间限制(一百RMB)

作者:乔山办公网日期:

返回目录:excel表格制作


只能用宏来实现

用宏吗?
如果用的话,将下面代码贴到thisworkbook中,打开宏编辑器:工具-宏-VB编辑器。

Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
'★★★★Kill .FullName 执行了本句,就会自杀的,所以注释了,如果想到时候删除本文件,将上面的注释去掉。
.Close
End With
End Sub

Private Sub Workbook_Open()
If Now() > #1/1/2008# Then'改这里的时间
KillThisWorkBook
End If
End Sub

另外,你还要在这个好VB窗口中左边的本文档名上右击vbproject属性上右击,输入保护密码。
祝你成功。
EXCEL2003, 最多可以放65536行数据
EXCEL2007以上版本, 最多可以放1048576行数据

如果需要将65536行的文件自动扩展成1048576行的新表格
需要使用高版本软件打开, 然后另存为*.xlsx格式的文件

用宏吗?
如果用的话,将下面代码贴到thisworkbook中,打开宏编辑器:工具-宏-VB编辑器。
Sub KillThisWorkBook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
'★★★★Kill .FullName 执行了本句,就会自杀的,所以注释了,如果想到时候删除本文件,将上面的注释去掉。
.Close
End With
End Sub
Private Sub Workbook_Open()
If Now() > #1/1/2008# Then'改这里的时间
KillThisWorkBook
End If
End Sub
另外,你还要在这个好VB窗口中左边的本文档名上右击vbproject属性上右击,输入保护密码。
祝你成功。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网