Office: (Office 365) Spalten wieder einblenden per VBA

Guten Abend zusammen,

ich habe das kleine Problem das sich die Spalte "E:Z" nicht mehr einblenden lassen, weil das "Ausblenden" unter Private Sub Worksheet_Activate() steht und das "Wiedereinblenden" im Button-Code blockiert.
Wäre das mit einem einfach umzusetzenden Kniff zu lösen ?

Danke für Deine Antwort im Voraus.
Jens

Private Sub Worksheet_Activate()
...
Worksheets("Eingabe").Unprotect
Sheets("Eingabe").Columns("E:Z").Hidden = True
Worksheets("Eingabe").Protect
...
End Sub



Button-Code:
Sub Menue_einblenden()
ActiveSheet.Unprotect
Sheets("Eingabe").Columns("E:Z").Hidden = False
ActiveSheet.Protect
End Sub

 

Hi,

s. auch hier: Spalten wieder einblenden per VBA - MS-Office-Forum

 

Habe es eben wie folgt gelöst.
Habe eine Statusvariable verwendet, um zu steuern, ob die Spalten bei der Aktivierung ausgeblendet werden sollen oder nicht.
Diese Statusvariable wird durch den Button-Code gesetzt und zurückgesetzt.