Werkmap beveiligen met VBA

[Lobanovski]

Beste Forumleden,

Van een bestand heb ik de losse tabbladen beveiligd zodat de macro's toch nog werken. Alleen kan je nu nog via het klikken met de rechtermuisknop op de naam van het tabblad het blad verwijderen. Deze mogelijkheid wil ik blokkeren. Als ik dat doe via contoleren-> werkmap beveiligen dan doen de macro's het niet meer.

Wie kan mij helpen aan een VBA code waarmee het tabblad niet meer verwijderd kan worden en de macro's wel blijven werken?

 

[paulva]

Misschien werkt dit wel...
Als je het ene werkblad verlaat, dan zet je de beveiliging op. Enkele ogenblikken later, bij het activeren van het andere werkblad, zet je die beveiliging weer af. Wat betreft de werking van de macro's dus geen probleem. Het bijkomende resultaat is echter wel dat op het ogenblik dat een gebruiker zijn blad zou willen verwijderen, de werkmap beveiligd is en hij dat dus niet kan.

Voeg aan alle werkbladen de volgende code toe.

Private Sub Worksheet_Deactivate()
    ActiveWorkbook.Protect
End Sub
Private Sub Worksheet_Activate()
    ActiveWorkbook.Unprotect
End Sub

Test maar eens uit...

Beste groeten,
Paul.

 

[Lobanovski]

Beste Paul,

Het werkt perfect. Heel erg bedankt!