How to close excel workbook after 5 minutes it opened?

[ODSCm]

Hello everyone.

I want our common excel workbook get itself closed automatically after 5 minutes of its opening.
Here if excel workbook is opened by someone read-only it will be still closing but without saving. If it was opened by someone who knows the password then it will be closing itself after 5 minutes by saving.

How should be the macro for that?

 

[Micron]

Perhaps in ThisWorkbook module Open event have

Private Sub workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "EventMacro"
End Sub

and in a standard module, have

Public alertTime As Variant '<< this goes at very top, under Option Explicit, assuming you use that.

Then after the prior line have this sub:

Public Sub EventMacro()

If ThisWorkbook.ReadOnly Then
   ThisWorkbook.Saved = True
   ThisWorkbook.Close
Else
   ThisWorkbook.Close
End If

End Sub

If wb is read only it should just close without saving. If it's not read only, you should get a prompt to save if it was edited. You didn't say what to do about that so I assumed a prompt to save would be safe enough. That way, closing can be cancelled if needed. However, the event won't run again if cancelled. The "00:05:00" is 5 minutes & code should run 5 mins after wb is opened.

 

[ODSCm]

Perhaps in ThisWorkbook module Open event have

Private Sub workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "EventMacro"
End Sub

and in a standard module, have

Public alertTime As Variant '<< this goes at very top, under Option Explicit, assuming you use that.

Then after the prior line have this sub:

Public Sub EventMacro()

If ThisWorkbook.ReadOnly Then
   ThisWorkbook.Saved = True
   ThisWorkbook.Close
Else
   ThisWorkbook.Close
End If

End Sub

If wb is read only it should just close without saving. If it's not read only, you should get a prompt to save if it was edited. You didn't say what to do about that so I assumed a prompt to save would be safe enough. That way, closing can be cancelled if needed. However, the event won't run again if cancelled. The "00:05:00" is 5 minutes & code should run 5 mins after wb is opened.

Micron thanks a lot. This was what I wanted to do. Just one more thing. If it is not read only then I want my workbook save itself if it is edited without showing prompt to user and close itself.

 

[Micron]

You could Google "ms excel close and save without prompt" and learn a bit about how to find answers that have been asked and answered millions of times?
Try altering the line after Else:

Else
   ThisWorkbook.Close  savechanges: = true
End If