两个代码合并的问题

EH458059147

如何把这段代码放到Thisworkbook中


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

Private Sub Workbook_Open()
If Date > #6/12/2024# Then
Call KillThisWorkbook
End If
End Sub

上面的代码放到下面的代码里

Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.Visible = False
dengLuOk = False
frmDengLu.Show

End Sub

就是把最上面的一段代码放到下面的代码中，可以用登录界面且时间到了自动删除文件
查询新.rar (679.78 KB, 下载次数: 3)

2024-6-18 22:41 上传

点击文件名下载附件

管理密码cjg1980

ytmpgght

不放不行吗？直接CALL，是不是可以。

EH458059147

ytmpgght 发表于 2024-6-19 08:25
不放不行吗？直接CALL，是不是可以。

登录界面能有吗，大佬，麻烦能帮我CALL下吗，我不懂代码，谢谢

ytmpgght

EH458059147 发表于 2024-6-20 17:56
登录界面能有吗，大佬，麻烦能帮我CALL下吗，我不懂代码，谢谢

你自己调试下

你的目的应该是到了时间就在打开工作薄时自动删除，不用再去打开窗口做别的操作了？
如果是别的，那么你自己再移。

EH458059147

ytmpgght 发表于 2024-6-21 07:56
你自己调试下

你的目的应该是到了时间就在打开工作薄时自动删除，不用再去打开窗口做别的操作了？

非常感谢，试了可以用