Mostrar MsgBox si hay error en una macro

Buen día, yo se que el siguiente problema tal vez sea algo sencillo pero no me viene a la mente cómo realizarlo. Tengo dos macros en una hoja de menú, la primera macro oculta 4 hojas del libro de Excel, y la segunda las muestra otra vez. Sin embargo, al oprimir el botón de ocultar cuando ya están ocultas las hojas produce un error en la macro, y se me presentan en una ventana las opciones de Finalizar, Depurar y Ayuda. Me gustaría que en lugar de eso, se mostrara una sencilla ventana diciendo que No hay más hojas que ocultar, con un botón de Aceptar. Éste es el código que tengo de la macro:
Sheets("Empleados").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Ventas").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Historial de compras").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Menú").Select
Gracias de antemano por su ayuda

1 Respuesta

Respuesta
1
En primer lugar no sé porqué repetís la instrucción de ocultar (ActiveWindow.SelectedSheets.Visible = False)
Te dejo la rutina resumida, con control de error:
on error resume next
Sheets("Empleados").Visible = False
Sheets("Ventas").Visible = False
Sheets("Historial de compras").Visible = False
Sheets("Menú").Select
Lo mismo debieras hacer para pasarla a True
Pruébala y si todo quedó solucionado no olvides finalizar la consulta.
Sdos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para mostrar y ocultar hojas de excel

Tengo una hoja de excel que uso como indice en donde tengo imágenes que son hipervínculos que me dirigen a otras hojas del mismo libro. La pregunta es como puedo hacer que cuando abra el libro solo se vea el indice y al clickear en alguna imagen de...
3 respuestas

Bloqueo para que no se vean hojas en excel

Tengo un archivo de Excel en el cual tengo 3 hojas y solo quiero que se vea la primera, un amigo me enseñó una secuencia en visual basic pero me marga que es incorrecta, ¿Me podrían ayudar por favor? Anexo secuencia Private Sub Workbook_Open()...
1 respuesta

Habilitar macros

Tengo una hoja con una macro y quiero que al abrir el libro, cuando ponga el mensaje de si quieres habilitar las macros, no puedas pinchar en el botón de no o en todo caso que cuando pulses que no, se cierre el libro. ¿Es posible?
1 respuesta

Mostrar una hoja de excel desde un Userform

De TodoExpertos Tengo un formulario en un archivo Excel que oculta el libro al cargar usando el código Application.visible = false userform.show Ahora bien, me gustaría saber como puedo hacer para que usando un botón desde el form me muestre solo una...
1 respuesta

Mostrar hojas ocultas

Oculte varias hojas, usando la opción formato, ¿Hoja y ocultar pero ya no puedo ver las hojas ocultas por estar desactivada la opción mostrar que hago?
1 respuesta

Macro mostrar Hojas ocultas

Solicito de tu apoyo para generar una macro que me permita abrir todas las hojas ocultas de un libro.
1 respuesta

Mostrar hojas ocultas excel 2007

Soy contador publico y estoy recibiendo un cargo en una empresa, mi pregunta se relaciona en que el Sr. Contador anterior dejo el archivo para realizar los balances pero dejo ocultas las hojas para alimentar las hojas que los elaboran, lo que pasa es...
1 respuesta

Macro Para Ocultar Hojas excel y abrirlas con comboBox

Dante Ante todo u gran saludo a tu persona y por la gran ayuda que nos brindas en el foro, hiendo con mi pregunta. Tengo 30 hojas excel activas en las que ingreso datos, lo que necesito con este tema es que se pueda ocultar las hojas y solo me...
1 respuesta

Ocultar y mostrar filas por medio de una macro

Resulta que tengo 2 hojas de excel con los nombres "datos" y "detalle". Lo que quiero es que en la celda A5 de la hoja datos al poner valores del 1 al 4 oculte o muestre ciertas filas de la hoja detalle. Quiero que la macro se ejecute si cumple los...
1 respuesta