Blog

Cuando trabajamos con cuadernos de mando complejos, presupuestos anuales o modelos financieros que contienen decenas de pestañas, garantizar la seguridad de la información es prioritario. Si compartimos el archivo con otros departamentos o clientes, es crucial bloquear las celdas con fórmulas para evitar que alguien altere la lógica de cálculo por accidente.

Sin embargo, Excel tiene una limitación molesta: no permite proteger múltiples hojas a la vez de forma nativa. Si seleccionas varias pestañas agrupándolas con la tecla Ctrl, comprobarás que en la cinta de opciones la función de Proteger hoja se deshabilita por completo.

Ir hoja por hoja activando la protección manual puede llevarte mucho tiempo y generar errores si te olvidas de alguna pestaña. En esta guía te proporcionamos las macros definitivas en VBA para proteger y desproteger todas las hojas de tu libro en un solo clic, incluyendo opciones avanzadas con contraseña interactiva.

1. Macro básica para proteger todas las hojas automáticamente

Para automatizar este proceso, utilizaremos un bucle en Visual Basic que recorrerá cada una de las pestañas activas en el libro y les aplicará la clave de seguridad definida.

Paso 1: Inserción del código en el editor VBE

1. Abre tu libro de trabajo y presiona la combinación de teclas Alt + F11 para abrir el editor de Visual Basic.
2. En el menú superior, haz clic en Insertar > Módulo.
3. Copia y pega el siguiente código en la pantalla blanca central:

VBA

Sub ProtegerTodasLasHojas()
    'Macro para proteger todas las hojas de un libro automáticamente
    Dim wksht As Worksheet
    
    'Recorremos cada hoja del libro activo
    For Each wksht In ActiveWorkbook.Worksheets
        'Aplicamos la protección con contraseña
        wksht.Protect Password:="contraseña"
    Next wksht
    
    MsgBox "¡Todas las hojas han sido protegidas correctamente!", vbInformation, "Éxito"
End Sub

(Nota: En este ejemplo hemos definido la clave "contraseña". Puedes cambiar el texto entre comillas por la clave secreta que tú elijas).

Paso 2: Guardado del archivo

Al contener código de programación, recuerda que debes hacer clic en Guardar como y seleccionar el tipo de documento Libro de Excel habilitado para macros (*.xlsm) para no perder tus rutinas al cerrar el programa.

2. Macro para desproteger todas las hojas de golpe

Si necesitas hacer modificaciones masivas en tus plantillas o actualizar formulas en varias pestañas, desprotegerlas una a una desde el menú Revisar > Desproteger hoja e introducir la clave en cada pestaña resulta aburrido y poco eficiente.

Para revertir el proceso al instante, añade esta segunda macro a tu Módulo de VBA:

VBA

Sub DesprotegerTodasLasHojas()
    'Macro para desproteger todas las hojas del libro activo
    Dim wksht As Worksheet
    
    On Error Resume Next 'Evita que el programa se detenga si la clave es incorrecta
    
    For Each wksht In ActiveWorkbook.Worksheets
        'Retiramos la protección usando la clave configurada
        wksht.Unprotect Password:="contraseña"
    Next wksht
    
    MsgBox "¡Todas las hojas han sido desprotegidas!", vbInformation, "Proceso Completado"
End Sub

3. Versión Avanzada e Interactiva: Petición de contraseña mediante InputBox

Tener la contraseña escrita a fuego dentro del código del módulo (Password:="contraseña") tiene un inconveniente: si un usuario con conocimientos básicos presiona Alt + F11, podrá ver la clave escrita en texto plano dentro de la macro.

Para solucionar esto y aportar un salto de calidad profesional a tus herramientas de trabajo, podemos hacer que la macro despliegue un cuadro emergente pidiéndote la contraseña en tiempo real antes de ejecutar la acción:

VBA

