Microsoft Excel

Herbers Excel/VBA-Archiv

Bestimmte Zellen Formatierung zulassen

Betrifft: Bestimmte Zellen Formatierung zulassen von: Hartmut_M
Geschrieben am: 04.09.2014 14:25:26

Hallo, bitte helft mir bei folgender Frage.

Tabellenblatt ist geschützt mit:

ActiveSheet.Protect Password:="xyz", AllowFormattingCells:=false

Ich möchte aber im Zellbereich A3:Z100 eine Formatierung zulassen, wenn die Hintergrundfarbe gelb ist. Habe es so versucht:

For Each z In Range("A3:Z100")
If z.Interior.ColorIndex = 6 Then
ActiveSheet.Protect Password:="xyz", AllowFormattingCells:=True
End If
Next

Das funktioniert aber nicht. Habt ihr einen Tipp, wie ich das hinbekomme?

Danek und Gruß Hartmut


  

Betrifft: AW: Bestimmte Zellen Formatierung zulassen von: {Boris}
Geschrieben am: 04.09.2014 18:54:52

Hi Hartmut,

die (Un)protect-Methode bezieht sich immer auf das ganze Blatt.
Du könntest mit dem Selection-Change-Ereignis arbeiten:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="xyz"
With Target
    If .Count = 1 Then
        If .Interior.ColorIndex = 6 Then
            ActiveSheet.Unprotect Password:="xyz"
        End If
    End If
End With
End Sub

VG, Boris


  

Betrifft: AW: Bestimmte Zellen Formatierung zulassen von: Hartmut_M
Geschrieben am: 05.09.2014 09:54:08

Hallo Boris,
danke für den Tipp. Werde ich ausprobieren. Bin heute nur nicht im Büro.
Dies nur als Zwischeninfo.
Gruß hartmut


 

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zellen Formatierung zulassen"