Jump to content

Bloquear celdas en Excel al ir rellenandolas


Recommended Posts

Hola, pues que yo sepa no, ni tan siquiera con formato condicional, y no sé si con algún código VBA podría lograrse, pero en eso yo no puedo ayudarte, y creo deberías solicitar a los administradores que te lo cambien de subforo al de macros.... para que otros compañeros que sí puedan verlo y ayudarte.

Saludos, Germán.

Link to comment
Share on other sites

  • 11 months later...

Hola ednsb,

Puedes intentar haciendo lo siguiente:

1. seleccionas el rango que deseas que se bloquee al ingresar información

2. le das clic derecho, formato de celdas y le deshabilitas la opción de bloqueo.

3. luego debes proteger la hoja.

Hecho esto, debes escribir directamente en la hoja el sgte codigo:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A7:E65536 ")) Is Nothing Then

Exit Sub

Else

If Target.Value <> "" Then

Target.Select

ActiveSheet.Unprotect "2013"

Selection.Locked = True

End If

ActiveSheet.Protect "2013", DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

End If

End Sub

En la parte del codigo que dice: Target, Range("A7:E65536 " le debes poner el rango que habías seleccionado en el paso 1. y en la parte que dice "123" le pones la contraseña con la que bloqueaste tu hoja.

Ya te debe funcionar, intentalo!

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy