Skocz do zawartości


Close Open
Close Open

tomwie.

Dołączył: 26 Mar 2018
Offline Ostatnio aktywny: Mar 27 2018 07:11 AM
-----

Moje tematy

Excel- makro grupowanie - Grupowanie, wstawianie wierszy i jednoczesna ochrona-

26 March 2018 - 11:08 AM

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