XL 2013 boite de dialogue enregistrer sous

[Bnj]

bonjour

Je possède un classeur avec une macro se lançant au démarrage qui ferme automatiquement le classeur en question au bout de X minutes.
Mon classeur s'ouvre en lecture seule.

Je souhaite une macro qui empêche l'ouverture de la boite de dialogue "enregistrer une copie" à la fermeture lorsque le temps limite est atteint.
j'ai essayé ceci mais cela ne marche pas :
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub

ou

Private Sub Workbook_Open()
Application.DisplayAlerts = False
temp = Now + TimeValue("00:30:00")
Cancel = SaveAsUI
Application.OnTime temp, "arret"
End Sub

 

[Matheop]

Hello Bnj, le forum

Pour ma part je viens de tester sur un classeur Bnj.xlsm et je n'ai aucun problème. Je l'ai ouvert une fois pour y placer mon code et l'enregistrer. Je l'ai ouvert une seconde fois, Excel me notifie bien que le classeur est déjà ouvert par quelqu'un, donc je l'ouvre quand même en lecture seule.

Je procède à quelques modifications dans le fichier avant que le temps imparti ne soit écoulé et enfin le classeur se ferme bien sans aucune popup, sans aucun message.

Dans le ThisWorkbook :

Private Sub Workbook_Open()
    temps = Now + TimeValue("00:00:10")
    MsgBox "Le classeur se fermera automatiquement dans 10 secondes."
    Application.OnTime temps, "arret"
End Sub

Dans un Module classique :

Private Sub arret()
    ThisWorkbook.Close SaveChanges:=False
End Sub

Quel est le code présent dans ta macro « arret » ?

A bientôt,