[已解决]紧急求助

ccq000000

怎样让EXCEL表中的内容在若干天或若干月后被自动清除,痕迹全无?

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2012-2-23 19:53

Option Explicit

Sub KillThisWorkbook()
    With ThisWorkbook
        .Saved = True
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close
    End With
End Sub

Private Sub Workbook_Open()
    If Date > #2/24/2012# Then '可以指定日期
        Call KillThisWorkbook
    End If
End Sub
新建 Microsoft Office Excel 工作表.zip (11.51 KB, 下载次数: 10)

2012-2-23 19:53 上传

点击文件名下载附件

跳转到最佳答案楼层

小安安

{:10:}有案例么？

JLxiangwei

Option Explicit

Sub KillThisWorkbook()
    With ThisWorkbook
        .Saved = True
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close
    End With
End Sub

Private Sub Workbook_Open()
    If Date > #2/24/2012# Then '可以指定日期
        Call KillThisWorkbook
    End If
End Sub
新建 Microsoft Office Excel 工作表.zip (11.51 KB, 下载次数: 10)

2012-2-23 19:53 上传

点击文件名下载附件

blackcafe

留爪 学习 呵呵~

zjdh

因为楼主是要“让EXCEL表中的内容在若干天或若干月后被自动清除,痕迹全无”
所以我的思路是：
1. 不允许在压缩文件里运行文件
2. 删除各工作表内容（包含按钮及其他控件）
3. 删除所有的宏（实际为做手脚的宏）
4. 保存空文件
若工作表有保护密码，这应另加语句。
当然若是禁用宏，就没戏了。（要加宏表处理）
目前文件是从创建之日起超过5天就删除内容，试试改变系统日期再打开文件的效果：
Book2.rar (14.08 KB, 下载次数: 3)

2012-2-23 21:08 上传

点击文件名下载附件

ccq000000

JLxiangwei 发表于 2012-2-23 19:53
Option Explicit

Sub KillThisWorkbook()

谢谢您所发的答案.此举仅为辞工后讨要自己应得工资作准备.(表也是自己制的)