Halle beste oplossers,

Ik zou graag alle werkbladen in een werkmap beveiligen dmv een macro, zodat ik niet x aantal keer via Extra>beveiling>blad beveiligen alle instellingen moet gaan aanpassen.

Onervaren vba'er als ik ben heb ik geprobeerd om mijn macro op te nemen, maar het beveiligingswachtwoord gaat verloren (en het is niet de bedoeling dat gebruikers met een simpele 'bladbeveiliging opheffen' mijn beveiliging kunnen omzeilen)

na wat zoeken heb ik wel een manier gevonden om het wachtwoord in de beveiling te integreren, maar dan gaan de andere instellingen verloren.


Het is de bedoeling dat de gebruikers enkel onbeveiligde cellen kunnen selecteren en invullen. Ze mogen wel kolommen invoegen.

Dit is de code die ik totdusver heb:

Sub werkblad_beveiligen()
    Const Paswoord = "test"
    Dim Blad
    For Each Blad In ActiveWorkbook.Sheets
 ' Code van opgenomen macro: onbeveiligde cellen selecteren en kolommen invoegen
        'Blad.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowInsertingColumns:=True
 ' Hiermee wordt het beveiligingswachtwoord wel bewaard
        'Blad.Protect Paswoord
' De 2 codes door elkaar
       Blad.Protect Paswoord, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        Blad.EnableSelection = xlUnlockedCells
    Next
End Sub

Ik word er stilaan horendol van, en waarschijnlijk heb ik ergens een fout gemaakt die te stom om voor mogelijk te houden, maar ik zie het bos door de bomen niet meer.

alvast bedankt voor jullie hulp!

Spyder, en ik vond nog (via de zoekfunctie van de site) deze topic die volgens mij ook datgene biedt dat er nu gevraagd wordt....
Gretorax, is dit wat je zoekt?

Groet, Leo