874 Aufrufe
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
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
von
Hi fedjo,

hat prima geklappt. Vielen Dank.

BK2015

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...