Macro uitvoeren in beveiligd werkblad

[shooven]

Beste forumleden,

Hoe kan ik ervoor zorgen dat een macro werkt als het werkblad beveiligd is.

Ik heb een knop gemaakt waarmee het bestand met een unieke naam wordt opgeslagen. Vervolgens heb ik een aantal cellen gedeblokkeerd, zodat deze kunnen worden bewerkt. Het restant van het document mag niet worden bewerkt. Ook heb ik in de knop van de macro de blokkering opgehefen. Echter als ik de macro wil gebruiken slaat Excel vast.

Wie kan mij helpen?
ps. Is deze uitleg afdoende of moet ik een voorbeeldbestand maken?

 

[danny147]

Beste shooven

Met deze zou het moeten lukken.

Sub Macro1()
Application.ScreenUpdating = False
ActiveSheet.UnProtect Password:="shooven"

"Plaats hier uw code"

ActiveSheet.Protect Password:="shooven"
Application.ScreenUpdating = True
End Sub

Groetjes Danny. :thumb:

 

[Roncancio]

Gebruik bij het Protect de optie UserInterfaceOnly = True.
Hierdoor kan het werkblad wel via VBA worden aangepast maar niet handmatig.
De beveiliging van het werkblad hoeft er dan ook niet af.

Met vriendelijke groet,


Roncancio