Excel verschillende tabbladen automatisch beveiligen na sluiten

[yarid]

Beste forum

Ik heb een Excel bestand waar ik punten geef aan mijn leerlingen. Ik ga dit delen met hen zodat ze verschillende tabbladen kunnen invullen.
Niet alle tabbladen moeten beveiligd worden na sluiten. Ik heb een code waarmee het lukt om alle tabbladen te beveiligen na sluiten.
Ik heb ook een code waarmee je enkele tabbladen afzonderlijk kan sluiten maar hier krijg ik telkens een foutmelding.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub

Ik ga er van uit dat je bij sheet1 het te beveiligen tabblad kan kiezen. Heeft de taal invloed op de code?

Ik heb al wat rond gekeken op het forum maar vind geen sluitend antwoord.

in bijlage de foutmelding en een test programma

Wie kan mij helpen?

Alvast bedankt!

Bekijk bijlage voorbeeld test.xlsm

 

[JEC.]

Je haalt wat door elkaar.
Probeer eens blad1.protect

 

[edmoor]

Je zegt een foutmelding te krijgen maar verteld deze er niet bij.
Die gele regel is de regel waar de fout ontstaat, niet de foutmelding zelf.

Doe ook eens dit:

Sheets("leerling").Protect "123"

 

[yarid]

Hallo

Gelukt met deze code!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Blad1.Protect "123"
ActiveWorkbook.Save
End Sub

Bedankt voor de snelle response :thumb:

Dankuwel!