Ejecutar macros en celdas protegidas

He creado unas macros en un libro de excel, las cuales insertan unos datos en celdas sin fórmulas y en celdas con fórmulas, quiero proteger las fórmulas pero al hacerlo ya no me deja ejecutar las macros en las celdas protegidas. Me podéis decir como hacer para que me deje ejecutar las macros en las celdas protegidas y en las no protegidas.

Respuesta
1

Debes desproteger la hoja ejecutar macro y volver a proteger hoja

sub protegehoja ()

ActiveSheet.Unprotect Password:="1234"

acá va tu código

ActiveSheet.Protect Password:="1234"

end sub

Si no tienes clave para proteger debes usar 

sub protegehoja ()

ActiveSheet.Unprotect

acá va tu código

ActiveSheet.Protect

end sub

visita http://programarexcel.com

Encotrarás cientos de ejemplos de macros que puedes descargar y adaptar a tus necesidades.

1 respuesta más de otro experto

Respuesta

Debieras dejar escrita aquí la macro para evaluar mejor la situación.

Pero te adelanto algunos detalles: la herramienta protección permite establecer algunos permisos, como el hecho de dar formatos, insertar filas, etc. Pero si tu macro debe 'insertar' filas la protección debe permitir también la selección de las celdas bloqueadas.

La instrucción de protección sería así en ese caso:

  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True
ActiveSheet.EnableSelection = xlNoRestrictions

En otros casos quizás debas desproteger y volver a proteger en la misma macro:

Activesheet. Unprotect

'tus instrucciones

Activesheet. Protect

Las líneas de proteccción irán con todos sus argumentos: clave, permisos, etc.

Hola Elsa, gracias por contestar mira una de las macros es esta las demás hacen lo mismo copiar datos de otra hoja y pegarlos en la hoja factura.

Las formulas estan en las columnas : F14:F35 -G14:G35-  I14:I35- J14:J35

Sub MORAL1ºCURSO()
'
' MORAL1ºCURSO Macro
'

'
Sheets("MORAL").Select
ActiveWindow.SmallScroll Down:=-6
Range("A48:C61").Select
Selection.Copy
Sheets("FACTURA").Select
Range("C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E14:E27").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("C14:C27").Select
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B14").Select
ActiveCell.FormulaR1C1 = "1"
Range("B15").Select
ActiveCell.FormulaR1C1 = "1"
Range("B16").Select
ActiveCell.FormulaR1C1 = "1"
Range("B17").Select
ActiveCell.FormulaR1C1 = "1"
Range("B18").Select
ActiveCell.FormulaR1C1 = "1"
Range("B19").Select
ActiveCell.FormulaR1C1 = "1"
Range("B20").Select
ActiveCell.FormulaR1C1 = "1"
Range("B21").Select
ActiveCell.FormulaR1C1 = "1"
Range("B22").Select
ActiveCell.FormulaR1C1 = "1"
Range("B23").Select
ActiveCell.FormulaR1C1 = "1"
Range("B24").Select
ActiveCell.FormulaR1C1 = "1"
Range("B26").Select
ActiveCell.FormulaR1C1 = "1"
Range("B27").Select
ActiveCell.FormulaR1C1 = "1"
Range("B25").Select
ActiveCell.FormulaR1C1 = "1"
Range("H14").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H15").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H16").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H17").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H18").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H19").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H20").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H21").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H22").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H23").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H24").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H25").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H26").Select
ActiveCell.FormulaR1C1 = "4%"
Range("H27").Select
ActiveCell.FormulaR1C1 = "4%"
Range("E4:I4").Select
ActiveWindow.SmallScroll Down:=6
End Sub

Gracias,

Un saludo

No tendrás inconveniente si la protección la realizas con los siguientes 3 permisos: seleccionar celdas desbloqueadas, aplicar formato a celdas y aplicar formato a columnas.

Con macro sería:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True

Si tu versión Excel no te permite asignar estos permisos tendrás que desproteger la hoja y volverla a proteger en las líneas que te marco en el código, que dicho sea de paso te lo he reducido bastante:

