Blattschutz mittels VBA aufheben
17.02.2004 16:17:07
Helmar
ich habe das Problem, daß bei einem Excelsheet Zeilen aus- und einblenden möchte, daß jedoch gesperrt ist. Excel weigert sich gesperrte Bereiche ein- oder auszublenden.
Weshalb funktioniert folgendes Macro nicht?
Sub CheckBox12_Click()
ActiveSheet.Unprotect
Range("K7:BJ7").Locked = False
If [B7] = "True" Then
Range("K7:BJ7").EntireColumn.Hidden = False
Else
Range("K7:BJ7").EntireColumn.Hidden = True
End If
Range("K7:BJ7").Locked = True
ActiveSheet.Protect
Range("b11:c11").Select
End Sub
Vielen Dank für Eure Hilfe
Helmar