lås alle celler når man gemmer

Alle celler er pr. default låst (se <format><cells><protection>

udfør følgende for at låse:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


/Jennemaan

Hvor i denne kode skal det sættes ind
Range(\"A1:R56\").Select
  Selection.Copy
  Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Tilb.2001\\\"
  Name = Worksheets(\"Ark1\").Range(\"G6\")
  MsgBox Path + Name + \".txt\"
  Workbooks.Add
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:=Path + Name
    ActiveWorkbook.Close
If Range(\"A2\").Value = \"\" Then
      Range(\"A2\").Select
  End If

Range(\"A1:R56\").Select
  Selection.Copy
  Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Tilb.2001\\\"
  Name = Worksheets(\"Ark1\").Range(\"G6\")
  MsgBox Path + Name + \".txt\"
  Workbooks.Add
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True \'<-------- her :)

    ActiveWorkbook.SaveAs Filename:=Path + Name
    ActiveWorkbook.Close
If Range(\"A2\").Value = \"\" Then
      Range(\"A2\").Select
  End If   

Hej Jennemaan med denne kode, er de celler som er låst i det oprindelige workbook godtnok låst, men jeg vil gerne at alle cellle er låst da det er et tilbud man ikke må gå ind og ændre noget i og der skal selfølgelig også være en kode til at låse det op med
mvh lillejens