MS Excel

Na povolenie pridania riadkov a ich formátovania sú parametre:
ThisWorkbook.Worksheets("List").Protect Password:="heslo", AllowInsertingRows:=True, AllowFormattingRows:=True
+ ostatné parametre, ktoré máte.
Ale ako máte urobené, či čo za parameter povolí "Seskupeni a Oddeleni" (asi tým myslíte Merge), tak to netuším.

Linkcitovat

Tak nevim, co je za problem, ale kdyz spustim nasledujici makro, nefunguje mi rozbalovani a seskupovani i pres nastavene .EnableOutlining = True. V cem by mohl byt problem? Moc dekuji.

Makro je nasledujici:

Sub workbook_open()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

With sh

.EnableOutlining = True

.Protect Contents:=True, UserInterfaceOnly:=True, Password:="heslo", AllowInsertingRows:=True, AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

End With

Next sh

End Subcitovat