Beveiliging opheffen met commandoKnop

[gGerretje]

Hallo beste helpers,

Ik heb jullie tips geweldig goed kunnen inpassen in een bestand voor een gebruiker.
Ik heb nu nog een vraag over de beveiliging.

Mijn Excel bestand bevat twee tabbladen.
Op blad 1 voer ik via een formulier gegevens in, en dan vinden er een aantal validiteitscontroles plaats.

Daarna gebruik ik een opdrachtknop om de gegevens weg te schrijven naar Blad2 en kom dan weer terug op Blad1.
Dit alles gebeurt bij een Blad2 dat beveiligd is ZONDER wachtwoord.

kort gezegd ziet het onder de opdrachtknop als volgt uit:

Sheets("Blad2").Select
ActiveSheet.Unprotect
Worksheets ("Blad2").Range("C3").Value = "Gelukt"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blad1")Select

In feite werkt alles precies zoals ik het wil. Alleen wil ik graag Blad2 beveiligen met een wachtwoord.
Want de gebruiker mag wel wegschrijven, maar heeft geen wachtwoord. Dat moet in de opdrachtknop geprogrammeerd worden.

Om te kijken hoe het zou kunnen heb ik het geprobeerd door een macro aan te maken, maar die neemt het wachtwoord niet mee.

Mijn vraag is dus: Hoe doe ik dat met een wachtwoord.

Heeft iemand een idee?

Met vriendelijke groet
Ger

 

[lam201]

Ger,

om te beveiligen:

ActiveSheet.Protect Password:="123"

om de beveiliging op te heffen:

ActiveSheet.Unprotect Password:="123"

Lambert

 

[gGerretje]

Hallo Lambert,

Bedankt voor je snelle reactie.
Het werkt perfect (maar dat wist jij natuurlijk al).
En die andere argumenten? Kunnen of moeten die erachter blijven staan?
Op Blad2 staan naast de gegevens die allemaal niet geselecteerd mogen worden) alleen nog 2 sorteerknoppen die moeten blijven werken.

Met vriendelijke groet,
Ger