Speichern der Arbeitsmappe verhindern!
10.04.2007 17:51:49
Steve
Hi *,
ich habe eine Arbeitsmappe die:
a) von Usern niemals gespeichert werden soll
b) von mir hin und wieder gespeichert wird, wenn ich etwas modifizieren.
Hierzu habe ich folgenden Code hinterlegt:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Global").Range("A1").Value = 0 Then
Cancel = True
MsgBox "Speichern nicht möglich. Bitte an Admin wenden!", vbInformation, "Speichern _
nicht erlaubt"
' messagebox with text, OK-button, information-icon and a custom title text
End If
End Sub
Das Problem ist jetzt folgendes:
Wenn ich die Datei wieder schreibschützen möchte, also den A1 Wert auf 0 setzen, möchte ich natürlich genau einmal speichern, damit der 0 Wert auch wieder hinterlegt wird. Bisher habe ich immer die Makros in der Arbeitsmappe deaktiviert, damit ich den Null-Wert einmal abspeichern kann... Gibt es einen eleganteren Weg?
Danke, Steve