A few words of thanks would be greatly appreciated.

Excel VBA - Selecting multiple sheets

Latest update on March 3, 2010 at 09:49 AM by aakai1056 .

Issue
Solution
Note

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.

Vba select multiple sheets
Excel vba select multiple sheets - Best answers
Vba select multiple worksheets - Best answers
VBA selecting multiple sheets ✓ - Forum - Programming
Vba select last sheet - How-To - Excel
Excel vba rename multiple sheets based on cell value - How-To - Excel
Vba copy multiple sheets to another workbook - How-To - Excel
Excel Macro: Rename all Worksheets ✓ - 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).

Excel - Selectively Transfer Data to Pre-defined Range

Automation of running excel macros

Issue

Solution

Note

Subscribe To Our Newsletter!