¿Cómo hago funcionar el comando con la hoja protegida?
Dirigida a Marcial Castro
Como hago para hacer funcionar el comando de insertar filas automáticamente en el fichero pero dejando la hoja protegida. Ya que he habilitado la casilla dejando la protección así, y me sale ese error... Gracias.
1 respuesta
Respuesta de Marcial C. C.
1
Cuando trabajes con hojas protegidas y macros, lo mejor es desproteger la hoja antes de ejecutar la macro, y volver a proteger la hoja cuando se acabe la macro, de esta forma:
Sub Insertar()
Dim fila As Integer
'Desprotegemos la hoja'
ActiveSheet.Unprotect Password:="1234"
colo = ActiveCell.Interior.ColorIndex
fila = ActiveCell.Row
If fila < 4 Or colo <> 19 Then
MsgBox ("Ahi no se puede insertar")
Exit Sub
End If
Rows(fila).Insert shift:=xlDown
Rows(fila + 1).Copy
Rows(fila).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
'Volvemos a proteger la hoja'
ActiveSheet.Protect Password:="1234"
End SubCambia las Password y pon la que tengas en tu hoja.
Si te ha valido la respuesta.
