Office: unbefugten benutzern das speichern nicht erstatten

also folgendes problem ich gebe einzelne zellen frei, zum beschreiben von unbefugten benutzern. sperre aber den rest des dokuments mit "dokument schützen"
so dass zb ein freund die datei aufmacht und in dem kästchen, welches ich frei gegeben habe, rumschreiben kann.
nun will er dieses speichern, kann er auch. will ich aber nicht.
sozusagen das man drin rumschreiben kann, es aber wenn man es, nachdem jemand dran war wieder öffnet, es dennoch wieder so aussieht wie ich es erstellt habe.
danke schonmal für die antworten.

 

unter DieseArbeitsmappe
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Environ("Username") <> "Ich" Then Cancel = True
End Sub

Namen anapssen

Gruß Hajo

 

im Datei-Explorer rechte Maustaste auf der Datei - "Eigenschaften" - [X] schreibgeschützt

Gruß, Michael