Macros blokkeren in beveiligd blad

[tom300]

Beste Excel en VBA specialisten,

Ik heb in een beveiligd werkblad een aantal figuren staan die gekoppeld zijn aan macros. Bij een druk op de figuur wordt de macro gestart. Wat ik graag zou willen is dat de macro niet gestart wordt als het werkblad is beveiligd. En dat lukt me dus niet.

De macro voert een opmaakbewerking uit op geselecteerde cellen. Als het blad echter beveiligd is, is dat niet toegestaan en krijg ik een foutmelding van de VBA editor.

Heeft iemand een idee hoe ik dit op kan lossen?

Alvast bedankt!

Groeten, Tom

 

[edmoor]

Je kan in de macro aan het begin de beveiliging eraf halen en aan het einde weer toepassen met Worksheet.Unprotect en Worksheet.Protect.

Unprotect:
https://msdn.microsoft.com/en-us/library/office/ff841143.aspx

Protect:
https://msdn.microsoft.com/en-us/library/office/ff840611.aspx

 

[tom300]

Hoi,

Bedankt voor je reactie. Maar ik wil juist dat de macro's niet uitgevoerd worden als het blad beveiligd is.

Groeten, Tom

 

[edmoor]

Dan kan je bovenin de macro controleren of het blad beveiligd is en als dat zo is een Exit Sub doen.
If Sheets("Sheet1").ProtectContents Then Exit Sub

 

[tom300]

That did the job !!!! :thumb:
Onwijs bedankt!!!!!

Groeten, Tom