Evento

... que un libro solo se abra si se aceptan las macros [...]

Me interesa que un libro solo se abra si se aceptan las macros, y que un a
vez aceptado se sitúe en una hoja determinada, pongo este macro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("2003").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Worksheets("2003").Visible = xlSheetVisible
End Sub

y

Private Sub Workbook_Open()
Application.Goto [2002], True
End Sub

los dos primeros los situo en ThisWorkboot, pero el segundo no se donde
colocarlo, si lo pongo en ThisWorkboot me da error, alguna sugerencia.



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

Sera esto lo que necesitas?

Private Sub Workbook_Open()
Worksheets("2003").Visible = xlSheetVisible
Worksheets("2002").Activate
End Sub

Saludos,

David Canales


"Wölkl" <Wö wrote in message
news:
> Me interesa que un libro solo se abra si se aceptan las macros, y que un

> vez aceptado se sitúe en una hoja determinada, pongo este macro:
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Worksheets("2003").Visible = xlVeryHidden
> End Sub
>
> Private Sub Workbook_Open()
> Worksheets("2003").Visible = xlSheetVisible
> End Sub
>
> y
>
> Private Sub Workbook_Open()
> Application.Goto [2002], True
> End Sub
>
> los dos primeros los situo en ThisWorkboot, pero el segundo no se donde
> colocarlo, si lo pongo en ThisWorkboot me da error, alguna sugerencia.
>
>
>
> 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

> replay, por wolkl arroba hotmail punto com
>
>

Hola David;

El código que me envías, en principio, por lo que observado, abre el libro
por la hoja 2002. Pero no se adapta a lo que quiero, como comentaba lo que
me interesa es que de un libro no se pueda abrir determinadas hojas (2003

2002) si no se acepta el macro, y que si se acepta se abra la hoja 2002. A
lo mejor lo que pido no es posible. Gracias por tu tiempo.

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

"David Canales" ha escrit en el missatge dels grups de
discussió:%
> Sera esto lo que necesitas?
>
> Private Sub Workbook_Open()
> Worksheets("2003").Visible = xlSheetVisible
> Worksheets("2002").Activate
> End Sub
>
> Saludos,
>
> David Canales
>
>
> "Wölkl" <Wö wrote in message
> news:
> > Me interesa que un libro solo se abra si se aceptan las macros, y que

a
> > vez aceptado se sitúe en una hoja determinada, pongo este macro:
> >
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > Worksheets("2003").Visible = xlVeryHidden
> > End Sub
> >
> > Private Sub Workbook_Open()
> > Worksheets("2003").Visible = xlSheetVisible
> > End Sub
> >
> > y
> >
> > Private Sub Workbook_Open()
> > Application.Goto [2002], True
> > End Sub
> >
> > los dos primeros los situo en ThisWorkboot, pero el segundo no se

> > colocarlo, si lo pongo en ThisWorkboot me da error, alguna sugerencia.
> >
> >
> >
> > Saludos. Völkl.
> >
> > La inteligencia consiste no sólo en el conocimiento, sino también en

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

o
> > replay, por wolkl arroba hotmail punto com
> >
> >
>
>