bascas
Gebruiker
- Lid geworden
- 18 mei 2006
- Berichten
- 441
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.
Groet Bas
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.
Code:
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