Sub ProtegerHojasInteractivas()
    Dim wksht As Worksheet
    Dim MiClave As String
    
    'Solicitamos la clave al usuario mediante una ventana emergente
    MiClave = InputBox("Introduce la contraseña para proteger todas las hojas:", "Seguridad de la Hoja")
    
    'Si el usuario cancela o deja el cuadro vacío, cancelamos la operación
    If MiClave = "" Then Exit Sub
    
    For Each wksht In ActiveWorkbook.Worksheets
        wksht.Protect Password:=MiClave
    Next wksht
    
    MsgBox "Protección aplicada con éxito en todo el libro.", vbInformation, "Atención"
End Sub

Con este método, la clave nunca queda guardada de forma rígida dentro del código, ofreciendo flexibilidad absoluta para que cambies de contraseña cuando lo necesites sin modificar el script de programación.

Cómo ejecutar las macros en tu día a día

Una vez creadas las rutinas dentro del módulo, ponerlas en marcha es facilísimo:

1. Presiona la combinación de teclas Alt + F8 (o dirígete a la pestaña Programador/Desarrollador > Macros).
2. Selecciona la rutina que deseas activar (por ejemplo, ProtegerTodasLasHojas o DesprotegerTodasLasHojas).
3. Haz clic en el botón Ejecutar.

Visualmente la pantalla no parpadeará, pero al intentar hacer doble clic sobre cualquier celda para editar su contenido, Excel bloqueará la acción y desplegará el aviso oficial indicando que la hoja se encuentra protegida contra escritura.

Consideraciones técnicas y errores habituales

Para garantizar que la macro se ejecute sin contratiempos en tus modelos financieros, ten en cuenta las siguientes recomendaciones de auditoría:

• Hojas muy ocultas (VeryHidden): Las macros basadas en el bucle For Each wksht In ActiveWorkbook.Worksheets protegerán y desprotegerán todas las pestañas sin importar su nivel de visibilidad, garantizando que no queden datos expuestos en segundo plano.
• Proteger la estructura global del libro: Recuerda que la propiedad wksht.Protect bloquea el contenido de las celdas dentro de la hoja, pero no impide que un usuario haga clic derecho sobre la pestaña inferior y la elimine o cambie su nombre. Para blindar los nombres y el orden de las pestañas, combina esta solución con el menú Revisar > Proteger libro (Estructura y ventanas).
• Gestión de claves olvidadas: Asegúrate de guardar la contraseña en un gestor seguro de credenciales. Si proteges un libro entero con una clave compleja mediante VBA y se te olvida, las funciones de recuperación nativas de Excel son limitadas.

Cuando trabajamos con grandes volúmenes de datos en Microsoft Excel, a menudo necesitamos realizar ajustes masivos en las cifras: incrementar precios por inflación, aplicar bonificaciones de puntos a una lista o corregir desvíos en un presupuesto.

Hacer esto celda por celda o crear columnas auxiliares con fórmulas para luego hacer un «copiado y pegado de valores» puede quitarnos mucho tiempo. Afortunadamente, existe una solución mucho más elegante y automatizada: crear una macro en VBA que sume o reste una cantidad fija directamente sobre el rango de celdas que selecciones.

En esta guía te mostramos el código paso a paso, cómo instalarlo en tu libro de Excel y cómo ejecutarlo en segundos.

¿Cómo funciona esta Macro?

El flujo de trabajo es sumamente sencillo e intuitivo:

1. Seleccionas con el ratón las celdas numéricas que deseas modificar (pueden ser celdas continuas o salteadas).
2. Ejecutas la macro.
3. Se abrirá una ventana emergente (InputBox) solicitándote la cantidad a operar.
   • Si escribes un número positivo (ejemplo: 200), sumará ese importe a cada celda.
   • Si escribes un número negativo (ejemplo: -50), restará esa cantidad.
4. La macro recorre automáticamente tu selección y actualiza los valores al instante, respetando aquellas celdas que contengan texto para no romper la tabla.

Paso 1: Código VBA de la Macro (Optimizado)

A continuación te presentamos el código listo para copiar y pegar. Incluye controles de seguridad para que, en caso de presionar «Cancelar» o escribir texto por error en la ventana emergente, el programa no devuelva un error de código.

