Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile Hervorheben trotz Blattschutz

Zeile Hervorheben trotz Blattschutz
13.03.2015 09:09:38
Matthias
Hallo,
ich versuche gerade die aktive Zeile hervorzuheben.
Dazu nachfolgender Code.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6  'Hintergrund Gelb
End Sub
Das funktionier auch.
Sobald ich aber den Blattschutz einschalte, funktioniert es nicht mehr.
Ich möchte aber bewusst vermeiden, dass die Formatierung von anderen geändert werden kann.
Kann mir hier jemand weiterhelfen?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile Hervorheben trotz Blattschutz
13.03.2015 09:23:43
Bernd
Hallöchen!
Ich bin KEIN VBA-Profi aber bei mir funktioiert das mit nachstehendem VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6  'Hintergrund Gelb
ActiveSheet.Protect
End Sub
lg Bernd

AW: Zeile Hervorheben trotz Blattschutz
13.03.2015 09:23:54
Oberschlumpf
Hi Matthias
Versuch es mal so:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6  'Hintergrund Gelb
ActiveSheet.Protect
End Sub
Wenn du für den Blattschutz ein Passwort vergeben hast, dann musst du das Passwort als Parameter an die zwei Zeilen mit anfügen.
Die genaue Syntax wird dir gezeigt, wenn du im VBE Unprotect oder Protect 1x anklickst und dann auf F1 drückst.
Hilfts?
Ciao
Thorsten

Anzeige
AW: Zeile Hervorheben trotz Blattschutz
15.03.2015 06:47:10
Oberschlumpf
hi
du musst nicht antworten, ob unser Vorschlag passt, aber es wäre schon cool, wenn du es tun würdest

AW: Zeile Hervorheben trotz Blattschutz
17.03.2015 12:01:00
Matthias
Hallo,
Entschuldigung.
Zur INFO.
Es war ein sehr guter Tipp. Vielen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige