AW: Arbeitsmappe schreibschützen (wieder mal...)
Beate
Hallo Stefan,
ob es mit deiner Excel-Version geht, keine Ahnung. Folgender Vorschlag:
Setze alle 3 Makros ins Codefenster "dieseArbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("Tabelle1!X1").Value <> 5 Then
MsgBox "Goodbye for now - Speichern nicht möglich"
ActiveWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
If Range("Tabelle1!X1").Value <> 5 Then
MsgBox "Goodbye for now - Speichern nicht möglich"
ActiveWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub
Private Sub Workbook_Open()
Range("Tabelle1!X1").Value = 3
End Sub
Wenn in Zelle X1 in Tabelle 1 keine 5 (praktisch als Geheimzahl gedacht)steht (dies kann ja unsichtbar sein z.B. Schriftfarbe = Zellenfarbe) und der User will entweder speichern oder schiessen (üblicherweise mit Speicherrückfrage), erscheint Message-Box, die den User verabschiedet und die Datei ohne Speichern und ohne Rückfrage schließt.
Will ein berechtigter User was ändern, muss er eine 5 in diese Zelle eingeben und kann speichern .
Das Workbook-Open Makro sorgt dafür, dass X1 bim Öffnen jedenfalls auf 3 gesetzt wird und speichern verhindert.
In deinem Fall müsste man dieses Speichern wegen Zähler beim Datei öffnen noch im Workbook open Makro einbauen. Dafür müßte man dein Makro aber kennen.
Gruß,
Beate