abrir solo si se activan macros

Buenas tardes Manuel:

Tengo un problema con la macro en cuestion, se me ocultan las hojas, pero la
macro para mostralas no me funciona, indica el siguiente error:

"No se puede asignar la propiedad visible de la clase Worksheets"

Me puedes aclarar donde tengo el error. Gracias.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com
"Manuel Romero" <mromerop_arroba_hotmail_punto_com> ha escrit en el missatge
dels grups de discussió:

En el evento BeforeClose del objeto Workbook, ocultas las hojas que no
quieres que se vean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Mi Hoja 1").Visible=xlVeryHidden
Worksheets("Mi Hoja 2").Visible=xlVeryHidden
End Sub

y en el evento Open, las muestras

Private Sub Workbook_Open()
Worksheets("Mi Hoja 1").Visible=xlVisible
Worksheets("Mi Hoja 2").Visible=xlVisible
End Sub

si las macros no se activan, el evento Open no se ejecuta y las hojas

nunca

se ven.

Personalmente acostumbro dejar solo una hoja visible indicando que por

favor

active las macros si desea usar la hoja

Private Sub Workbook_Close()
Dim wk As Worksheet

For Each wk In ThisWorkbook.Worksheets
If wk.Name<>"Presentacion" Then wk.Visible=xlVeryHidden
Next
End Sub

en el ejemplo, Persentacion es el nombre de la hoja con las instrucciones
"Guillermo" escribió en el mensaje
news:
> Podrias indicarnos cuales serian los pasos???
>
> Gracias
> Guillermo
>
> "Manuel Romero" <mromerop_arroba_hotmail_punto_com> escribió en el

mensaje

> news:
> > Puedes ocultar las hojas con xlVeryHidden antes de grabar y las

muestras

> en
> > el evento Open del libro, si las macros no se habilitan, las hojas no

se

> > muestran
> >
> > "maxilopez" escribió en el

mensaje

> > news:23c6201c45ee9$f7847320$
> > cómo es posible impedir que se abra un archivo si no
> > aceptan las macros...???
> >
> > quiero que solo se vea la info de un libro si se habilita
> > el uso de macros, sino no.
> >
> > gracias
> >
> >
>
>

Debe ser porque el libro esta protegido, lo tienes que desproteger, mostrar
las hojas y volverlo a proteger.

Si existe otro metodo, yo no lo conozco.

"Wölkl" <Wö escribió en el mensaje
news:

Buenas tardes Manuel:

Tengo un problema con la macro en cuestion, se me ocultan las hojas, pero

la

macro para mostralas no me funciona, indica el siguiente error:

"No se puede asignar la propiedad visible de la clase Worksheets"

Me puedes aclarar donde tengo el error. Gracias.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com
"Manuel Romero" <mromerop_arroba_hotmail_punto_com> ha escrit en el

missatge

dels grups de discussió:
> En el evento BeforeClose del objeto Workbook, ocultas las hojas que no
> quieres que se vean
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Worksheets("Mi Hoja 1").Visible=xlVeryHidden
> Worksheets("Mi Hoja 2").Visible=xlVeryHidden
> End Sub
>
> y en el evento Open, las muestras
>
> Private Sub Workbook_Open()
> Worksheets("Mi Hoja 1").Visible=xlVisible
> Worksheets("Mi Hoja 2").Visible=xlVisible
> End Sub
>
> si las macros no se activan, el evento Open no se ejecuta y las hojas
nunca
> se ven.
>
> Personalmente acostumbro dejar solo una hoja visible indicando que por
favor
> active las macros si desea usar la hoja
>
> Private Sub Workbook_Close()
> Dim wk As Worksheet
>
> For Each wk In ThisWorkbook.Worksheets
> If wk.Name<>"Presentacion" Then wk.Visible=xlVeryHidden
> Next
> End Sub
>
> en el ejemplo, Persentacion es el nombre de la hoja con las

instrucciones

> "Guillermo" escribió en el mensaje
> news:
> > Podrias indicarnos cuales serian los pasos???
> >
> > Gracias
> > Guillermo
> >
> > "Manuel Romero" <mromerop_arroba_hotmail_punto_com> escribió en el
mensaje
> > news:
> > > Puedes ocultar las hojas con xlVeryHidden antes de grabar y las
muestras
> > en
> > > el evento Open del libro, si las macros no se habilitan, las hojas

no

