Word - Codigo no funciona en office 2013

Sub Nuevo()

'

    Hoja1.Unprotect Password:="123"

    Application.ScreenUpdating = False

     a = WorksheetFunction.CountA(Hoja1.Range("A6:A65536"))

    If Hoja1.Range("A6") <> "" Or a = 0 Then

        Rows(a + 5 + 1 & ":" & a + 5 + 1).Select

        Selection.Copy

        Rows("6:6").Select

        Selection.Insert Shift:=xlDown

        Application.CutCopyMode = False

        Range("C6").Value = Date

        Range("E6").Value = "Entorno"

        Range("D6").Value = "Pendiente"

        Range("F6").Value = "Asignar"

        Range("B6").Value = "Aquí describa la tarea"

        Range("A6").Value = "Elegir"

        Range("G6").Value = "Fecha Entrega"

        Range("A6:G6").Select

        Selection.locked = False

        Hoja1.Range("A6").Select

    End If

    Hoja1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

    ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

 Sub locked()

Hoja1.Unprotect Password:="123"

Hoja1.Range("B6:C6,G6").Select

Selection.locked = True

Hoja1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

    ActiveSheet.EnableSelection = xlUnlockedCells

    ActiveWorkbook.Save

End Sub