

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
Op het eind van de macro het bewuste blad beveiligen:
Sheets("Blad6").Protect "wachtwoord"
Lees hier wat handige tips voor het plaatsen van een vraag over Excel & VBA
Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!
Blij met de oplossing? Klik dan hier en maak onze penningmeester blij!
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.
als je het werkblad op deze beveiligd, kan je niets muteren. Plaats eens een bestand.
Lees hier wat handige tips voor het plaatsen van een vraag over Excel & VBA
Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!
Blij met de oplossing? Klik dan hier en maak onze penningmeester blij!
Neem eens een macro op om een blad te beveiligen, alle argumenten die je aanvinkt worden meegenomen.
____________
Met vriendelijke groet,
Harry
Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
(Grunnegs-Gronings)
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