Proteger Fórmulas y Contenido de celdas y hojas
Hola, Estoy trabajando con una planilla de pagos, para que varias personas los diligencien. En él, quiero proteger las fórmulas de dos columnas y habilitar algunas para que ellos escriban. Ejmplo: E Y F protegidas.
a1, b, c d e f
nombre monto descuento embargo total descto cueque
alex 500 50 50 100 400
Lo hago bien primero desprotejo la columna y filas a, b, c, d, y luego protejo la hoja. Hasta ahí bien pero luego tengo problemas al insertar una fila insertando la fila me permite que agregue datos en la columna a, b, c, d. Pero no me permite que me saque las fórmulas de la columna e y f ni copiar. Quiero ver si se puede hacer eso sin volver a desproteger la hoja.
a1, b, c d e f
nombre monto descuento embargo total descto cueque
alex 500 50 50 100 400
Lo hago bien primero desprotejo la columna y filas a, b, c, d, y luego protejo la hoja. Hasta ahí bien pero luego tengo problemas al insertar una fila insertando la fila me permite que agregue datos en la columna a, b, c, d. Pero no me permite que me saque las fórmulas de la columna e y f ni copiar. Quiero ver si se puede hacer eso sin volver a desproteger la hoja.
1 Respuesta
Respuesta de paramisolo
1
Deberías de poner un botón en la hoja para insertar filas y al botón ponerle el código para que primero desproteja la hoja inserte la fila encima de la celda activa y vuelva a proteger la hoja:
Sub CommandButton1_Click()
ActiveSheet.Unprotect
Selection.EntireRow.Insert
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Si necesitas alguna aclaración me lo dices
Si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio
Sub CommandButton1_Click()
ActiveSheet.Unprotect
Selection.EntireRow.Insert
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Si necesitas alguna aclaración me lo dices
Si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio
Hola mira yo estoy trabajando con el excel si me puedes aclarar como lo hago lo que tu me dices de poner un botón
Vale bien, así se pone un botón en la hoja:
1º Pulsa en Ver>Herramientas>Cuadro de Herramientas
2º En la barra de herramientas que te ha aparecido pones el cursor encima de los iconos hasta encontrar el que pone Botón de comando, haces click en él y te sitúas en tu hoja en alguna zona de celdas que no utilices y pinchas estiras y dibujas un botón del tamaño que quieras, ahora pinchas encima del botn con el derecho del ratón y eliges Ver código y en el lugar donde aparece parpadeando el cursor pegas estas lineas de código que ya te facilité anteriormente:
ActiveSheet. Unprotect
Selection.EntireRow.Insert
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Cierras el editor y volverás a la hoja de Excel, guardas los cambios del libro cierras y lo abres nuevamente.
Este código te desprotege la hoja inserta una fila encima de la celda activa y vuelve a protegerla.
>Un saludo
>Julio
PD: Si te sirvió puntúas la consulta y la finalizas.
1º Pulsa en Ver>Herramientas>Cuadro de Herramientas
2º En la barra de herramientas que te ha aparecido pones el cursor encima de los iconos hasta encontrar el que pone Botón de comando, haces click en él y te sitúas en tu hoja en alguna zona de celdas que no utilices y pinchas estiras y dibujas un botón del tamaño que quieras, ahora pinchas encima del botn con el derecho del ratón y eliges Ver código y en el lugar donde aparece parpadeando el cursor pegas estas lineas de código que ya te facilité anteriormente:
ActiveSheet. Unprotect
Selection.EntireRow.Insert
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Cierras el editor y volverás a la hoja de Excel, guardas los cambios del libro cierras y lo abres nuevamente.
Este código te desprotege la hoja inserta una fila encima de la celda activa y vuelve a protegerla.
>Un saludo
>Julio
PD: Si te sirvió puntúas la consulta y la finalizas.
