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

 

[Lone-wolf]

Bonsoir Bnj , le Forum

Un essai comme ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.Quit
End Sub

 

[grisan29]

bonjour Lone-wolf,Bnj et le forum
une autre façon de sauver le classeur en fermant par la croix et en l'enregistrant sous et en prenant le nom dans une cellule

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     On Error GoTo erreur
     varname = Sheets("Feuil1").Range("g17").Value
     fname = InputBox("enregistrer le fichier sous le nom", "Enregistrement", varname)
     ActiveWorkbook.SaveAs Filename:=fname
     Exit Sub
    erreur:
      rep = MsgBox("Une erreur c'est produite, voulez vous quitter sans sauvegarder", vbYesNo)
      If rep = 7 Then Cancel = True
    End Sub

il y a un msgbox qui s'ouvre afin de demander s'il faut sauver sous le nom qui est en ("g17") ou sous un autre nom ou ailleurs en changeant "g17"
avant il faut cocher enregistrer dans les option d'excel pour retrouver le fichier

 

[Bnj]

bonjour,

En fait, je souhaite que le classeur (qui est ouvert en lecture seule) se ferme automatiquement sans demander si l'on veut enregistrer , donc une fermeture pure et simple du classeur sans boite de dialogue enregistrer sous par exmple

 

[Bnj]

bonjour lone-wolf, bonjour grisan29

merci de vous intéresser à mon souci.
Cependant, lone-wolf, ta solution n'empêche pas l'apparition de la boite de dialogue enregistrer une copie à la fermeture automatique du classeur
et grisan29, ce n'est pas ce que je recherche

encore merci

 

[job75]

Bonjour Bnj, Lone-wolf, grisan29,

A placer dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:30:00"), "ThisWorkbook.Arret"
End Sub

Sub Arret()
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

Nota : dans un 1er temps j'avais utilisé inutilement une Workbook_BeforeSave.

A+

 

[Bnj]

ça marche niquel !

Merci infiniment