Excel VBA - vairāku lapu izvēle

Izdevums

Man ir noteikts VBA kods, ko es izmantoju grupas / ungroup aizsargātajā lapā. Tas darbojas tikai naudas sodā, bet tikai uz vienas lapas. Kā es varu to mainīt, lai strādātu ar diviem?

 Privātais Sub Workbook_open () Ar Sheet1 .Protect Password: = "Secret", userinterfaceonly: = True .EnableOutlining = True Beigas ar Beigu Sub 

Es nezinu, kā pievienot vairākas lapas. Vai kāds man var palīdzēt?

Risinājums

Izmēģiniet šo:

 Privāta subgrāmatas_open () Ar loksnēm ("Sheet1 nosaukums") .Protect Password: = "Secret", userinterfaceonly: = True .EnableOutlining = True End With With Ar Lapām ("Sheet2 nosaukums") .Protect Password: = "secret", userinterfaceonly : = True .EnableOutlining = True beigas ar beigu sub 

Piezīme

Paldies Excelguru par šo padomu forumā.