作者:乔山办公网日期:
返回目录: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属性上右击,输入保护密码。
祝你成功。