Impedir que se cambie el nombre a una hoja

En un artículo anterior hablé de cómo podíamos proteger nuestra aplicación, para impedir que los usuarios le cambien el nombre al fichero. En realidad, se le puede cambiar el nombre, pero si se hace eso, no se podrá trabajar con el libro de excel, pues al abrirlo, nos mostrará un mensaje, y nos indicará cual es el nombre correcto que debe tener, para poder utilizarlo, y a continuación se cerrará automáticamente el libro.

En esta ocasión haremos algo similar, pero con las hojas de cálculo, o si lo preferís, las pestañas, y utilizando el sentido común. En realidad, lo que vamos a hacer es permitir momentáneamente que el usuario le cambie el nombre a las hojas (pestañas), pero en el momento de cerrar el fichero, todas las hojas volverán a tener el nombre que tenían inicialmente.

Veamos lo que podría hacer un usuario con las pestañas de un libro:

1.- Podría cambiar el nombre de alguna o de todas las pestañas, trabajar con el libro, y cerrarlo sin guardar los cambios.
2.- Podría cambiar el nombre de alguna o de todas las pestañas, trabajar con el libro, y cerrarlo guardando los cambios realizados.
3.- Podría dejar el nombre las pestañas tal y como están, trabajar con el libro, y cerrarlo sin guardar los cambios.
4.- Podría dejar el nombre las pestañas tal y como están, trabajar con el libro, y cerrarlo guardando los cambios realizados.

En el caso número 1, no hay problema, pues al no grabar los cambios, el fichero siempre mantendrá los nombres originales en sus hojas o pestañas. En el caso 3 y 4, sería exactamente lo mismo, pues al no cambiar los nombres de las pestañas, no tendríamos porqué preocuparnos de nada. Solo el caso 2, es el que querremos controlar, para que los usuarios no le pongan nombres distintos a las hojas, de los que tenían inicialmente.

Supongamos que tenemos un libro con 3 hojas, que se llaman CANTIDAD VENDIDA, PRECIOS UNITARIOS, e INGRESOS TOTALES, tal y como muestra la siguiente imagen:


Si un usuario le cambia el nombre de una de las pestañas, por ejemplo la primera, la que se llama CANTIDAD VENDIDA, y le pone por ejemplo el nombre de VENTAS, el usuario podrá trabajar con el libro, con todas sus hojas, y no tendremos el más mínimo problema (excepto si en nuestros macros referenciamos la selección de hojas, en función del nombre visible que tienen, cosa que veremos luego como se puede solucionar), pues en el momento de cerrar el libro, le cambiaremos el nombre, y le pondremos el que tenía inicialmente.

Para ello, nos bastará con copiar unas sencillas líneas de código, dentro de Thisworkbook, tal y como se aprecia en la siguiente imagen:


El código que tendremos que introducir es este:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Esto se ejecutará justo unos instantes antes de guardar el fichero If Hoja1.Name <> "CANTIDAD VENDIDA" Then Hoja1.Name = "CANTIDAD VENDIDA" If Hoja2.Name <> "PRECIOS UNITARIOS" Then Hoja2.Name = "PRECIOS UNITARIOS" If Hoja3.Name <> "INGRESOS TOTALES" Then Hoja3.Name = "INGRESOS TOTALES" End Sub

Ese código lo que hace es evaluar el nombre de las hojas, y si éstas tienen un nombre diferente al que deberían tener, entonces se lo cambia para ponerle el nombre que les corresponde.

Muchos de los usuarios que llegan a este blog, buscan precisamente esto, para impedir que los usuarios le cambien el nombre a las pestañas. Es probable que lo hagan porque en sus macros, cuando seleccionan una hoja de cálculo, lo hacen de la siguiente forma (imaginemos que el nombre de la hoja sea PRECIOS UNITARIOS):

'Seleccionamos la hoja de PRECIOS UNITARIOS Sheets("PRECIOS UNITARIOS").Select

Si alguien le cambia el nombre a la pestaña PRECIOS UNITARIOS, y ejecutamos un macro donde seleccionemos la hoja de PRECIOS UNITARIOS llamándola tal y como figura en esa línea de código, obtendremos este bonito mensaje de error, pues la hoja PRECIOS UNITARIOS no se puede seleccionar, ya que no existe, pues se le ha cambiado el nombre:


Lo más sencillo para solucionar esto, es trabajar siempre con el nombre interno de las hojas que podemos ver en modo VBA, justo delante del nombre que se ve cuando trabajamos en modo usuario (el nombre visible de la hoja, o de la pestaña). En la siguiente imagen podemos ver dentro del recuadro rojo, los nombres internos de las hojas, y a su derecha, entre paréntesis, el nombre visible de las mismas:


El nombre interno que acabamos de ver, también se puede cambiar, pero para ello deberemos acceder al modo VBA, y por supuesto deberá estar desprotegido nuestro código. Si protegemos el código VBA, no tendremos ningún problema, pues ese nombre no estará al alcance de los usuarios y por tanto, no lo podrán manipular.

Si deseamos seleccionar una hoja de cálculo desde un macro, os recomiendo siempre que trabajéis con el nombre interno. Fijaos que la forma de llamar a las hojas varía un poco, si lo hacemos llamándolas por su nombre interno o por su nombre visible. Si por ejemplo queremos seleccionar la hoja llamada PRECIOS UNITARIOS, nos bastará con hacerlo de la siguiente forma, y así nos evitaremos problemas con los macros si un usuario le cambia el nombre a la pestaña:

'Seleccionamos la hoja de PRECIOS UNITARIOS Hoja2.Select

Como veis, es algo bastante sencillo, y nos va a servir para solucionar algunos posibles errores dentro de nuestros macros.

Desde aquí podéis descargar el fichero de excel, con el ejemplo que os presento en este artículo.