macro stoppen na automatisch opslaan

[roycke]

Beste,
ik heb een xls gemaakt die vanzelf doet opslaan & sluiten na 5 minuten. (er zijn collega's die soms direct weg moeten en dan de xls open laten, hierdoor kunnen andere collega's het bestand niet gebruiken)

Echter wanneer ik het bestand sluit binnen die 5 minuten en ik laat excel openstaan gaat het mis; na 5 min. komt er een popup of ik de macro wil uitvoeren of niet.
1. mijn vraag is hoe kan bij het sluiten van de xls de macro automatisch doen stoppen? (ps. het beveiligings nivo van de macro's wil ICT niet aanpassen)

2. is het mogelijk om na 5 minuten een msgbox te krijgen met de vraag om te sluiten ja of nee, en wanneer er na 10 sec geen bevestiging komt dat hij dan alsnog sluit?

Alvast bedankt voor jullie hulp en ik ben zeer benieuwd naar de oplossing!
ben er al 3 dagen mee bezig...


Bekijk bijlage Map1.xls

 

[ExcelAmateur]

roycke,

Ik ben een amateur in VBA maar zou dit werken?

Sub opslaan()
  Response = MsgBox("Opslaan?", vbYesNo, "We gaan opslaan")
  If Response = vbNo Then Exit Sub
  If Response = vbYes Then Opslaan1
  Application.OnTime Now + TimeValue("00:00:10"), "Opslaan1"
End Sub

Sub Opslaan1()
  ActiveWorkbook.Close True
End Sub

 

[roycke]

thanks voor de snelle feedback!
De code werkt helaas niet helemaal.
Als er niet op Ja of Nee wordt gedrukt blijft hij openstaan.
hij sluit dus niet als er geen handeling wordt uitgevoerd.

 

[ExcelAmateur]

Het was het proberen waard.
Kijk even op deze link, die gaat er over, als ik het goed gelezen heb.

 

[ExcelAmateur]

roycke,

Ik heb het even rond gevraagd en er kwam een mooie oplossing, zie de file.
Om het te testen kun je de tijd bij Thisworkbook even verlagen, duurd anders te lang.

 

[roycke]

thanks! hij is bijna goed.

Echter wanneer ik heb voor de 300 sec. zelf afsluit krijg ik alsnog na 300 sec. een popup van de macro. Hoe kan ik die macro laten stoppen bij het afsluiten van de file?
nogmaals bedankt!

 

[ExcelAmateur]

Hier weet ik even geen antwoord op.
Ik dacht het gevonden te hebben, jammer.
Misschien moet de tijd 300 sec. niet in Thisworkbook starten?

Volgens mij is zoiets al eens behandeld maar wat is de zoekterm ernaar.

Misschien dat je bij het ExcelForum nog wat hierover kunt vinden?

Suc6

 

[ExcelAmateur]

roycke,

Ik heb nog iets gevonden en dit is door SNB geschreven.
Misschien kun je hier wat mee.

Dit is de link er naar.

Met deze code in de module ThisWorkbook

Code:    ‹ Selecteer › ‹ Inklappen ›  
Dim tijd As Double 

Private Sub Workbook_Open() 
    aktie 
End Sub 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    aktie 
End Sub 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
    aktie 
End Sub 

Private Sub aktie() 
    If tijd > 0 Then Application.OnTime tijd, "ThisWorkbook.Bewaar_sluit", , False 
    tijd = DateAdd("s", 10, Now) 
    Application.OnTime tijd, "ThisWorkbook.Bewaar_Sluit" 
End Sub 

Private Sub Bewaar_sluit() 
    ThisWorkbook.Close True 
End Sub

 

[richee]

best handige tips hier boven, maar die had ik al gevonden op google
maar nu zit ik ook met het zelfde probleem
als de tijd afgelopen is opent de file automatisch weer en moet je het weer afsluiten, waarom doet hij dat? en is er een oplossing voor dat dit niet meer gebeurt?

 

[ExcelAmateur]

Het wil niet echt lukken, met dit probleem.
Ik moet je het antwoord schuldig blijven, zou het niet weten.