Beste Excel-kenner,
Met regelmaat bescherm ik spreadsheets met meerdere tabbladen en meerdere invulvelden op deze tabbladen.
Het is als altijd een behoorlijke kluif om van de invulvelden de cel-eigenschappen aan te passen en vervolgens de tabbladen te beveiligen.
Alle cellen krijgen de cel-eigenschappen: Bescherming "Geblokkeerd" en "Verborgen".
En bij alle 'gele' invulvelden moet de vinkjes weer uit, zodat ze na het beveiligen van de tabbladen in te vullen zijn.
Ik heb een opzetje gemaakt om dit met een macro's te automatiseren.
De eerste macro "Beveiligen" doet het alleen op eerste tabblad en niet op de overige tabbladen.
De tweede macro doet het op een individueel tabblad goed, maar zodra ik 'm integreer in de eerste macro gaat het fout.
Het kiezen van de kleur hoeft maar één keer.
Het bereik van de cellen hoeft wat mij betreft niet iedere keer gekozen te worden. Ieder tabblad alleen het actieve gebied.
Vraag:
Weet iemand deze twee maco's samen te voegen en werkend te krijgen?
Ik wil de macro graag starten vanuit "PERSONAL.XLSB"
Met regelmaat bescherm ik spreadsheets met meerdere tabbladen en meerdere invulvelden op deze tabbladen.
Het is als altijd een behoorlijke kluif om van de invulvelden de cel-eigenschappen aan te passen en vervolgens de tabbladen te beveiligen.
Alle cellen krijgen de cel-eigenschappen: Bescherming "Geblokkeerd" en "Verborgen".
En bij alle 'gele' invulvelden moet de vinkjes weer uit, zodat ze na het beveiligen van de tabbladen in te vullen zijn.
Ik heb een opzetje gemaakt om dit met een macro's te automatiseren.
De eerste macro "Beveiligen" doet het alleen op eerste tabblad en niet op de overige tabbladen.
Code:
Sub Beveiligen()
Dim wSheetName As Worksheet
For Each wSheetName In Worksheets
'tijdelijk voor herhaald testen van macro
wSheetName.Unprotect Password:="ww"
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
'Call Kleurenselectie
wSheetName.Protect Password:="ww", UserInterFaceOnly:=True
Next wSheetName
End Sub
De tweede macro doet het op een individueel tabblad goed, maar zodra ik 'm integreer in de eerste macro gaat het fout.
Het kiezen van de kleur hoeft maar één keer.
Het bereik van de cellen hoeft wat mij betreft niet iedere keer gekozen te worden. Ieder tabblad alleen het actieve gebied.
Code:
Sub Kleurselectie()
Dim kleur As Range
Dim totaalbereik As Range
Dim cel As Range
Set kleur = Application.InputBox("Selecteer een cel met de te selecteren kleur", "Kleurselectie", , , , , , 8)
Set totaalbereik = Application.InputBox("Selecteer het te selecteren vlak", "Kleurselectie", , , , , , 8)
'Application.ScreenUpdating = False
For Each cel In totaalbereik
If cel.Interior.ColorIndex = kleur.Interior.ColorIndex Then
cel.Select
Selection.Locked = False
Selection.FormulaHidden = False
End If
Next cel
'Application.ScreenUpdating = True
End Sub
Vraag:
Weet iemand deze twee maco's samen te voegen en werkend te krijgen?
Ik wil de macro graag starten vanuit "PERSONAL.XLSB"