Schreibschutz / Speichern

bisher habe ich dieses Makro benutzt

private sub workbook_beforeclose(cancel as boolean)
activeworkbook.save
end sub

ich habe allerdings nun eine Datei, die Mitarbeiter nur schreibgeschützt öffnen können. Wie müsste der Code lauten, wenn ich sagen will:
wenn Datei schreibgeschützt geöffnet, dann schliessen ohne speichern, ansonsten vor dem Schliessen speichern?

Sinn und Zweck ist der, die Abfrage, ob gespeichert werden soll, abzufangen, da keine Änderungen vorgenommen werden dürfen.

Vielen Dank für Hilfe

Gruss
Jürgen