Como copiar y pegar con celdas proteguida atraves de una macro desproteguiendola y volverla a proteger, ayuda xfavor

23/10/2007 - 21:40 por Daniel | Informe spam
Hola tengo una plantilla donde copia los valores de una plantilla a otra y
tengo bloquedas una columanas y necesito pasar unos valor tengo que
desproteger la hoja para copiar y volverla a proteger sin que me pida la
contraseña, ayuda x favor
 

Leer las respuestas

#1 Héctor Miguel
24/10/2007 - 07:18 | Informe spam
hola, Daniel !

... tengo una plantilla donde copia los valores de una plantilla a otra
...tengo bloquedas una columanas y necesito pasar unos valor
tengo que desproteger la hoja para copiar y volverla a proteger sin que me pida la contrasena...



(asumiendo que las acciones son por macros)...
si necesitas que la proteccion NO afecte a tus macros SIN tener que (des/re)proteger la hoja
(asumiendo que la hoja ya esta protegida)... puedes usar la instruccion de "solo interfase de usuario"
te paso unos ejemplos al final del presente y...

si cualqueir duda (o informacion adicional)... comentas ?
saludos,
hector.

ejemplos protegiendo la hoja al abrirse el libro en el modulo ThisWorkbook...

a) en excel 97 y 2000 NO necesitas 'repetir' el password <= es 'suficiente' con poner:
Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub

b) a partir de excel 2002 [xp] SI es requisito 'repetir' el password :-( <Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub

c) si se trata de varias hojas [suponiendo una misma clave para todas]...
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja6"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next
End Sub

(practicamente) TODO lo que hagas por codigo... pasara sin problemas
(excepto ciertas cosillas relacionadas con ordenaciones, insertar filas/columnas y objetos incrustados) :-((

Preguntas similares