Excel VBA - Избор на няколко листа

Проблем

Имам определен VBA код, който използвам за група / разгрупиране на защитен лист. Тя работи добре, но само на един лист. Как мога да го променя, за да работи на две?

 Частно под Workbook_open () С Sheet1. Защитава парола: = "секретно", userinterfaceonly: = True .EnableOutlining = True End With End Sub

Не знам как да добавя повече от един лист. Може ли някой да ми помогне?

Решение

Опитайте тази:

 Частна под работна книга () с листове ("име на листа"). Защита на парола: = "секретно", userinterfaceonly: = True. \ TИзключване = True End With With листа ("Sheet2 name") .Protect Password: = "секретно", : = True .EnableOutlining = True End С крайния под