Excel VBA - Selecting multiple sheets
Issue
I have a certain VBA code that I use for group/ungroup on protected sheet. It works just fine but only on one sheet. How can I modify it to work on two?
Private Sub Workbook_open() With Sheet1 .Protect Password:="secret", userinterfaceonly:=True .EnableOutlining = True End With End Sub
I don't know how to add more than one sheet. Can somebody help me?
Solution
Try this:
Private Sub Workbook_open()
With sheets("Sheet1 name")
.Protect Password:="secret", userinterfaceonly:=True
.EnableOutlining = True
End With
With sheets("Sheet2 name")
.Protect Password:="secret", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Note
Thanks to Excelguru for this tip on the forum.
Related
- Vba select multiple sheets
- Excel vba select multiple sheets - Best answers
- Vba select multiple worksheets - Best answers
- VBA selecting multiple sheets ✓ - Forum - Programming
- Excel vba select last sheet - How-To - Excel
- Vba select active sheet ✓ - Forum - Excel
- Excel vba hide multiple sheets based on cell value - How-To - Excel
- Excel vba rename multiple sheets based on cell value - Forum - Excel
This document, titled « Excel VBA - Selecting multiple sheets », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).
