NESESITO UN CODIGO

hola, Luis !

Mostrar la cita

tengo una macro que desportege una hoja , hace algunos cambios y luego la vuleve a proteger.
lo que pasa es que funciona bien si la hoja esta protegida pero sin clave
quisera saber que instruccion le pongo para que a la hora de porteger y desproteger
incluya tambien la clave que yo le haya puesto, y asi al final quede protegida pero con clave...

si necesitas que la proteccion NO 'afecte' a tus macros ->SIN tener que [des/re]proteger la hoja<-
puedes usar la instruccion de 'solo interfase de usuario' y dejarla protegida desde la apertura del libro [p.e.]

en el modulo de codigo del libro ==Private Sub Workbook_Open()
With Worksheets("matricula")
.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
UserInterfaceOnly:=True
.EnableSelection = xlNoSelection
End Sub

[practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas'
-> excepto 'ciertas' cosillas relacionadas con insertar filas/columnas y objetos incrustados :-((
en cuyo caso puedes agregar la clave tanto en la instruccion .Unprotect como en la del .Protect ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Luis !

Mostrar la cita

como le agrego la clave a la instruccion Unprotect o a la Protect, poniendloa entre parentesis cuadrados o como?

1) el metodo protect usa basicamente 4 instrucciones cuando se trata de la proteccion a hojas de calculo:
-> Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly) y sus valores 'por omision' son:
Password [a menos que la indiques] asume una cadena de texto vacia
DrawingObjects [para los objetos de dibujo] se queda en False
Contents [para las celdas individuales excepto las desprotegids] asume True
Scenarios [contexto 'obvio'] su valor predeterminado es True
UserInterfaceOnly [para que tus macros SI puedan 'actuar' en hojas protegidas] si se 'omite' prohibe a macros y usuario

2) ejemplos de aplicacion:
a) secuencialmente aplicando solo el password y la interfase de usuario [las demas sus valores 'por omision']...
<hoja>.Protect "123", , , , True <= OJO: se incluyen las comas de los argumentos omitidos...
b) usando los mismos argumentos pero utilizando sus nombres:
<hoja>. Protect PassWord:="123", UserInterfaceOnly:=True
c) para la desproteccion de una hoja [el password es requerido a partir de la version 2002 -en caso de existir-]
<hoja>.Unprotect "123"

saludos,
hector.

GRACIAS.
como le agrego la clave a la instruccion Unprotect o a la Protect,
poniendloa entre parentesis cuadrados o como?
"Héctor Miguel" wrote in message
news:OgRYJX9%
Mostrar la cita

hola, Luis !

> tengo una macro que desportege una hoja , hace algunos cambios y luego

la vuleve a proteger.
Mostrar la cita

> lo que pasa es que funciona bien si la hoja esta protegida pero sin

clave
Mostrar la cita

> quisera saber que instruccion le pongo para que a la hora de porteger y

desproteger
Mostrar la cita

> incluya tambien la clave que yo le haya puesto, y asi al final quede

protegida pero con clave...
Mostrar la cita

si necesitas que la proteccion NO 'afecte' a tus macros ->SIN tener que

[des/re]proteger la hoja<-
Mostrar la cita

puedes usar la instruccion de 'solo interfase de usuario' y dejarla

protegida desde la apertura del libro [p.e.]
Mostrar la cita

en el modulo de codigo del libro ==> Private Sub Workbook_Open()
With Worksheets("matricula")
.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
UserInterfaceOnly:=True
.EnableSelection = xlNoSelection
End Sub

[practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas'
-> excepto 'ciertas' cosillas relacionadas con insertar filas/columnas y

objetos incrustados :-((
Mostrar la cita

en cuyo caso puedes agregar la clave tanto en la instruccion

.Unprotect como en la del .Protect ;)
Mostrar la cita

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

G racias Hector, no tengo como pagarte.

"Héctor Miguel" wrote in message
news:%23md61nJ$
Mostrar la cita

hola, Luis !

> como le agrego la clave a la instruccion Unprotect o a la Protect,

poniendloa entre parentesis cuadrados o como?
Mostrar la cita

1) el metodo protect usa basicamente 4 instrucciones cuando se trata de la

proteccion a hojas de calculo:
Mostrar la cita

-> Protect(Password, DrawingObjects, Contents, Scenarios,

UserInterfaceOnly) y sus valores 'por omision' son:
Mostrar la cita

Password [a menos que la indiques] asume una cadena de texto vacia
DrawingObjects [para los objetos de dibujo] se queda en False
Contents [para las celdas individuales excepto las desprotegids] asume

True
Mostrar la cita

Scenarios [contexto 'obvio'] su valor predeterminado es True
UserInterfaceOnly [para que tus macros SI puedan 'actuar' en hojas

protegidas] si se 'omite' prohibe a macros y usuario
Mostrar la cita

2) ejemplos de aplicacion:
a) secuencialmente aplicando solo el password y la interfase de

usuario [las demas sus valores 'por omision']...
Mostrar la cita

<hoja>.Protect "123", , , , True <= OJO: se incluyen las comas

de los argumentos omitidos...
Mostrar la cita

b) usando los mismos argumentos pero utilizando sus nombres:
<hoja>. Protect PassWord:="123", UserInterfaceOnly:=True
c) para la desproteccion de una hoja [el password es requerido a

partir de la version 2002 -en caso de existir-]
Mostrar la cita

<hoja>.Unprotect "123"

saludos,
hector.