Desbloquear hola con clave por macro y bloquearla al finalizar

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Graba una macro con todo el proceso de poner contraseña a una hoja (si hace
falta graba otra macro quitando la contraseña)

Mira estos dos macros y veras claramente como se pone y quita la contraseña
a una hoja mediante VBA.

Con esto, solo necesitas modificar tu macro para quitar la macro al
principio, después dejas tu macro y por ultimo pones de nuevo la contraseña-

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

Tengo una hija bloqueada con clave la clave es 123 y la persona que
manejan la hoja no quiero que sepa cual es la clave pero pueden manejar la
hoja y utilizan la hoja y tengo un macro necesita desbloquear la hoja para
que funciona y vuelve a bloquear la hoja cuando termina.





KM**VE

hola amigo no me fonciono cuando escribi la clave no me aparese grabada


Sub Desbloquear_con_clave()
'
' Desbloquear_con_clave Macro
' Macro grabada el 26/02/2006 por KM'

'
Range("B4").Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub



"julian-vlc-sp" escribió en el mensaje
news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Graba una macro con todo el proceso de poner contraseña a una hoja (si
hace falta graba otra macro quitando la contraseña)

Mira estos dos macros y veras claramente como se pone y quita la
contraseña a una hoja mediante VBA.

Con esto, solo necesitas modificar tu macro para quitar la macro al
principio, después dejas tu macro y por ultimo pones de nuevo la
contraseña-

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

Tengo una hija bloqueada con clave la clave es 123 y la persona que
manejan la hoja no quiero que sepa cual es la clave pero pueden manejar
la hoja y utilizan la hoja y tengo un macro necesita desbloquear la hoja
para que funciona y vuelve a bloquear la hoja cuando termina.





KM**VE

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Llevas toda la razón, y lo siento, ahora uso Excel XP y me pasa lo que
indicas.

Juraría que cuando lo necesité lo averigüé como te he indicado, aunque es
posible que usase la versión 2000, y/o que lo averiguase de otra forma.

De todas formas, he buscado y lo que yo uso y funciona es:

ActiveSheet.Unprotect password:="pp"

* * * Aquí lo que quieras ejecutar * * *

ActiveSheet.Protect password:="pp",
DrawingObjects:=True, Contents:=True, Scenarios:=True

La línea de proteger variará según lo que quieras proteger de la hoja, pero
entiendo que las opciones si las graba Excel con la macro.


SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

hola amigo no me fonciono cuando escribi la clave no me aparese grabada


Sub Desbloquear_con_clave()
'
' Desbloquear_con_clave Macro
' Macro grabada el 26/02/2006 por KM'

'
Range("B4").Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub



"julian-vlc-sp" escribió en el mensaje
news:

>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>>
Graba una macro con todo el proceso de poner contraseña a una hoja (si
hace falta graba otra macro quitando la contraseña)

Mira estos dos macros y veras claramente como se pone y quita la
contraseña a una hoja mediante VBA.

Con esto, solo necesitas modificar tu macro para quitar la macro al
principio, después dejas tu macro y por ultimo pones de nuevo la
contraseña-

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

Tengo una hija bloqueada con clave la clave es 123 y la persona que
manejan la hoja no quiero que sepa cual es la clave pero pueden manejar
la hoja y utilizan la hoja y tengo un macro necesita desbloquear la hoja
para que funciona y vuelve a bloquear la hoja cuando termina.





KM**VE

Como hago cuando protejo la hoja por el macro para que no permita selecciona
celda Bloqueadas

Y no me funciona la Activación de la Hoja ( ActiveSheet.Unprotect
Password:="pp")

Haber si me puede ayudar con este macro.


Gracias
KM**VE

-
Sub borrarDesbloqueadas()
'
' Macro1 Macro
' Macro grabada el 27/02/2006 por KM
'

'
ActiveSheet.Protect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:E18")
c.ClearContents
Next

ActiveSheet.Unprotect Password:="pp"

End Sub
-


"julian-vlc-sp" escribió en el mensaje
news:%

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Llevas toda la razón, y lo siento, ahora uso Excel XP y me pasa lo que
indicas.

Juraría que cuando lo necesité lo averigüé como te he indicado, aunque es
posible que usase la versión 2000, y/o que lo averiguase de otra forma.