se
> > > muestran
> > >
> > > "maxilopez" escribió en el
mensaje
> > > news:23c6201c45ee9$f7847320$
> > > cómo es posible impedir que se abra un archivo si no
> > > aceptan las macros...???
> > >
> > > quiero que solo se vea la info de un libro si se habilita
> > > el uso de macros, sino no.
> > >
> > > gracias
> > >
> > >
> >
> >
>
>

Lo que pasaba es que la constante es xlSheetVisible, el codigo anterior lo
escribi de memoria

"Wölkl" <Wö escribió en el mensaje
news:%

Hola Manuel;

Perdona por abusar de tu amabilidad, te adjunto el fichero para ver si
puedes mirártelo, pues no consigo que funcione, veras que me continua

dando

el error que te comente, para no cargar innecesariamente las "news" si
quieres puedes enviármelo a mi correo electrónico, el que pongo después de
la firma. Gracias anticipadas.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com

"Manuel Romero" <mromerop_arroba_hotmail_punto_com> ha escrit en el

missatge

dels grups de discussió:
> Debe ser porque el libro esta protegido, lo tienes que desproteger,
mostrar
> las hojas y volverlo a proteger.
>
> Si existe otro metodo, yo no lo conozco.
>
> "Wölkl" <Wö escribió en el mensaje
> news:
> > Buenas tardes Manuel:
> >
> > Tengo un problema con la macro en cuestion, se me ocultan las hojas,
pero
> la
> > macro para mostralas no me funciona, indica el siguiente error:
> >
> > "No se puede asignar la propiedad visible de la clase Worksheets"
> >
> > Me puedes aclarar donde tengo el error. Gracias.
> >
> > Saludos. Völkl.
> >
> > La inteligencia consiste no sólo en el conocimiento, sino también en

la

> > destreza de aplicar los conocimientos en la práctica.
> >
> > Para contestarme o enviarme un e- mail sustituye la información de

para

o
> > replay, por wolkl arroba hotmail punto com
> > "Manuel Romero" <mromerop_arroba_hotmail_punto_com> ha escrit en el
> missatge
> > dels grups de discussió:
> > > En el evento BeforeClose del objeto Workbook, ocultas las hojas que

no

> > > quieres que se vean
> > >
> > > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > > Worksheets("Mi Hoja 1").Visible=xlVeryHidden
> > > Worksheets("Mi Hoja 2").Visible=xlVeryHidden
> > > End Sub
> > >
> > > y en el evento Open, las muestras
> > >
> > > Private Sub Workbook_Open()
> > > Worksheets("Mi Hoja 1").Visible=xlVisible
> > > Worksheets("Mi Hoja 2").Visible=xlVisible
> > > End Sub
> > >
> > > si las macros no se activan, el evento Open no se ejecuta y las

hojas

> > nunca
> > > se ven.
> > >
> > > Personalmente acostumbro dejar solo una hoja visible indicando que

por

> > favor
> > > active las macros si desea usar la hoja
> > >
> > > Private Sub Workbook_Close()
> > > Dim wk As Worksheet
> > >
> > > For Each wk In ThisWorkbook.Worksheets
> > > If wk.Name<>"Presentacion" Then wk.Visible=xlVeryHidden
> > > Next
> > > End Sub
> > >
> > > en el ejemplo, Persentacion es el nombre de la hoja con las
> instrucciones
> > > "Guillermo" escribió en el mensaje
> > > news:
> > > > Podrias indicarnos cuales serian los pasos???
> > > >
> > > > Gracias
> > > > Guillermo
> > > >
> > > > "Manuel Romero" <mromerop_arroba_hotmail_punto_com> escribió en el
> > mensaje
> > > > news:
> > > > > Puedes ocultar las hojas con xlVeryHidden antes de grabar y las
> > muestras
> > > > en
> > > > > el evento Open del libro, si las macros no se habilitan, las

hojas

> no
> > se
> > > > > muestran
> > > > >
> > > > > "maxilopez" escribió en el
> > mensaje
> > > > > news:23c6201c45ee9$f7847320$
> > > > > cómo es posible impedir que se abra un archivo si no
> > > > > aceptan las macros...???
> > > > >
> > > > > quiero que solo se vea la info de un libro si se habilita
> > > > > el uso de macros, sino no.
> > > > >
> > > > > gracias
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Gracias Manuel, habia repasado el código y no me di cuenta.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por wolkl arroba hotmail punto com