AW: Schutz Autofilter
15.02.2006 21:16:26
Konni
Hallo Klaus,
ich hatte versehentlich Luschi geantwortet,
probiers mal mit diesem Makro
Sub Seite_schützen()
Sheets("Name Deiner Tabelle").Select
ActiveSheet.Unprotect Password:="Passwort" 'hebt Schutz auf
ActiveSheet.EnableAutoFilter = True ' Setzt AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True, Password:="Passwort" 'aktiviert Schutz
End Sub
Gruß
Konni
P.S.
In Excel 10 (Office 2003) kannst Du den Autofilter auch bei geschützter Tabelle zulassen, wenn Du beim Schutz aktivieren im Auswahlmenue nach unten scrollst und einen Haken setzt!