Wie das so ist, ein Problem gelöst und das nächste folgt auf dem Fuße.
Habe mich deshalb entschlossen anstatt 3 Anfragen zu stellen, den Komplex als Ganzes anzufragen.
a.In einer Tabelle die Spalten O-IV ausblenden, bzw nur die Spalten A-N sichtbar haben:
Mit dem Code
Sub MakroSpalten()
'
Columns("O:IV").Select
Selection.EntireColumn.Hidden = True
End Sub
klappt das ab 2000/XP wunderbar, in 97' geht das nur bis Spalte IQ - danach gib's die Fehlermeldung das nicht über das Blatt hinaus verschoben werden kann???
b. Die Zeile 7 wird über einen Button ein/-und ausgeblendet und im gleichen Code, das Blatt geschützt.
Der funktionierende Code:
Sub HideUnHide()
ActiveSheet.Unprotect ("Test")
Rows("7").Hidden = Not (Rows("7").Hidden)
ActiveSheet.Protect ("Test")
End Sub
c. Ja, und nun soll in Zeile 6 ein Autofilter rein; klappt übers Menü wie auch mit dem Recorder, aber der Filter ist durch den eingeschalteten Schutz dann gesperrt!!
Sub MakroFilter()
Rows("6:6").Select
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Das mit dem AllowFiltering klappt nicht.
Läßt sich das alles zusammen realisieren?
Gruß,
Juergen