这么把代码放到对应的位置，不冲突原代码

EH458059147 · 发表于 2024-6-17 21:45

这么把代码放到对应的位置，不冲突原代码

大佬们，我想把下面这个代码放到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

但原文件中有想应的代码，搞了有冲突要怎么改才不会冲突

管理密码cjg1980
VBA密码1980

查询新测试222333.rar (700.95 KB, 下载次数: 4)

ww87725244 · 发表于 2024-6-17 22:08

把
If Date > #6/12/2024# Then
Call KillThisWorkbook
End If
复制到
Private Sub Workbook_Open()
这段写到模块
Sub KillThisWorkbook()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End Sub
里面

lcs_2046 · 发表于 2024-6-17 22:18

这是要自杀吗？

EH458059147 · 发表于 2024-6-18 22:23

ww87725244 发表于 2024-6-17 22:08
把
If Date > #6/12/2024# Then
Call KillThisWorkbook

大佬我这里面，不行呀

EH458059147 · 发表于 2024-6-20 18:08

ww87725244 发表于 2024-6-17 22:08
把
If Date > #6/12/2024# Then
Call KillThisWorkbook

非常感谢，以解决问题

		自动登录	找回密码
密码			免费注册

[求助] 这么把代码放到对应的位置，不冲突原代码

评分