Arbeitsbaltt schuetzen, Zellen trotzem verbergen

Hallo an alle,
wisst ihr ob es eine Moeklichkeit gibt ein Arbeitsblatt zu schuetzen, aber wo man trotzdem Zeilen weiterhin verbergen kann ??? Habe dass mit der Gruppierung hinbekommen , aber ich kann keine Zeilen verbergen. Ich brauche diese Funktion da ich sie in einem anderen Marko genutzt habe.
Habe es auch schon mal mit einen befehl wie 'ActiveSheet.EnableHidding = True' versucht, klappt leider nicht , gibt es wohl nicht. Waere fuer Hilfe sehr dankbar !!

Private Sub Workbook_Open()
'Sheets("Sheet1").Select'
'ActiveSheet.Protect Password:="safe", UserInterfaceOnly:=True'
'ActiveSheet.EnableOutlining = True'
End Sub