ich habe folgende Makros:
Sub Blattschutz()
ActiveSheet.Protect Password:="TestPW", UserInterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub
Sub BlattschutzAus()
ActiveSheet.Unprotect Password:="TestPW"
End Sub
Und im folgenden Makro möchte ich zunächst den Blattschutz aufheben, damit Excel die Spalten & Zeilen ausblenden kann, danach soll der Blattschutz wieder gesetzt werden.
Das funktioniert bei mir jedoch nicht.
Woran liegt das?
Sub SpalteAusblenden()
Call BlattschutzAus
If [H4] = 1 Then
Range("F:J").EntireColumn.Hidden = True
Range("7:8").EntireRow.Hidden = True
Range("E6").Select
ActiveCell.FormulaR1C1 = "100%"
Range("E7").Select
ActiveCell.FormulaR1C1 = "0%"
Range("E8").Select
ActiveCell.FormulaR1C1 = "0%"
ElseIf [H4] = 2 Then
Range("F:J").EntireColumn.Hidden = True
Range("F:G").EntireColumn.Hidden = False
Range("8:8").EntireRow.Hidden = True
Range("7:7").EntireRow.Hidden = False
Range("E6").Select
ActiveCell.FormulaR1C1 = "80%"
Range("E7").Select
ActiveCell.FormulaR1C1 = "20%"
Range("E8").Select
ActiveCell.FormulaR1C1 = "0%"
ElseIf [H4] = 3 Then
Range("F:J").EntireColumn.Hidden = True
Range("F:I").EntireColumn.Hidden = False
Range("6:8").EntireRow.Hidden = False
Range("E6").Select
ActiveCell.FormulaR1C1 = "50%"
Range("E7").Select
ActiveCell.FormulaR1C1 = "35%"
Range("E8").Select
ActiveCell.FormulaR1C1 = "15%"
End If
Range("A1:I56").Calculate
Call Blattschutz
End Sub