Beveiliging Werkbladen

[Peter86]

Goede avond,

ik heb al even op het forum rond gekeken maar kom hier toch niet uit.
Ik heb een werkblad beveiligd via Visual Basic met de volgende code:

Private Sub Workbook_Open()

Sheets(1).Protect Password:="Wachtwoord", userinterfaceonly:=True
Sheets(2).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(3).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(4).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(5).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(6).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(7).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(8).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(9).Protect Password:="Wachtwoord", userinterfaceonly:=False
Sheets(10).Protect Password:="Wachtwoord", userinterfaceonly:=False

End Sub

Hier ben ik al via andere sites bij uit gekomen en werkt. Behalve dan dat het wachtwoord van blad 2 niet werkt.
Ik heb de regels van elkaar gekopieerd dus ik begrijp er niets van waarom net deze ene niet werkt.

Heeft iemand een verklaring/oplossing??

 

[Revdutchie]

Even een reactie met domme boeren verstand zoals ze dat noemen,
Volgens mij staat er 10 x hetzelfde, namelijk
Sheets(X).Protect Password:="Wachtwoord", userinterfaceonly:=False

Wat denk je nu ? Dat iemand zegt nee voor sheet 2 moet je

"sheets dikkertjedap=:zat op de trap>< userinterface>protected :gebruiken"

Er zijn volgens mij maar 4 mogenlijkheden,

A, het wachtwoord voor blad 2 is anders als de rest (meest waarschijnlijk)
B, er staat een typfout in de code
C Blad2, qua naam is niet de (2) qua telling (is eigenlijk hetzelfde als antwoord D)
D Je hebt meer bladen dan je telling (10) en blad2 valt daar buiten

Om even bij de meest waarschijnlijke te blijven, ga naar blad 2, haal de beveiliging er af, merk je meteen of het password goed is en beveilig het weer.

en om het af te maken zou ik de code veranderen in:

Private Sub Workbook_Open()
Dim wSheet As Worksheet
	For Each wSheet In Worksheets
		wSheet.Protect Password:="Wachtwoord", UserInterFaceOnly:=False
Next wSheet

Sheets(1).Protect Password:="Wachtwoord", userinterfaceonly:=True
End Sub

 

[Peter86]

Bedankt voor de reactie,

ik snap dat het niet kan liggen aan de code (omdat deze gekopieerd is), dus ik had hiervoor ook geen wonderen verwacht.
Ik heb nu de aangepaste code ingevoerd en het probleem blijft hetzelfde. Het wachtwoord werkt overal behalve op blad 2.

Ik snap niet hoe dit kan. Misschien dat iemand hier al eens ervaring mee heeft?

 

[Hoornvan]

Zet de file zonder gevoelige info even hier kunnen we kijken, zo blijft het gissen.

 

[Peter86]

Oke hierbij het bestand.
Ik heb de laatste tabbladen weggehaald ivm de grootte

WW=Wachtwoord

Alvast bedankt

 

[Hoornvan]

Peter86,

Mijn PC deed er 1:08:00 over om al de passwoorden te verwijderen.
Heb de file toen opgeslagen en weer opnieuw geopend en nu werkt het wel.

 

[Peter86]

Oke bedankt!
Dus opnieuw invoeren was de oplossing