Tabbladen beveiligen

[DClewis]

Ik heb een mooie code gevonden om al mijn tabbladen te beveiligen wat ik super handig vind.
Maar wat ik eigenlijk wil is dat de code maar enkele tabbladen beveiligd.

Nu heb ik uiteraard best wat geprobeerd maar ik krijg het niet voor elkaar.
Kan iemand mij hier bij helpen?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each sht In ThisWorkbook.Sheets
        sht.Protect "DClewis"
    Next sht
    
End Sub

 

[VenA]

for each sh in sheets(array("Blad1","Blad2",etc))

 

[DClewis]

Nog net niet

Excuus voor de late reactie.
Ik heb het geprobeerd maar ik krijg de volgende foutmelding:

Compileerfout
Ongeldige verwijzing naar besturingselementvariabele Next

Next sht
sht staat in het geel

 

[VenA]

next sh of for each sht.

 

[DClewis]

Next sht

 

[VenA]

laat het gewoon weg achter next als je niet begrijpt hoe variabelen werken.

 

[DClewis]

Ach sorry
een T vergeten
sh ipv sht

nu werkt het