Beste,
Voor een project op het werk heb ik het volgende nodig:
Ik wil graag dat een werkmap pas geopend kan worden met een wachtwoord -> dit is gewoon een optie in Excel. :thumb:
Vervolgens wil ik dat alle bladen apart beveiligd zijn en dat maar een paar gebruikers hier in kunnen. Om te voorkomen dat er iets mis gaat met het wachtwoord, wil ik graag dat deze gebruikers de wijzigingen alleen maar hoeven op te slaan en de werkmap dan kunnen sluiten. Met onderstaande code is het gelukt om automatisch per werkblad een wachtwoord er op te zetten, zonder dat men dit zelf hoeft te doen. :thumb:
Het punt wat ik nog graag toegevoegd heb, maar ik kan dit nergens vinden ... is het volgende:
1) Er zijn ook gebruikers waarbij ik niet wil dat ze bij de inhoud van de werkbladen kunnen, maar het is wel handig dat zij in Blad1 bij alle cellen opmerkingen kunnen plaatsen en de cellen van kleur kunnen laten veranderen. Bij 'gewone' handmatige beveiliging kun je hiervoor opties aanzetten ("Celeigenschappen" en "Objecten bewerken"). Hoe verwerk ik deze 2 opties in de code van Blad1?? Is er in VBA ergens een lijst / index bekend waarin ik dit terug kan vinden?
Ps. Ik ben een behoorlijke leek op het gebied van VBA. Ik heb wel een basis-uitlegboek thuis. Daar heb ik de genoemde code ook uit. Als het met een andere code werkt en niet met bovenstaande .. dan houd ik mij ook aanbevolen voor die andere code.
Alvast bedankt voor de moeite
Voor een project op het werk heb ik het volgende nodig:
Ik wil graag dat een werkmap pas geopend kan worden met een wachtwoord -> dit is gewoon een optie in Excel. :thumb:
Vervolgens wil ik dat alle bladen apart beveiligd zijn en dat maar een paar gebruikers hier in kunnen. Om te voorkomen dat er iets mis gaat met het wachtwoord, wil ik graag dat deze gebruikers de wijzigingen alleen maar hoeven op te slaan en de werkmap dan kunnen sluiten. Met onderstaande code is het gelukt om automatisch per werkblad een wachtwoord er op te zetten, zonder dat men dit zelf hoeft te doen. :thumb:
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Blad1").Protect Password:="Test123"
Sheets("Blad2").Protect Password:="Test234"
Sheets("Blad3").Protect Password:="Test345"
ActiveWorkbook.Save
End Sub
Het punt wat ik nog graag toegevoegd heb, maar ik kan dit nergens vinden ... is het volgende:
1) Er zijn ook gebruikers waarbij ik niet wil dat ze bij de inhoud van de werkbladen kunnen, maar het is wel handig dat zij in Blad1 bij alle cellen opmerkingen kunnen plaatsen en de cellen van kleur kunnen laten veranderen. Bij 'gewone' handmatige beveiliging kun je hiervoor opties aanzetten ("Celeigenschappen" en "Objecten bewerken"). Hoe verwerk ik deze 2 opties in de code van Blad1?? Is er in VBA ergens een lijst / index bekend waarin ik dit terug kan vinden?
Ps. Ik ben een behoorlijke leek op het gebied van VBA. Ik heb wel een basis-uitlegboek thuis. Daar heb ik de genoemde code ook uit. Als het met een andere code werkt en niet met bovenstaande .. dan houd ik mij ook aanbevolen voor die andere code.
Alvast bedankt voor de moeite