Protecion de lectura en hoja de calculo

hola [?] !

... proteger contra lectura una hoja ... sola
... si abro un archivo nuevo ... me aparece 'hoja1', 'hoja2' y 'hoja3'.
... que al apretar en hoja2, me pida una clave para poder visualizarla.

copia las siguientes lineas...
en el modulo de codigo del libro [¿ThisWorkbook?]... ==Dim HojaAnterior As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then Exit Sub
[iv65536].Select
If InputBox("Clave de acceso...", "") <> "Yo mero" _
Then Sheets(HojaAnterior).Activate Else [a1].Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then HojaAnterior = Sh.Name
End Sub

-> obviamente 'debieras' cambiar la clave [Yo mero] por una de tu preferencia ;)
si NO quieres que 'se vea' la clave... se necesitara un formulario de usuario personalizado :(
saludos,
hector.

Hola Héctor Miguel.Gracias por los aportes que haces en este Grupo,que me
han parecido de gran interés.

copia las siguientes líneas...
en el modulo de código del libro [¿ThisWorkbook?]... ==Dim HojaAnterior As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then Exit Sub
[iv65536].Select
If InputBox("Clave de acceso...", "") <> "Yo mero" _
Then Sheets(HojaAnterior).Activate Else [a1].Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then HojaAnterior = Sh.Name
End Sub
Lo anterior es qué? Donde aprendo de esto?
Mil gracias.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.
http://usuarios.tripod.es/maderascolombianas2
http://www.geocities.com/maderascolombianas2002





Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.760 / Virus Database: 509 - Release Date: 10/09/04

hola, Luis !

... las siguientes lineas...
en el modulo de codigo del libro [¿ThisWorkbook?] [...]
Lo anterior es que? Donde aprendo de esto?

-> son lineas que van 'escritas/copiadas' en modulos 'de codigo' para ejecutar procedimientos
que pueden ser macros ['a voluntad' o 'por eventos'] o funciones
para tener acceso a la interfase de programacion, un atajo es la combinacion {Alt}+{F8}
[las del ejemplo van en el modulo de codigo que -normalmente- se llama 'ThisWorkbook']
-> para [empezar a] aprender acerca de las macros [si no lo has intentado anteriormente]...
- una buena 'introduccion' es usar la 'grabadora de macros' y 'revisar' lo que escribio en 'el modulo'
- otra es consultar necesidades 'especificas' en este foro [y otros] ...

saludos,
hector.

Gracias Héctor Miguel. Siempre le he tenido fobia a trabajar con Macros,pero
ya veo que me va a tocar aprender.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.
http://usuarios.tripod.es/maderascolombianas2
http://www.geocities.com/maderascolombianas2002





Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.760 / Virus Database: 509 - Release Date: 10/09/04