Excel VBA - Odabir više listova

Problem

Imam određeni VBA kod koji sam iskoristiti za grupa / ungroup na zaštićeni list. Radi dobro, ali samo na jednom listu. Kako ga mogu modificirati za rad na dva?

 Privatni pod Workbook_open () sa Sheet1 .Protect Password: = "tajna", userinterfaceonly: = True. 

Ne znam kako dodati više od jednog lista. Može li mi netko pomoći?

Riješenje

Pokušaj ovo:

 Private Sub Workbook_open () S listovima ("Sheet1 name") .Protect Password: = "secret", userinterfaceonly: = True. : = True .EnableOutlining = Istinski kraj s krajnjim podskupom 

Bilješka

Zahvaljujući Excelguru za ovaj savjet na forumu.