Schreibgeschützt; farbige Zellen nicht drucken
21.09.2015 15:09:35
Falco
ich habe folgendes Problem:
Es sollen von Mitarbeitern diverse Zellen ausgefüllt werden, diese sind farblich markiert. Beim Drucken und speichern (speziell pdf) soll diese farbliche Markierung wieder weg sein. Zudem soll das Arbeitsblatt bzw. die Arbeitsmappe schreibgeschützt sein damit niemand etwas verändern kann.
Die farbigen Zellen bestehen aus teils verbundenen, teils als Tabellenform oder einzeln.
Mein bisheriger Ansatz mit zwei Ereignisprozeduren:
Zuerst benenne ich den Bereich, der hervorgehoben werden soll mit dem Namen "farbig". Danach _ weis ich "DieseArbeitsmappe" den folgenden Code zu:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Tabelle3").Range("farbig").Interior.ColorIndex = xlNone
Worksheets("Tabelle3").Range("farbig2").Interior.ColorIndex = xlNone
End Sub
Dem betroffenen Tabellenblatt habe ich noch folgenden Code hinzugefügt:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Worksheets("Tabelle3").Range("farbig").Interior.ColorIndex = 3
Worksheets("Tabelle3").Range("farbig2").Interior.ColorIndex = 3
End Sub
Das funktioniert soweit alles gut ohne den Schreibschutz, mit hingegen kommt immer:
Laufzeitfehler 1004; Anwendungs- oder objektdefinierter Fehler
Ich habe auch schon herausgefunden das der Fehler aufgrund der fehlenden Zugriffsrechten des Makros entsteht. Jedoch fehlt mir das wissen dies nun zu vollenden.
MfG
Falco
Anzeige