De todas formas, he buscado y lo que yo uso y funciona es:

ActiveSheet.Unprotect password:="pp"

* * * Aquí lo que quieras ejecutar * *
*

ActiveSheet.Protect password:="pp",
DrawingObjects:=True, Contents:=True, Scenarios:=True

La línea de proteger variará según lo que quieras proteger de la hoja,
pero entiendo que las opciones si las graba Excel con la macro.


SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

hola amigo no me fonciono cuando escribi la clave no me aparese grabada


Sub Desbloquear_con_clave()
'
' Desbloquear_con_clave Macro
' Macro grabada el 26/02/2006 por KM'

'
Range("B4").Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub



"julian-vlc-sp" escribió en el mensaje
news:

>>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>>>
Graba una macro con todo el proceso de poner contraseña a una hoja (si
hace falta graba otra macro quitando la contraseña)

Mira estos dos macros y veras claramente como se pone y quita la
contraseña a una hoja mediante VBA.

Con esto, solo necesitas modificar tu macro para quitar la macro al
principio, después dejas tu macro y por ultimo pones de nuevo la
contraseña-

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

Tengo una hija bloqueada con clave la clave es 123 y la persona que
manejan la hoja no quiero que sepa cual es la clave pero pueden manejar
la hoja y utilizan la hoja y tengo un macro necesita desbloquear la
hoja para que funciona y vuelve a bloquear la hoja cuando termina.





KM**VE

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Prueba con

Sub borrarDesbloqueadas()
'
' Macro1 Macro
' Macro grabada el 27/02/2006 por KM
'
ActiveSheet.Unprotect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:a20")
If c.Locked = False Then
c.ClearContents
End If
Next
ActiveSheet.Protect Password:="pp"
End Sub

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:%

Como hago cuando protejo la hoja por el macro para que no permita
selecciona celda Bloqueadas

Y no me funciona la Activación de la Hoja ( ActiveSheet.Unprotect
Password:="pp")

Haber si me puede ayudar con este macro.


Gracias
KM**VE

-
Sub borrarDesbloqueadas()
'
' Macro1 Macro
' Macro grabada el 27/02/2006 por KM
'

'
ActiveSheet.Protect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:E18")
c.ClearContents
Next

ActiveSheet.Unprotect Password:="pp"

End Sub
-


"julian-vlc-sp" escribió en el mensaje
news:%

>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>>
Llevas toda la razón, y lo siento, ahora uso Excel XP y me pasa lo que
indicas.

Juraría que cuando lo necesité lo averigüé como te he indicado, aunque es
posible que usase la versión 2000, y/o que lo averiguase de otra forma.

De todas formas, he buscado y lo que yo uso y funciona es:

ActiveSheet.Unprotect password:="pp"

* * * Aquí lo que quieras ejecutar * *
*

ActiveSheet.Protect password:="pp",
DrawingObjects:=True, Contents:=True, Scenarios:=True

La línea de proteger variará según lo que quieras proteger de la hoja,
pero entiendo que las opciones si las graba Excel con la macro.


SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el mensaje
news:

hola amigo no me fonciono cuando escribi la clave no me aparese grabada


Sub Desbloquear_con_clave()
'
' Desbloquear_con_clave Macro
' Macro grabada el 26/02/2006 por KM'

'
Range("B4").Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub



"julian-vlc-sp" escribió en el mensaje
news:

>>>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>>>>
Graba una macro con todo el proceso de poner contraseña a una hoja (si
hace falta graba otra macro quitando la contraseña)

Mira estos dos macros y veras claramente como se pone y quita la
contraseña a una hoja mediante VBA.

Con esto, solo necesitas modificar tu macro para quitar la macro al
principio, después dejas tu macro y por ultimo pones de nuevo la
contraseña-

SALUDOS.
Julián-Valencia-España

"K.M. **Ve" escribió en el
mensaje news:

Tengo una hija bloqueada con clave la clave es 123 y la persona que
manejan la hoja no quiero que sepa cual es la clave pero pueden
manejar la hoja y utilizan la hoja y tengo un macro necesita
desbloquear la hoja para que funciona y vuelve a bloquear la hoja
cuando termina.





KM**VE