🔑 Cómo Ocultar y Mostrar Filas con Macros en Excel + Clave de Seguridad

[@jolian7743]

Estimados les comparto los códigos. Sub Enero() ' ' Enero Macro ' Dim clave As String clave = InputBox("Ingrese la clave para ejecutar la macro Enero:", "Verificación de Clave") ' Aquí puedes poner la clave que desees. ¡Cámbiala por una segura! If clave = "1234" Then ' Reemplaza "1234" con tu clave real Sheets("Info").Select Rows("2:18").Select Selection.EntireRow.Hidden = False ActiveWindow.SmallScroll Down:=12 Rows("20:34").Select Selection.EntireRow.Hidden = True ActiveWindow.SmallScroll Down:=-24 Else MsgBox "Clave incorrecta. La macro no se ejecutará.", vbExclamation, "Error de Clave" End If End Sub Sub Febrero() ' ' Febrero Macro ' Dim clave As String clave = InputBox("Ingrese la clave para ejecutar la macro Febrero:", "Verificación de Clave") ' Aquí puedes poner la clave que desees. ¡Cámbiala por una segura! Puede ser la misma o una diferente. If clave = "5678" Then ' Reemplaza "5678" con tu clave real Sheets("Info").Select Rows("2:18").Select Selection.EntireRow.Hidden = True Rows("19:35").Select Selection.EntireRow.Hidden = False ActiveWindow.SmallScroll Down:=6 Else MsgBox "Clave incorrecta. La macro no se ejecutará.", vbExclamation, "Error de Clave" End If End Sub