leider hab ich kein hilfreiches Makro gefunden, welches mehrere Spalten ausblendet und nur mittels Passwort wieder einblenden lässt.
Hierfür benötige ich ebenfalls einen Button.
Vielen Dank für eure Unterstützung.
Hans
Option Explicit
Sub ein_ausblenden()
Const STR_SPALTEN As String = "C:C,E:E,K:K" 'Hier die gewünschten Spalten angeben
ActiveSheet.Unprotect Password:="xyz"
Range(STR_SPALTEN).EntireColumn.Hidden = Not Range(STR_SPALTEN).EntireColumn.Hidden
ActiveSheet.Protect Password:="xyz"
End Sub
VG, Boris
Sub ausblenden()
Dim Datei
ActiveSheet.Columns("B").Hidden = True
For Each Datei In Application.CommandBars.FindControls(ID:=887)
Datei.Enabled = False
Next
End Sub
Sub einblenden()
Dim Datei
If Application.InputBox("Passwort") = "Hans" Then
ActiveSheet.Columns("B").Hidden = False
For Each Datei In Application.CommandBars.FindControls(ID:=887)
Datei.Enabled = True
Next
End If
Gruß Ewald