Werkblad beveiligen met wachtwoord

[Vessie87]

Ik heb een klein programma gemaakt om een bank/kas administratie te voeren. Ik maak gebruik van diverse invoerschermen die de data op verschillende tabbladen invoerd.

Nu wil ik de tabbladen beveiligen met een wachtwoord zodat deze er niet van af kan worden gehaald door die betreffende personen. Nu is het beveiligen zelf geen probleem. Dit heb ik gedaan met de code:

    Sheets("Blad1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Blad1").EnableSelection = xlNoSelection

Echter krijg ik nu een foutmelding als ik de gegevens wil invoeren op het werkblad. Dit dacht ik op te lossen met de code:

sheets("blad1").unprotect
<nu worden de gegevens van het invoerscherm in het tabblad gevuld>
Sheets("Blad1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blad1").EnableSelection = xlNoSelection

Echter als ik nu simpel naar het werkblad ga en dan via extra beveiliging -> werkbladbeveiliging opheffen. Dan wordt er niet gevraagd om een wachtwoord. Terwijl ik dat eerst wel had ingesteld.

Wat is de oplossing om automatisch het werkblad te beveiligen met wachtwoord en wel gegevens kunnen invoeren in VBA-excel?

 

[Hoornvan]

Probeer deze eens.

Sub tst()
    Sheets("Blad1").Protect "wachtwoord"
End Sub

Net even aangepast, er stond namelijk 1 puntje te veel.

 

[Vessie87]

Het is gelukt, wachtwoord moest gewoon erachter worden gevoegd! Bedankt.

sheets.unprotect "wachtwoord"
<Invoer>
sheets.protect "wachtwoord"