Foutmelding bij alleen lezen bestand opslaan negeren

[carloschouw]

Hoi,

Ik gebruik voor een Excelbestand de volgende code bij afsluiten:

Private Sub workbook_beforeclose(cancel As Boolean)

Application.DisplayAlerts = False

    ActiveWorkbook.Save

Application.DisplayAlerts = False

End Sub

Wanneer ik een Excel bestand in alleen lezen open heb staan en het Excelbestand afsluit volgt een melding fout 1004 tijdens uitvoering. Logisch want het bestand kan ik een leesmodus niet opgeslagen worden.

Nu heeft niet iedereen schrijfrecht maar zou het automatisch opslaan willen behouden maar geen foutmelding willen ontvangen bij afsluiten in leesmodus.

Is hiervoor een code aanwezig die ik daarvoor zou kunnen gebruiken misschien?

 

[edmoor]

Zet er On Error Resume Next voor.

 

[Haije]

en wijzig de tweede

Application.DisplayAlerts = False

in

Application.DisplayAlerts = True

 

[HSV]

De tweede mag je ook weglaten, het wordt altijd weer True.

Testje.

[COLOR=#141414][FONT=&quot]MsgBox Application.DisplayAlerts[/FONT][/COLOR]

 

[carloschouw]

Super, het werkt!

Dank voor jullie hulp!