Excel-macro til beskyttelse af celler

Hej

Jeg har lidt problemer med en macro.
Sagen er, at jeg har en projektmappe, med beskyttede ark. Jeg har brug for, at kunne låse det aktive ark op. når det er låst op, skal jeg have skrivebeskyttet hele arket, på nær området H11:H49. Arket skal herefter beskyttes igen med samme kode.

Jeg har lavet følgende macro:

Sub Makro2()
'
' Makro2 Makro
'
' Genvejstast:Ctrl+t
'
    ActiveSheet.Unprotect Password:="1234567890"
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("H11:H49").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Application.Run "Backup"
    Range("A11").Select
    ActiveSheet.Protect Password:="1234567890", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Problemet er, at makroen ikke låser arket, og kun tillader redigering af område H11:H49. Efter at have kørt makroen, kan jeg stadig redigere i celler udenfor området.

Er der et geni, der kan gennemskue hvad der går galt?

M.v.h.
Tommy