Visual Basic para Aplicaciones - Sub para bloquar celdas

Selection.Locked = False/True

Selection.FormulaHidden = False / True

Sub Macro1()

    Dim a As Integer

    For a = 1 To 5000

        If Range("A" & a) = 0 Then

           Range("B" & a).Locked = False   ' --- Desbloquear

        Els

           Range("B" & a).Locked = True    ' --- Bloquear

        End If

    Next

End Sub

Sub Macro1()

    Dim a As Integer

    ActiveSheet.Unprotect "Patata"

    For a = 1 To 5000

        If Range("A" & a) = 0 Then

           Range("B" & a).Locked = False   ' --- Desbloquear

        Els

           Range("B" & a).Locked = True    ' --- Bloquear

        End If

    Next

    ActiveSheet.Protect "Patata"    DrawingObjects:=True, _

                                    Contents:=True, _

                                    Scenarios:=True

End Sub