Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung

Forumthread: Bedingte Formatierung

Bedingte Formatierung
08.07.2021 11:09:49
sw
Hallo,
ich würde gerne in einem Excel-Sheet ein Feld über eine bedingte Formatierung anders formatieren, wenn die Datei schreibgeschützt geöffnet wurde.
Es gibt zwar z.B. die Funktion Zelle mit "Schutz" aber das bezieht sich ja nur auf die Zelleigenschaft.
Gibt es etwas Vergleichbares für die Eigenschaft "Datei schreibgeschützt" oder eine andere Lösung?
Vielen Dank für die Tipps!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung
08.07.2021 12:05:20
UweD
Hallo
über VBA ginge das.
Muss in den Codebereich von "DieseArbeitsmappe"

Private Sub Workbook_Open()
With Sheets("Tabelle1").Range("A1").Interior
If Me.ReadOnly = True Then 'Gelb
MsgBox "schreibgeschützt"
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
Else 'ohne Farbe
MsgBox "NICHT schreibgeschützt"
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End If
End With
End Sub
LG UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige