SharePoint工作簿自动关闭宏报错：无法运行指定宏的问题求助

问题根源 #

1. Application.OnTime直接使用宏名时，SharePoint路径会被错误识别为宏名称前缀，触发“无法运行宏”的报错。
2. 原代码时间逻辑错误：仅设置1分钟后关闭，且未处理分钟溢出（如59分+1分变成60分，时间格式无效）。
3. 未声明变量，存在潜在运行风险。

修复后的完整代码 #

Option Explicit

Private Sub Workbook_Open()
    Picktime
End Sub

Sub Picktime()
    Dim savetime As Date
    ' 生成10分钟后的时间，自动处理时间溢出
    savetime = Now + TimeSerial(0, 10, 0)
    ' 明确指定宏所在工作簿，避免SharePoint路径干扰
    Application.OnTime savetime, "'" & ThisWorkbook.Name & "'!Please_close"
End Sub

Sub Please_close()
    ThisWorkbook.Close SaveChanges:=True
End Sub

关键修复说明 #

• 宏引用修正：用"'工作簿名称'!宏名"的格式，强制Excel在当前工作簿中查找宏，避免混淆SharePoint URL。如果工作簿名带空格或特殊字符，单引号必须保留。
• 时间逻辑优化：用Now + TimeSerial(0,10,0)替代手动拼接时间，自动处理分钟/小时溢出（比如23:55加10分钟会自动转为次日00:05），更可靠。
• 变量声明：添加Option Explicit强制变量声明，避免隐式变量导致的意外错误。

额外优化建议 #

如果需要在用户操作时重置定时（避免误关闭），可以添加取消定时的逻辑：

Private scheduledTime As Date

Sub Picktime()
    scheduledTime = Now + TimeSerial(0, 10, 0)
    Application.OnTime scheduledTime, "'" & ThisWorkbook.Name & "'!Please_close"
End Sub

Sub CancelClose()
    On Error Resume Next ' 防止任务已执行时报错
    Application.OnTime EarliestTime:=scheduledTime, Procedure:="' & ThisWorkbook.Name & "'!Please_close", Schedule:=False
    On Error GoTo 0
End Sub

然后在Workbook_SheetChange或Workbook_SelectionChange事件中调用CancelClose，再重新执行Picktime，实现操作后重置10分钟倒计时。

内容的提问来源于stack exchange，提问作者Mohamed El Haddad