Verwijderen van beveiliging en weer terugzetten

[Tom30]

Beste Specialisten,

Misschien dat iemand me kan helpen met het volgende probleem.

Bijgevoegd een bestand waarin een cel zit waar veel tekst in wordt gezet. Als je op het mailknopje drukt, wordt het werkblad gekopieerd om vervolgens te verzenden met een email macro.

Nu is het zo dat de email macro vast loopt omdat het werkblad beveiligd is. Weet iemand hoe ik ervoor kan zorgen dat de beveiliging tijdens het kopieren van de sheet eraf wordt gehaald en na het kopieren weer terug wordt gezet?

In bijgevoegde sheet is het wachtwoord van de sheet test. Het wachtwoord van de vba sectie is ook test.

Alvast bedankt weer!

Groeten, Tom

 

[Warme bakkertje]

Onder de Dim-statements zet je

Sheets("naamvanjeblad").Unprotect Password:="jouwwachtwoord"

Als laatste regel van je code

Sheets("naamvanjeblad").Protect Password:="jouwwachtwoord"

Mvg

Rudi

 

[Finch]

Je kan ook je sheet beveiligen met de optie userinterfaceonly:=true. Op die manier kan VBA code ook uitgevoerd worden op een beveiligd blad. Hieronder een link met meer uitleg:

http://www.ozgrid.com/VBA/excel-macro-protected-sheet.htm

 

[Tom30]

@ Rudi:

Thanks! Die werkt inderdaad goed. Hoe simpel kan een oplossing zijn he...


@ Finch:

jij ook bedankt voor de tip. Dat is ook een handige code waar ik me eens in ga verdiepen.


Beide bedankt voor de snelle reactie!

Groeten, Tom