adgangskode beskyttet ark

Sub Fletogfarv()

' Makro indspillet 19-08-2005
  ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
        .Interior.ColorIndex = 3
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Men koden virker ikke hvis derer adgangskode på arket
Kan adgangskoden indbygges i funktionen?