NESESITO UN CODIGO

30/10/2006 - 05:25 por LUIS DANNY SALAS | Informe spam
Hola estimados amigos, un saludo cordial desde Costa Rica.
Tengo una pequena nesesidad.

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.

Private Sub ACTUALIZAR()

Application.ScreenUpdating = False

Sheets("MATRICULA").Select

ActiveSheet.Unprotect



...





ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.EnableSelection = xlNoSelection






gracias.
 

Leer las respuestas

#1 Héctor Miguel
30/10/2006 - 04:45 | Informe spam
hola, Luis !

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.

Preguntas similares