Bez makra neviem, makrom by to šlo. V kódovom okne ThisWorkbook:Sub workbook_open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next sh
End Subcitovat
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next sh
End Subcitovat