ingevulde gegevens vergrendelen met wachtwoord

[davylenders123]

Wat moet ik bij de volgende code bijvoegen dat hij bij het vergrendelen een wachtwoord neemt dat ik opgeef.

Nu doet die code alleen de ingevulde cellen beveiligen maar als je dan op beveileging opheffen klikt kan je er gewoon aan zonder een wachtwoord in te geven. Hier zou hij naar een wachtwoord moeten vragen.

Private Sub Workbook_Open()
Sheets("dokter").Protect userinterfaceonly:=True, AllowFiltering:=True
Sheets("adres").Protect userinterfaceonly:=True, AllowFiltering:=True
End Sub

 

[Wigi]

Wat moet ik bij de volgende code bijvoegen dat hij bij het vergrendelen een wachtwoord neemt dat ik opgeef.

Nu doet die code alleen de ingevulde cellen beveiligen maar als je dan op beveileging opheffen klikt kan je er gewoon aan zonder een wachtwoord in te geven. Hier zou hij naar een wachtwoord moeten vragen.

Private Sub Workbook_Open()
Sheets("dokter").Protect userinterfaceonly:=True, AllowFiltering:=True
Sheets("adres").Protect userinterfaceonly:=True, AllowFiltering:=True
End Sub

Het eerste argument bij de Protect methode is het wachtwoord...

 

[davylenders123]

Het eerste argument bij de Protect methode is het wachtwoord...

Die code staat erin en hij vraagt niet naar een wachtwoord voor te ontgrendelen .
Dan zit er volgens mij toch geen wachtwoord in.

 

[Wigi]

Die code staat erin

Waar zie jij dat?

 

[davylenders123]

Waar zie jij dat?

Als ik in de exel file op blad beveiliging opheffen klik gaat de beveliging er gewoon af zondar dat je daar een wachtwoord moet ingeven.
Normaal zou je daar dan een wachtwoord moeten ingeven en dat is niet zo.

 

[Wigi]

Nogmaals, geef het wachtwoord mee op in de code voor Protect en dan staat het er wel in.

De Help functie van VBA (F1) geeft de uitleg.

 

[Jack Nouws]

Hallo,

Als je het zoals deze code hebt gedaan wordt er bij mij wel naar een wachtwoord gevraagd.

Private Sub Workbook_Open()
 Sheets("Blad1").Protect "wachtwoord", userinterfaceonly:=True, AllowFiltering:=True
End Sub

Met vr gr
Jack

 

[davylenders123]

Thanks :thumb: