Question

求excel vba代码，打开工作表依据条件自动执行宏的代码二

要求：
每次打开a.xlsm文件，首先检查a.xlsm的文件属性是否是“只读”，如果是只读则不做任何操作直接关闭它
如果不是只读属性，则再检查当前时间是否是某小时15分，如 22:15分、20:15分等等。
如果是，则执行模块9里的宏x，执行完毕后自动保存关闭。
如果否，则什么都不做，保持a.xlsm的打开状态。
感谢真心帮助的高手，祝大家羊年事业顺利，爱情甜蜜！

Answer 1

Private Sub Workbook_Open()
Dim sPath$, sFile$
sPath = ThisWorkbook.Path
sFile = ThisWorkbook.Name
If (GetAttr(sPath & "\" & sFile) And vbReadOnly) = 1 Then Application.Quit
If Right("" & Minute(Now()), 1) = "5" Then
    Call X
    ThisWorkbook.RemovePersonalInformation = False
    ThisWorkbook.Save
    ThisWorkbook.RemovePersonalInformation = True
    ThisWorkbook.Saved = True
    ThisWorkbook.Close
End If
End Sub

不知道ReadOnly和5分钟时是退出整个Excel还是关闭这个文件，暂时设置为readonly时退出而5分钟时则简单关闭

附件可参考

追问

你好，非常感谢您的回复。
我自己已经简单完成了我要的功能，因此才关闭问题的。
仔细看了你的代码，冒似信息量很丰富，我会测试看看，再次感谢您，祝事业发达，生活幸福！
因问题已关闭，无法采纳，抱歉！