Hoe wachtwoordbeveiliging te maken met behulp van een macro
Wil je er zeker van zijn dat alle werkbladen in een map naar keuze met een macro zijn beveiligd met een wachtwoord? Dit kan handig zijn als u te veel moeite hebt met het afzonderlijk beveiligen van werkbladen of als u alle werkmappen in een map automatisch wilt beveiligen. Gebruik de volgende macro om het wachtwoord "beschermen" toe te wijzen aan alle werkbladen in de actieve map:
Sub AllSchuetzen ()
Gedimd blad als werkblad
Voor elk blad in ActiveWorkbook.Worksheets
Blatt.Protect ("bescherming")
Volgende blad
Einde sub
Gebruik in plaats van de tekst "Schutz" het wachtwoord van uw keuze. Deze programmacode heeft natuurlijk alleen zin als u deze invoert buiten de werkmap waarin u de beveiliging maakt. Anders kan elke gebruiker het wachtwoord in de VBA-brontekst uitlezen.
Om iets in de beveiligde werkbladen te kunnen wijzigen, moet u de beveiliging verwijderen. U kunt dit handmatig doen met het commando EXTRA'S - BESCHERMING - ANNULEREN BLADBESCHERMING. Deze opdracht is alleen beschikbaar als het huidige werkblad daadwerkelijk is beveiligd.
Wil je alle beveiligde werkbladen weer vrijgeven met een macro, gebruik dan de volgende programmacode:
Sub Alle Belichting ()
Gedimd blad als werkblad
Voor elk blad in ActiveWorkbook.Worksheets
Blatt.Unprotect ("bescherming")
Volgende blad
Einde sub