VBA

Sub SumarRestarImportes()
    ' ====================================================================
    ' Macro para sumar o restar un importe a las celdas seleccionadas
    ' ====================================================================
    Dim rng As Range
    Dim valorEntrada As String
    Dim numeroOperar As Double
    
    ' Solicitamos al usuario el número a sumar o restar mediante un InputBox
    valorEntrada = InputBox("Introduce el número que deseas SUMAR (ej: 200) o RESTAR (ej: -50):", "Valor a operar")
    
    ' Verificamos si el usuario presionó Cancelar o dejó el cuadro vacío
    If valorEntrada = "" Then Exit Sub
    
    ' Validamos que el valor introducido sea un número real
    If IsNumeric(valorEntrada) Then
        numeroOperar = CDbl(valorEntrada)
        
        ' Desactivamos el refresco de pantalla para mayor velocidad de ejecución
        Application.ScreenUpdating = False
        
        ' Recorremos cada celda dentro de la selección realizada
        For Each rng In Selection
            ' Verificamos que la celda contenga un valor numérico y no esté vacía
            If WorksheetFunction.IsNumber(rng) And Not IsEmpty(rng) Then
                rng.Value = rng.Value + numeroOperar
            End If
        Next rng
        
        Application.ScreenUpdating = True
        MsgBox "¡Proceso completado con éxito!", vbInformation, "Operación Finalizada"
    Else
        MsgBox "Por favor, introduce un número válido.", vbExclamation, "Error de entrada"
    End If
End Sub

Paso 2: Cómo instalar la Macro en Excel

Si es la primera vez que trabajas con código VBA, sigue estos sencillos pasos para guardar la macro en tu archivo:

1. Abre tu libro de trabajo en Excel.
2. Presiona la combinación de teclas Alt + F11 para abrir el editor de Visual Basic for Applications (VBE).
3. En el menú superior del editor, dirígete a Insertar > Módulo.
4. En la ventana en blanco que aparecerá a la derecha, pega el código que te facilitamos en el paso anterior.
5. Cierra la ventana del editor de VBA (puedes pulsar la X arriba a la derecha).

⚠️ Muy importante: Para no perder la macro al cerrar el documento, debes guardar el archivo con la extensión adecuada. Ve a Archivo > Guardar como y en el desplegable de Tipo, elige Libro de Excel habilitado para macros (*.xlsm).

Paso 3: Cómo ejecutar la Macro paso a paso

Una vez instalada, utilizarla en tu día a día requiere apenas tres clics:

1. Selecciona las celdas: Con el ratón, sombreadas las celdas numéricas a las que quieras aplicar el incremento o decremento.
   • Tip pro: Puedes seleccionar celdas salteadas o discontinuas manteniendo presionada la tecla Ctrl mientras haces clic en ellas.
2. Abre el menú de Macros: Presiona el atajo de teclado Alt + F8 (o ve a la pestaña Programador / Desarrollador y haz clic en Macros).
3. Ejecuta: Haz doble clic sobre SumarRestarImportes (o selecciónala y pulsa el botón Ejecutar).
4. Introduce el valor: En la casilla emergente escribe el número deseado (por ejemplo, 200 para sumar o -200 para restar) y pulsa Aceptar.

De inmediato verás cómo todos los valores de tu selección se recalculan automáticamente sin alterar los nombres, textos ni la estructura de tu tabla.

Alternativa rápida sin usar Macros: El Pegado Especial

Si te encuentras en un ordenador donde las macros están bloqueadas por políticas de seguridad corporativas, puedes lograr este mismo efecto utilizando la función nativa de Pegado Especial:

1. Escribe el número que quieres sumar o restar en una celda vacía cualquiera y cópialo (Ctrl + C).
2. Selecciona el rango de celdas objetivo.
3. Haz clic derecho sobre la selección y elige Pegado especial > Pegado especial…
4. En la sección Operación, marca la casilla Sumar (o Restar).
5. Pulsa Aceptar y borra la celda auxiliar inicial.