Macro werkt wel in excel 2003 maar niet in 2007 en 2010: Workbooks.Open Filename:=Ac

[oceanrace]

Hallo,
Onderstaande code werkt perfect in excel 2003.
Echter, excel 2007 en 2010 loopt erop vast!
Weet iemand hier een oplossing voor?

Sub heropen()
       Keuze = MsgBox("Alle ingevulde gegevens worden gewist, weet je het zeker?", vbExclamation + vbYesNo, "Bestand resetten")
 
    Select Case Keuze
 
        Case vbYes
ActiveWorkbook.Saved = True
Workbooks.Open Filename:=ActiveWorkbook.FullName
Application.EnableEvents = True
 
        Case vbNo
   End Select
Exit Sub
 
End Sub

 

[robdgr]

Echter, excel 2007 en 2010 loopt erop vast! Weet iemand hier een oplossing voor?

Bas,

Hij doet het goed in 2010, dus ik zie het probleem niet.

 

[oceanrace]

Dat is vreemd,
Bij mij loopt hij vast.
Zou het door de grootte van het bestand komen misschien?
Of door mijn laptop uit 2007...

 

[oceanrace]

Zou je ook gewoon het laatst geopende bestand opnieuw kunnen openen op een andere manier?

 

[oceanrace]

Ik heb het inmiddels als volgt opgelost:


Sub heropen()
Keuze = MsgBox("Alle ingevulde gegevens worden gewist, weet je het zeker?", vbExclamation + vbYesNo, "Bestand resetten")

Select Case Keuze

Case vbYes
Application.OnTime Now + TimeSerial(0, 0, 1), _
"'" & ThisWorkbook.Name & "'!naamvanjemacro"

ThisWorkbook.Close savechanges:=False

Case vbNo
End Select
Exit Sub

End Sub