
Insertar fila en una hoja protegida y que copie solo la fórmula que hay junto a la fila insertad
Publicado por José (26 intervenciones) el 15/03/2018 11:50:43
Hola a todos, a ver si me podéis ayudar en este problema.
Quisiera insertar una fila en una hoja protegida y que copie solo la fórmula de la fila donde se encuentra la celda activa. El problema de esta macro es que después de desproteger la hoja, insertar la línea y borrar la información que no quiero, ya con solo la formula copiada, me protege la celda donde ha borrado la información.
Como podría hacer para que no la protegiera.
Saludos y gracias
Quisiera insertar una fila en una hoja protegida y que copie solo la fórmula de la fila donde se encuentra la celda activa. El problema de esta macro es que después de desproteger la hoja, insertar la línea y borrar la información que no quiero, ya con solo la formula copiada, me protege la celda donde ha borrado la información.
Como podría hacer para que no la protegiera.
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub insertafila()
ActiveSheet.Unprotect
Dim fila As Integer
fila = ActiveCell.Row
Rows(fila).Insert Shift:=xlDown
Rows(fila).Copy
Rows(fila).PasteSpecial Paste:=xlPasteAll
Range("f" & (fila + 1)).Clear
Range("J" & (fila + 1)).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Saludos y gracias
Valora esta pregunta


0