Filter benutzen
juergen
benutze u. stehendes Makro, möchte in Tabellenblatt1 trotz Schutz die Filter benutzen, kann mir bitte jemand mitteilen, wie ich das hinbekomme. Problem: Obwohl ich das Häckschen "Filter erlaubt" aktiviere, nimmt er mir dies wieder raus, nachdem ich die Mappe öffne.
Danke für Eure Hilfe
Gruß
Juergen
Private Sub Workbook_Open()
'Arbeitsmappe Einstellungen
Me.Worksheets(1).Unprotect Password:="Name" 'diese Zeile anpassen
With Application
.Calculate 'Arbeitsmappe neu berechnen
.Calculation = xlCalculationAutomatic ' Berechnungsmodus automatisch
.DisplayFullScreen = True 'Vollbildmodus
.WindowState = xlMaximized 'Excelfenster maximieren
.ActiveWindow.Zoom = 66 'Zoomfaktor einstellen
.ActiveWindow.ScrollColumn = 1 ' nach ganz links scrollen
End With
Me.Worksheets(1).Protect Password:="Name" 'diese Zeile anpassen
End Sub
Anzeige