Zellen ein/ausblenden
30.03.2021 08:51:33
Lorenzo
Ich habe ein Formular erstellt bei dem mittels VBA Code bei der Auswahl eines Produktes (D20) mittels Dropdown einzelne Spalten EIn/- Ausgeblendet werden.
Nun wollte ich noch einen Blattschutz einbauen bei dem nur bestimmt Zellen ausgefüllt werden können.
Mit Format -> Schutz -> Häcken Gesperrt entfernen ,; Überprüfen -> Blatt schützen.
Sobald der Blattschutz aktiv ist und ich ein Produkt auswähle bei dem einzelne Spalten eingeblendet werden , bekomme ich eine Fehlermeldung:
'Laufzeitfehler '1004' Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Der VBA Code:
Private Sub Worksheet_Calculate() 'Umschlag SW einblenden'
If Range("D20").Value = "Broschüre SW" Or Range("D20").Value = "Broschüre Color" Or Range("D20") _
_
_
.Value = "Broschüre Umschlag Color Inhalt SW" Then
Rows("32:40").Hidden = False
Else
Rows("32:40").Hidden = True
End If 'Ordner Einblenden'
If Range("D20").Value = "Ordner Inhalt SW" Or Range("D20").Value = "Ordner Inhalt Color" Then
Rows("41:49").Hidden = False
Else
Rows("41:49").Hidden = True
End If 'Falz&Flyer Einblenden'
If Range("D20").Value = "Falz SW" Or Range("D20").Value = "Falz Color" Or Range("D20").Value = " _
_
_
Flyer Color" Or Range("D20").Value = "Flyer SW" Then
Rows("24:31").Hidden = False
Else
Rows("24:31").Hidden = True
End If
End Sub
Vielen Dank im Voraus für die Hilfe!