erikfieten
Gebruiker
- Lid geworden
- 16 jul 2010
- Berichten
- 20
Dag mensen,
Ik heb een jaaroverzicht (office 2007) met uren met daarin 52 tabbladen welke zijn beveiligd. Als ik een kleine aanpassing wil doen, wil ik ze dus niet 1 voor 1 opheffen weer beveiligen.
Nou is de oplossing een macro. Ik heb hier een beetje mee gestoeit, maar verder dan een macro opnemen en die uit te voeren kom ik niet. Waar moet ik de code plaatsen genoemd in de discussies en hoe kan ik hier gemakkelijk mee werken?
Voorbeeld, waarvan ik niet weet hoe ik dit moet gebruiken:
Sub BeveiligingBladenAan()
'beveiliging alle werkbladen aanzetten
For i = 1 To Worksheets.Count
Worksheets(i).Protect password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True,
Next
End Sub
Eventueel tussen de " bij password een wachtwoord invullen.
Om beveiliging voor alle sheets in een keer uit te zetten:
Sub BeveiligingBladenUit()
'beveiliging alle werkbladen uitzetten
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect ("wachtwoord")
Next
End Sub
Bij voorbaat dank!
Groeten,
Erik
Ik heb een jaaroverzicht (office 2007) met uren met daarin 52 tabbladen welke zijn beveiligd. Als ik een kleine aanpassing wil doen, wil ik ze dus niet 1 voor 1 opheffen weer beveiligen.
Nou is de oplossing een macro. Ik heb hier een beetje mee gestoeit, maar verder dan een macro opnemen en die uit te voeren kom ik niet. Waar moet ik de code plaatsen genoemd in de discussies en hoe kan ik hier gemakkelijk mee werken?
Voorbeeld, waarvan ik niet weet hoe ik dit moet gebruiken:
Sub BeveiligingBladenAan()
'beveiliging alle werkbladen aanzetten
For i = 1 To Worksheets.Count
Worksheets(i).Protect password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True,
Next
End Sub
Eventueel tussen de " bij password een wachtwoord invullen.
Om beveiliging voor alle sheets in een keer uit te zetten:
Sub BeveiligingBladenUit()
'beveiliging alle werkbladen uitzetten
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect ("wachtwoord")
Next
End Sub
Bij voorbaat dank!
Groeten,
Erik