tomwie.

Witam! 

Potrzebuję kodu do excela, który umożliwi mi jednoczesne grupowanie i ochronę arkusza, póki co mam coś takiego jak poniżej, jednak uniemożliwia mi to wstawianie kolejnych wierszy. Jestem zdecydowanie początkujący w tworzeniu kodów i potrzebuję pomocy w rozwiązaniu problemu 
 

Private Sub Workbook_Open() 

With Worksheets("Inne") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Beton, pompy") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Stal") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Elementy murowe i zaprawy") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Kruszywa") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Szalunki") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Sprzęt") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Żurawie") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Kontenery") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

With Worksheets("Kadra") 
.Protect Password:="hasło", _ 
UserInterfaceOnly:=True 
.EnableOutlining = True 
End With 

End Sub