Rozgrupowanie zahasłowanego arkusza

Private Sub Workbook_Open() Dim Arkusz As Worksheet Const strHaslo As String = "mb" '<-tu ewentualnie wpisz hasło For Each Arkusz In Worksheets 'With Worksheets("Arkusz1") Arkusz.EnableOutlining = True Arkusz.Protect Password:=strHaslo, UserInterfaceOnly:=True 'End With Next End Sub