697 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo,

ich habe das Problem, dass die Nutzer einer Exceldatei, welche mit Schreibschutz abgespeichert wurde, keine Änderungen in der Datei vornehmen sollen können. Konkret geht es mir darum, dass die vor dem Schließen der Datei oder vor dem Versuch die aktuelle Datei zu speichern, die gerade aktive Zelle, welche ich über VBA immer farbig hervorheben lasse, auch wieder in ihr altes Format fällt. Die letzte farbige Zellhervorhebung soll also ebenfalls wieder rückgängig gemacht werden. Folgenden Code habe ich in das Worksheet eingegeben, der es jedoch nicht verhindert:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Würde mich freuen, wenn mir jemand wieder helfen kann.

2 Antworten

0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
vielleicht so:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveCell.ClearFormats
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveCell.ClearFormats
End Sub

Gruß
fedjo
0 Punkte
Beantwortet von
Hi fedjo,

hat prima geklappt. Vielen Dank.

BK2015
...