Na draaien van macro het overzicht werkblad beveiligen tegen muteren en wijzigen

[Wett53]

Wie kan mij helpen.

Ik heb het volgende probleem.
Ik heb een macro gemaakt waarbij uit een 5 tal werkbladen informatie wordt gehaald en onder elkaar in een totaal overzicht na een nieuw werkblad wordt gekopieerd.
Echter nu is het nog mogelijk om in dit nieuwe overzicht werkblad rijen en kolommen en tekst te verwijderen en of aan te passen.
Kan iemand mij helpen dit overzicht werkblad te beveiligen nadat de macro heeft gedraaid zodat diegene welke het werkblad bekijkt er niets in kan veranderen.

Alvast bedankt voor jullie hulp.
Cor

 

[SjonR]

Op het eind van de macro het bewuste blad beveiligen:
Sheets("Blad6").Protect "wachtwoord"

 

[Wett53]

Bedankt voor de reactie.

Wat betreft de niet legen cellen werkt de oplossing.

Is het ook mogelijk dat ook de lege cellen kunnen worden beveiligt tegen muteren.

 

[SjonR]

als je het werkblad op deze beveiligd, kan je niets muteren. Plaats eens een bestand.

 

[HSV]

Neem eens een macro op om een blad te beveiligen, alle argumenten die je aanvinkt worden meegenomen.

 

[Wett53]

Probleem is opgelost.
Heb werkblad beveiligd met WW.
En in de macro de volgende regels toegepast.

Sub Wachtwoord()

Dim ww As String
ww = "wachtwoord"
Sheets("Werkblad naam").Unprotect Password:=ww

bij WW tussen de " jou gebruikt wachtwoord invullen"

Sheets("Werkblad naam").Protect Password:=ww

End Sub