VBA selecting multiple sheets Solved/Closed

Question

Hello,

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 dont know how to add more than one sheet. Can somebody help me?

Excelguru · Accepted Answer

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

discokiza · Answer

Tnx very much. It was so simple.

VBA selecting multiple sheets

2 responses

Similar discussions

Subscribe To Our Newsletter!