Sub MORAL1ºCURSO()
'ajustada x Elsamatilde
' MORAL1ºCURSO Macro
'
Sheets("MORAL").Select
ActiveWindow.SmallScroll Down:=-6
Range("A48:C61").Copy
Sheets("FACTURA").Select
Range("C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'--------------------------desproteger con: ActiveSheet.Unprotect
Range("E14:E27").Select
With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
Range("C14:C27").Select
With Selection
    .HorizontalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
'---------------------------volver a proteger con ActiveSheet.Protect
Range("B14:B27") = 1
Range("H14:H27") = "4%"
Range("E4:I4").Select
ActiveWindow.SmallScroll Down:=6
End Sub

Gracias Elsa , pero no te endiendo cuando dices con macro seria :ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True

donde tengo que poner esas opciones en la hoja factura en las opciones en visual basic , o en el libro .

Tengo excel 2013 pro .

Un saludo

En las líneas que marqué con --------------------------:

En la primera, donde dice: ---------------desproteger va esta:

ActiveSheet. Unprotect "tu_clave" 'si no tenés clave no va

En la segunda, donde dice: ------------------volver a proteger va esta:

ActiveSheet.Protect "tu_clave", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True

Sdos!

Me parece que he trabajado más que el otro experto y de modo más preciso. Si has valorado su respuesta espero que también lo hagas del mismo modo con la mía.

Sdos.

Elsa

Hola Elsa, por supuesto que si has trabajado más que el otro experto y te lo agradezco mucho elsa, lo que ocurre es que no estoy en casa ahora y no puedo probar el funcionamiento de tu código que es el que voy a usar, mañana lo pruebo y no dudes de que mi valoración sera positiva. Gracias de nuevo

Elsa

Hola Elsa , estoy probando el codigo y no me termina de funcionar donde pones ----------lo borro y pongo : ActiveSheet.Unprotect , sin contraseña y abajo donde pone volver a proteger vuelvo a poner: ActiveSheet.Protect "tu_clave", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True

Y me voy a la hoja y le doy a desproteger y no le he puesto contraseña y aun así me la pide para desproteger le doy a enter y dice que esta protegida.

Además quiero proteger la celda G36 y G37.

Gracias otra vez .

Un saludo

Seguramente en alguna de tus pruebas colocaste "tu_clave" y así quedó protegida... intentá desprotegerla manualmente con el texto: tu_clave

Sdos!

Si no lo resolves enviame tu libro así puedo observar cómo te está quedando la macro. Quizás mezclaste instrucciones de las 2 respuestas recibidas.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
1 respuesta

¿Como crear un evento al cambiar el valor de una celda con nombre? VBA en Excel

A tod@s! Tengo una celda que se llama "AnalogicaImput". Tengo esta instruccion If Target.Address = "$L$3" Then funciona con la posicion de la celda Como puedo hacer If Target.Name= "AnalogicaImput" Then para ejecutar un evento
1 respuesta

Atascado en la función sumar. Si

En una hoja de calculo tengo en las columnas H, I, J una celda en blanco por columna, en la columna QUE tengo una celda con un numero como referencia 1000 y una celda donde ha de apareceme el resultado siguiente para el cual necesito la fórmula que...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas

Fórmula que separe la fecha por dígitos de uno en cada columna

Necesito una fórmula o macro que separe la fecha en dígitos de uno en cada columna, Ej: 27/03/2025 (col-A(2), col-B(7), col-C(0), col-D(3), col-E(2), col-F(0), col-G(2), col-H(5) Agradecido de antemanos
2 respuestas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Cómo se copia una fórmula moviendo solo valores intermedios?

Tengo la siguiente fórmula: ='2025-300'!C$1 Deseo arrastrar la fórmula hacia abajo o copiarla de forma que solo cambie el 300 en el correlativo siguiente: ='2025-301'!C$1 ='2025-302'!C$1 Y asi sucescivamente.
1 respuesta

¿Como adecuar picture de fondo dependiendo de pantalla?

Tengo un libro de Excel que manejo con formularios. Tengo una hoja cuyo fondo tengo una imagen que dependiendo del ordenador en que lo habra, sale desplazado o mas grande... Es decir, me varia dependiendo, creo yo de la resolucion o tamaño de...
2 respuestas

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
2 respuestas