Bloquea propiedades

[Xanito]

Buenas tardes personas buenas de este foro, ahora vengo otra ves con una molestia, yo se que ustedes me pueden ayudar. resulta que tengo un archivo que con amabilidad me ayudo Jonetoja Usuario de este foro. pero tengo este inconveniente con el archivo:

da error al pulsar el boton Ir a Hoja2, y aparece bloqueada la propiedades

y el error dice se ha producido el error '1004' en tiempo de ejecucion:

No se puede asignar la propiedad visible de la clase Worksheet.

Adjunto archivo, de antemano gracias por su valiosa ayuda.

evita elimiar hojas de calculo, y habilita.rar

[jonetoja]

[uSER=182252]@Xanito[/uSER], Hola lo que sucede es que tienes protegido el libro contra escritura y es por eso que no te está funcionando.

Tienes dos opciones por ahora:

1. Facilitarme la clave de Protección e intento adaptarlo a lo que quieres específicamente.
   
2. Explicarme exactamente cuales son tus dificultades e intereses con estos trabajos para diseñar una estrategia de Seguridad de tu archivo.
   

Debes saber que ningún sistema es 100% seguro; la diferencia radica que existen algunas maneras de dificultar el trabajo, de violar los sistemas de seguridad; pero para las personas muy expertas y estudiosas pueden encontrar vulnerabilidades.

Espero tus comentarios.

Saludos.

[rolano]

Hola a todos, prueba así.

Sub Botón1_Haga_clic_en()

ActiveWorkbook.Unprotect

Sheets("Hoja2").Activate

Sheets("Hoja2").Visible = True

Sheets("Hoja1").Visible = False

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

Sub Hoja2_Botón1_Haga_clic_en()

ActiveWorkbook.Unprotect

Sheets("Hoja1").Activate

Sheets("Hoja1").Visible = True

Sheets("Hoja2").Visible = False

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub[/CODE]

[Xanito]

Buenas tardes Rolando, gracias por tu pronta respuesta, la macro funciona excelente:). Pero sera que me das chacesito mañana pare ver si doy el tema por solucionado, ya que mis compañero que usan el archivo compartido ya se fueron a sus casas yo decia para no molestar cada rato:D, de antemano gracias por tu paciencia.

Por otro lado gracias mi estimado jonetoja, por responder.

[Xanito]

Buenos días mi estimado Rolando, estaba probando la macro funciona perfectamente el los botones de (Controles de Formulario). Pero como yo tengo oculta las hojas, entonces a la hora de hacer visible las hojas utilizando la propiedad de Visual Basic y me da este error: Micro Visual Basic para aplicación No se puede asignar la propiedad visible de la clase Worksheet.

No se si hay alguna solución para eso, sino de lo contrario tendré que usar la macro que tengo para habilitar la propiedad cada ves que quiero que sea visible las hojas.

En espera de su valiosa respuesta.

[rolano]

Ese error te da por que tu libro esta protegido (sin contraseña)

Para que funcione en tu procedimientos tienes que quitar la protección al principio de tu macro y al final protegerlo.

sub macro()

al principio

ActiveWorkbook.Unprotect


al final

ActiveWorkbook.Protect Structure:=True, Windows:=False

en sub[/CODE]

[Xanito]

Gracias por tu respuesta [uSER=9984]@rolano[/uSER], te comento yo no tengo protegido el libro, tengo protegido pero las hojas, no se si te entendí pero la macro lo puse así

Sub Presupuesto_Botón1_Haga_clic_en()

ActiveWorkbook.Unprotect

Sheets("Hoja1").Activate

Sheets("Hoja1").Visible = True

Sheets("Presupuesto").Visible = False

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

¿no se si estoy mal?