Beveiliging opheffen, macro draaien, en beveiliging er weer op zetten

[bascas]

Hallo,

Ik gebruik onderstaande code, maar omdat er een wachtwoord op het tabblad zit doet excel dit niet en krijg ik een foutmelding dat het blad beveiligd is. Dat klopt ook, aangezien ik dit zelf heb gedaan. Maar hoe kan ik het wel laten werken? Dus beveiliging eraf, macro draaien, en beveiliging er weer op. Liefst met wachtwoord.

Sub LegenPlanning()
'
' Legenplanning Macro
'

'
    Union(Range( _
        "D2:D4,J1:J5,B13:C13,B15:C15,B17:C17,B19:C19,B21:C21,B23:C23,B25:C25,B27:C27,B29:C29,B31:C31,B33:C33,B35:C35,B37:C37,B39:C39,B41:C41,B43:C43,B45:C45,B47:C47,F13, f15,f17,f19,f21,f23,f25,f27,f29,f31,f33,f35,f37,f39,f41,f43,f45,f47" _
        ), Range( _
        "i13,i15,i17,i19,i21,i23,i25,i27,i29,i31,i33,i35,i37,i39,i41,i43,i45,i47" _
        )).Select
    Range("E2").Activate
    Selection.ClearContents
    For i = 13 To Range("G14").CurrentRegion.Rows.Count + 10 Step 2
    Cells(i, "H").Value = "17:00"
Next i
End Sub

Groet Bas

 

[edmoor]

Dat kan met ActiveSheet.UnProtect "Het Wachtwoord" en vervolgens ActiveSheet.Protect "Het Wachtwoord"

 

[bascas]

Thanks. Gelukt!

 

[emields]

voorbeeldbestandje vergeten?