Como Evitar se Inserten Nuevas Hojas en Libro Excel #404

En esta oportunidad les muestro una macro que evita que se inserten nuevas hojas en Excel, el código de VBA que se utiliza evita que nuevas hojas sean agregadas al libro Excel, ya sea a través de código de VBA, de presionar el segundo botón del mouse y haciendo click en insertar hoja del menú contextual o presionando el símbolo + que se encuentre en la barra de herramientas donde se encuentran las pestañas con las hojas que componen el libro de Excel.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Mira una explicación detallada en el vídeo; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintas, buscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.

Para evitar que se inserten nuevas hojas en el Libro de Excel se debe agregar el código en el objeto ThisWorkbook en el evento Nueva Hoja, el código que no permite agregar nuevas hojas de Excel es el siguiente:

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Delete

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Quizá sea de utilidad también

Como crear una factura con excel, guardarla y enviarla por mail automáticamente

Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Como hacer un link o hiperlink a google maps con Excel

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

En el ejemplo se agrega un código que se utiliza para insertar una nueva hoja, a los fines de poder probar que no se puede insertar nuevas hojas de Excel por mas que se realice con código de VBA, el código para insertar hojas es el siguiente:

ActiveWorkbook.Sheets.Add AFTER:=Worksheets(Worksheets.Count)

El código simple y sencillo que evita que se puedan insertar nuevas hojas de Excel se muestra a continuación y en forma posterior el link de descarga del archivo de Ejemplo.

Código que se inserta en un módulo

Sub InsertaHoja()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Sheets.Add AFTER:=Worksheets(Worksheets.Count)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Código que se inserta en ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox «Acción inválida, no puedes insertar nuevas hojas», vbInformation, «AVISO»
Sheets(«URL MACROS»).Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends

Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveSheet.Delete

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Delete