Blad beveiligen

EDIT: Opgelost dankzij gebruiker gast0660, veel dank!

gast0660 zei:

Deze in de ThisWorkbook module.
Blad1 vervangen door de naam van jou blad.
ww vervangen door uw wachtwoord.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Blad1").Protect Password:="ww"
End Sub

Klik om te vergroten...

Beste Excel Wetenschappers,

In het kader van transparantie, wil ik het mogelijk maken om tussen verschillende functies een sheet te delen.
Voor iedereen is alle informatie dan zichtbaar. Het is echter niet de bedoeling dat alles aanpasbaar is.

In de bijlage staan een aantal cellen grijs gearceerd. Het is de bedoeling dat deze cellen ter alle tijden aangepast kunnen worden.
Bij het bewerken van een andere cel, wil ik een pop-up creëren welk om een wachtwoord vraagt.
Het personeel blijft dan vrij om de grijze cellen in te vullen, terwijl het management met het invoeren van een wachtwoord de overige inhoud ook kan aanpassen.

Via Blad Beveiligen kan dit, met als resultaat dat na één keer het wachtwoord in te vullen, het wachtwoord niet meer van toepassing is.
Ik zie graag éénmalig een prompt voor een wachtwoord bij de eerste keer bewerken, waarna het prompt daarna pas weer komt wanneer de sheet opnieuw word geopend.

Is dit mogelijk, en zo ja, hoe kan ik dit bereiken? Mijn zoektocht loopt helaas dood.

Deze in de ThisWorkbook module.
Blad1 vervangen door de naam van jou blad.
ww vervangen door uw wachtwoord.

Is dit de bedoeling ?

Paswoord = Secret