VBA - Speichern verhindern

[SteBen]

Hallo zusammen,

ich habe eine ziemlich komplexe Tabelle, in der manche Zellen durch Schreibschutz geschützt sind, andere wiederum sind zur Bearbeitung freigegeben.
Leider passiert es häufiger, dass Kollegen aus Versehen die Datei speichern & die gemachten Einträge von anderen Kollegen vergessen werden zu löschen.

Um dem ganzen vorzubeugen, würde ich gern (vermutlich per VBA) das speichern der Datei verhinden.

Hat jmd. einen Vorschlag, wie sich sowas umsetzen lässt?

Für Eure Hilfe vielen Dank vorab

VG
SteBen

[UweD]

Hallo

soll die Datei denn unter einem anderen Namen gespeichert werden?
Sonst machen ja Eintragungen keinen Sinn.

LG UweD

[SteBen]

Hi Uwe,

nein, sie soll gar nicht überspeichert werden.
Wenn die Kollegen die nötigen Infos eingetragen haben, wird am Ende ein PDF generiert, welches dann auch gespeichert wird. 

Die Datei an sich soll aber in ihrer "Rohfassung" bleiben.

VG

[UweD]

Hallo nochmal


Muss in den Codebereich "DieseArbeitsmappe"

Also
- in der Tabelle ALT + F11 drücken
- links im VB Editor bei der richtigen Mappe einen Doppelclick auf "DieseArbeitsmappe"
- rechts dann das hier reinkopieren

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    MsgBox "Speichern nicht zugelassen", vbCritical + vbOKOnly

End Sub

LG UweD

[Kuwer]

Die Datei an sich soll aber in ihrer "Rohfassung" bleiben.

Speichere die Datei als Vorlage (xltx oder mit Makros xltm).

Gruß Uwe

[SteBen]

Danke Euch beiden.