Macro para bloquear celdas después de escribir

04/11/12

Macro para bloquear c el eldas después de esc riribir. Micros of oft Exc el el

Inicio > Tecnologí Tecnología a e Internet > Software y aplicaciones > Microsoft Excel

Macro para bloquear celdas después de escribir  Respuesta de paramisolo a lordaxe

18/06/2011

Que tal, Usuario

Necesito por favor me pudieran ayudar en que necesito una macro con la cual al escribir en una celda esta automáticamente pase a bloqueada para no modificar su contenido después de desplazarme a otra obviamente, el rango en que necesito realizar esto es de a1:z1000. De antemano se que para que funcione debo de tener todas las celdas bloqueadas y de la misma manera proteger la hoja con contraseña. Espero que con esta explicación me pudieran ayudar. Saludos.  Anuncios Google

AdWords: marketing online Paga únicamente por resultados. ¡Crea una cuenta de AdWords ahora!  AdWords.Google.co m

Experto

Hola lordaxe, mira estando en tu hoja primero desprotege todas las celdas y después pulsas Alt+F11 y se abrirá el editor de VBA en el lado izquierdo verás el árbol de objetos de que se compone tu libro, si estas trabajando en la Hoja1 (por ejemplo) haces doble click sobre ella y se abrirá un modulo en blanco en el lado derecho, en ese módulo pegas este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:Z1000")) Is Nothing Then Exit Sub Else If Target.Value <> "" Then Target.Select  ActiveSheet.Unprotect "e xcel" Selection.Locked = True End If   ActiveSheet.Prote ct "excel", DrawingObjects:=True, Contents:=True, Scenarios:=True  ActiveSheet.EnableSelecti on = xlUnlockedCells xlUnlockedCells End If  End Sub

Guardas el archivo y ya lo tienes, puedes probarlo, escribiendo en cualquier celda desde la A1 hasta la Z1000 la celda se quedará bloqueada, pero podrás escribir en otras celdas. La contraseña la cambias esta en negrita y te he puesto excel. Si te ha servido finalizas y puntúas la respuesta. Saludos Julio

Usuario

Es un código demasiado bueno, me sirve a la perfección, sin embargo ahora que lo pruebo me encuentro que si quiero modificar tengo que desproteger la hoja (algo lógico) pero si borro por ejemplo toda una fila me manda un error "13 en tiempo de ejecución" y me resalta la linea de:

If Target.Value <> "" Then  Abra for ma de corregir este err or. Y otra, se podrá comenzar que en vez de desbloqueadas, estén todas bloqueadas. Gracias. todoexpertos.com/categorias/tecnologia-e-internet/…/macro-para-bloquear-celdas-despues-de-escribir 

1/2

04/11/12

Macro para bloquear c eldas después de esc ribir. Micros oft Exc el

Buscar en todoexpertos.com

Explorar 

abrir sesión registrarse

Haz tu pregunta

TAMBIÉN TE PUEDE INTER  sms en hoja de excel Inicio Publicidad Condiciones de uso Declaración de privacidad Acerca de Todoexpertos Blog Ayuda Contacto © 1999 - 2012 Todoexpertos.com. Todos los derechos reservados. Desarrollado por   Avanzis.

todoexpertos.com/categorias/tecnologia-e-internet/…/macro-para-bloquear-celdas-despues-de-escribir 

222

Me gusta

6.990

tengo miles de s ms de varios contact ¡Síguenos!  los tengo todos guardados en una hoj . Mi pregunta es com o podría agruparl Seguir a @todoexpertos

2/2