VBA代码在21版本365版本，无法执行。求指导

半夏知秋

各位大神，请教一下

我这边的代码是2016版，执行没问题；但是换到其他同事电脑 2021版，以及office 365 执行宏，报错。请问有解决的办法吗（各版本宏功能都 打开了）
另外想请教下16版编写的宏在19版本可以实正常运行吗

大家请帮我查看 “合并TB”这个工作簿，代码主要有三类：1.打开文档，“thisbook”执行的宏命令；2.首表中 提取和 删除的宏命令；3.应收账款 提取的命令


感谢各位的指导以及帮助

ykcbf1100

我office365，打开你的工作簿没有问题。

半夏知秋

ykcbf1100 发表于 2023-12-18 18:25
我office365，打开你的工作簿没有问题。

我从2016版本升级到365，也是可以实现的。。但是21版本的就不知道为什么实现不了

半夏知秋

Private Sub Workbook_Open()
Dim dat As Date
Dim ws As Worksheet
dat = DateSerial(2024, 12, 20)
If Date >= dat Then
        Application.DisplayAlerts = False
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close
        End With
        End If
If Date < dat Then
For Each ws In Worksheets
   ws.Visible = xlSheetVisible
Next ws
Sheets("提示").Visible = xlSheetVeryHidden
End If
End Sub

请教下各位大神，这个代码在2016版可以执行，21版就无法执行了，是哪里的问题，并且如何修改，可以继续使用（就是满足日期条件，就会自动删除这个工作簿；不满足日期条件，会执行代码，工作表会隐藏）

章州

提示                                                                 本TB仅支持启用宏功能的office打开！！！否则 无法使用                我一打开，这个文件都不见了，不会有毒吧                               

半夏知秋

章州 发表于 2023-12-30 20:55
提示                                                                 本TB仅支持启用宏功能的office打开！！！否则 无法使用                我一打开，这个文件都不见了，不会有 ...

您好！上传的附件，原来设置的期限是2023—12—20，超过这个时间，文档就会自动删除。所以没有了，就是文档自动删除了。并没有毒
您的office是那个版本的？谢谢

章州

半夏知秋 发表于 2023-12-30 22:28
您好！上传的附件，原来设置的期限是2023—12—20，超过这个时间，文档就会自动删除。所以没有了，就是文 ...

21版本的，应该是你放在了工作簿事件里了，我打开就被删了

半夏知秋

章州 发表于 2023-12-30 22:46
21版本的，应该是你放在了工作簿事件里了，我打开就被删了

好呢！但是我在21版，打开缺执行不了。我再研究下，谢谢您啦