Creating notebooks with specific options being editable but not saveable

Question

The goal

To create a notebook whose options, when the notebook is opened, are fixed regardless of edits done to the notebook.

E.g. WindowSize -> Automatic and WindowMargins -> 30 should be a starting value even if one has saved that notebook from full screen mode.

The motivation

Notebooks are shared, e.g. through Google Drive, and opened on different devices. It is annoying to open a notebook, which was previously used with 250% magnification, taking half of 4K screen, on a 13" laptop.

The question

Is there a good approach which is flexible, doesn't trigger dynamic warning and if possible works from a stylesheet?

I've thought that maybe something like WindowSize -> Dynamic[dynamic, Initialization :> (dynamic = init)] where dynamic and init are references to specific TaggingRules.

It won't work because notebook options are overwritten. Moreover, Initialization can be triggered when the Kernel is restarted which is not desirable.

Edit:

I have not received any answers so I'm moving tests I've done to an answer. I think they fit there and the goal is to reduce unanswered stack. But I will gladly accept any answer that fulfills all stated requirements.

Answer 1

Approaches (none is perfect):

1. NotebookDynamicExpression, something along those lines:

   NotebookDynamicExpression :> Refresh[
     SetOptions[EvaluationNotebook[], WindowSize -> Automatic], 
     None
   ]
   

   I don't like it. The reasons are:

   • NotebookDynamicExpression is unique and there are no tools to automatically merge/compose multiple events assigned at different times.

   • It won't fire when the Kernel is restarted but only because there is a bug. So at the end it will have the same flaw. (although experience tells me I don't have to worry about that in a near future)

     If NotebookDynamicExpression doesn't fire in new kernel sessions, it certainly should.

At the end the method is poor because it triggers Enable Dynamic Updating warning in the notebook (on an untrusted path) while nothing serious is going on.

2. NotebookEventActions

   NotebookEventActions :> {"WindowClose" :> (
     SetOptions[EvaluationNotebook[], WindowSize -> Automatic, WindowMargins -> 30];
     NotebookSave[]
     ),
     PassEventsDown -> True
   }
   

   Is not general enough as it misses things like NotebookClose[]. It also flashes before it is closed but this is not so important.