Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzeige in Feld A1 wenn Blattschutz gesetzt ?

Anzeige in Feld A1 wenn Blattschutz gesetzt ?
08.11.2006 12:09:06
Fabio
Hallo zusammen,
Blattschutz für einzelne Tabellen etc. schaffe ich auch per VBA (und wenn man mehrere Tabellenblätter hat ist das auch sinnvoll).
Wie schaffe ich aber folgendes:
Wenn ein Blattschutz gesetzt ist, dann
-> Färbe die Zelle A1 rot und schreibe in die Zelle "Blattschutz JA"
Wenn kein Blattschutz gesetzt ist, dann
-> Färbe die Zelle A1 grün und schreibe in die Zelle "Blattschutz Nein".
Hat da jemand Rat/Tip/Lösung für mich ?
Fabio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige in Feld A1 wenn Blattschutz gesetzt ?
08.11.2006 12:57:40
IngGi
Hallo Fabio,
in's Modul des betreffenden Tabellenblattes:

Private Sub Worksheet_Activate()
If Me.ProtectContents Then
   Me.Unprotect
   Range("A1") = "Blattschutz ja"
   Range("A1").Interior.ColorIndex = 46
   Me.Protect
Else
   Range("A1") = "Blattschutz nein"
   Range("A1").Interior.ColorIndex = 43
End If
End Sub
Code eingefügt mit Syntaxhighlighter 4.3

Gruß Ingolf
Anzeige
Danke
08.11.2006 13:00:26
Fabio
Sogar herzlichen Dank dafür !

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige