macro en celdas protegida

21/02/2007 - 15:48 por bky | Informe spam
hola a todos..

he creado la siguiente macro:
Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
End Sub
la cual ejecuta muy bien... pero el problema es que quiero que se ejecute en
una celda protegida y cuando lo intento me pide que le quite la protección,
cosa que no deseo...
si alguien puede ayudarme por favor lo agradeceria mucho...

Preguntas similare

Leer las respuestas

#1 JJGarcia
21/02/2007 - 16:15 | Informe spam
On 21 feb, 06:48, bky wrote:
hola a todos..

he creado la siguiente macro:
Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
End Sub
la cual ejecuta muy bien... pero el problema es que quiero que se ejecute en
una celda protegida y cuando lo intento me pide que le quite la protección,
cosa que no deseo...
si alguien puede ayudarme por favor lo agradeceria mucho...



Hola bky, porque no intentas esto... desproteges las celdas>corres la
macro>y despues vuelves a proteger las celdas, saludos, JJGarcia
Respuesta Responder a este mensaje
#2 David
21/02/2007 - 16:40 | Informe spam
Hola.

Deberías remover la protección en tu código, hacer el cambio y volverla a
activar. Prueba cambiar a lo siguiente:

Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
ActiveSheet.Unprotect ("123")
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True
End Sub

Saludos.



"bky" escribió:

hola a todos..

he creado la siguiente macro:
Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
End Sub
la cual ejecuta muy bien... pero el problema es que quiero que se ejecute en
una celda protegida y cuando lo intento me pide que le quite la protección,
cosa que no deseo...
si alguien puede ayudarme por favor lo agradeceria mucho...


Respuesta Responder a este mensaje
#3 L. Garcia
21/02/2007 - 17:00 | Informe spam
Hola:

Complementando esta respuesta, tambien se puede 'proteger' una hoja
indicando que no 'este bloqueada' para las macros:

El ultimo parametro de .Protect es UserInterfaceOnly, si proteges una hoja
con este valor en True, las 'macros' no daran error. Pero tiene el
inconveniente de que cuando guardas el libro, esta 'opcion' no se guarda, y
tienes que activarla cada vez que abres el libro (al menos en Excel2000, no
se si ha mejorado en versiones posteriores).

Saludos

"David" escribió en...
Hola.

Deberías remover la protección en tu código, hacer el cambio y volverla a
activar. Prueba cambiar a lo siguiente:

Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
ActiveSheet.Unprotect ("123")
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") +


1
ActiveSheet.Protect Password:="123", DrawingObjects:=True,


Contents:=True
End Sub

Saludos.



"bky" escribió:

> hola a todos..
>
> he creado la siguiente macro:
> Sub Imprime_Numera()
> ActiveSheet.PrintOut ' copies:=2
> Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") +


1
> End Sub
> la cual ejecuta muy bien... pero el problema es que quiero que se


ejecute en
> una celda protegida y cuando lo intento me pide que le quite la


protección,
> cosa que no deseo...
> si alguien puede ayudarme por favor lo agradeceria mucho...
>
>
Respuesta Responder a este mensaje
#4 bky
21/02/2007 - 19:43 | Informe spam
gracias davis funcionó de maravillas...la verdad es que esta es la mejor
forma de aprender...
bye

"David" escribió:

Hola.

Deberías remover la protección en tu código, hacer el cambio y volverla a
activar. Prueba cambiar a lo siguiente:

Sub Imprime_Numera()
ActiveSheet.PrintOut ' copies:=2
ActiveSheet.Unprotect ("123")
Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True
End Sub

Saludos.



"bky" escribió:

> hola a todos..
>
> he creado la siguiente macro:
> Sub Imprime_Numera()
> ActiveSheet.PrintOut ' copies:=2
> Sheets("RC CREAR").Range("G4").Value = Sheets("RC CREAR").Range("G4") + 1
> End Sub
> la cual ejecuta muy bien... pero el problema es que quiero que se ejecute en
> una celda protegida y cuando lo intento me pide que le quite la protección,
> cosa que no deseo...
> si alguien puede ayudarme por favor lo agradeceria mucho...
>
>
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida