gegevens wegschrijven in beveiligd werkblad

[DieBe]

Afgelopen week een werkblad gemaakt waarbij de gegevens weggeschreven worden in een tweede werkblad. Alles werkt dankzij hulp via dit forum.
Nu wil ik de werkbladen beveiligen zodat iemand anders geen wijzigingen kan doorvoeren. Het wegschrijven van de gegevens wil nu echter niet meer. Hoe kan ik de code onder de knop "mailen en opslaan" zijn werk doen in een beveiligd werkblad?

Bekijk bijlage invulblad3.xlsm

 

[HSV]

De beveiliging bovenaan in de code eraf, en onderaan de code er weer opzetten.

 

[DieBe]

kunt u hiervan de code weergeven in bijgevoegd voorbeeld bestand?

 

[HSV]

sub Diebe()
sheets("weetikveel").unprotect
.....de 
  rest 
  van
  de 
code....
sheets("weetikveel").protect
end sub

 

[DieBe]

Ik heb uw code ingevoerd. Als ik nu de gegevens wil wegschrijven komt er een pop-up schermpje waarin ik het wachtwoord moet invullen. Dat is niet de bedoeling want het wachtwoord weet men immers niet.

 

[ExcelAmateur]

Je moet natuurlijk ook het password vermelden.
Unprotect Password:="test"

 

[DieBe]

Als ik de code gebruik zoals aangegeven:

sub Diebe()
sheets("weetikveel").unprotect
.....de
rest
van
de
code....
sheets("weetikveel").protect
end sub

Waar zet ik dan het wachtwoord neer?

 

[ExcelAmateur]

Zoals in mijn vorige antwoord staat.
Dus het password moet achter Unprotect en achter Protect.