habe folgenden Code um jeweils zwei Spalten per Doppelklick in der ersten Zelle auszublenden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "..."
If Target.Row > 1 Then Exit Sub
If Target.Column 32 Then Exit Sub
Target.Offset(0, WorksheetFunction.IsEven(Target.Column)).Resize(, 1).EntireColumn.Hidden = _
True
Target.Offset(0, WorksheetFunction.IsEven(Target.Column - 1)).Resize(, 1).EntireColumn. _
Hidden = True
Cancel = True
ActiveSheet.Protect "..."
End Sub
Das ganze funktioniert ohne Blattschutz optimal.Sowie ich über VBA .Protect wieder reinnehme geht das Ganze nur einmal.
Im Netz habe ich einen Hinweis wie:
Worksheets(Blatt).Protect (PW), UserInterFaceOnly:=True
gefunden, bekomme ich aber auch nicht hin.
Gruß Rainer