@datacreativastudio: Respuesta a @faxJh 💙 te dejo el tutorial y aquí la macro 🙌🏼 puedes encontrar esta y otros elementos para Dashboard en mi Toolkit para Dashboards en EXCEL😊 Estas macros pegalas en un nuevo Módulo 👇🏼 Sub Ocultar() Dim hoja As Worksheet Dim hojaActiva As String ' Guardamos el nombre de la hoja que queremos mantener visible ' (Excel obliga a que siempre haya al menos una hoja visible) hojaActiva = ActiveSheet.Name ' Recorremos todas las hojas del libro For Each hoja In ThisWorkbook.Worksheets If hoja.Name <> hojaActiva Then hoja.Visible = xlSheetVeryHidden End If Next hoja MsgBox "Se ha cerrado la sesión" End Sub Sub Mostrar() Dim hoja As Worksheet Dim usuario As String Dim password As String Dim loginValido As Boolean Dim hojaLogin As String ' Guardamos el nombre de la hoja actual (donde están las celdas k22 y k27) hojaLogin = ActiveSheet.Name Application.ScreenUpdating = False usuario = Range("K22").Value password = Range("K27").Value loginValido = False If (usuario = "admin" And password = "123") Or _ (usuario = "juan" And password = "abc") Or _ (usuario = "maria" And password = "456") Or _ (usuario = "pedro" And password = "789") Or _ (usuario = "lucia" And password = "xyz") Then loginValido = True End If If loginValido Then ' Hacemos todas las hojas visibles For Each hoja In ThisWorkbook.Worksheets hoja.Visible = xlSheetVisible Next hoja ' Forzamos el regreso a la hoja de login Sheets(hojaLogin).Select MsgBox "Ha iniciado sesión correctamente.", vbInformation, "Seguridad" Range("K22, K27").ClearContents Else MsgBox "Usuario o contraseña incorrectos.", vbCritical, "Error de Acceso" End If End Sub 👇🏼Está macro pégala en Thisworkbook: Private Sub Workbook_Open() Dim hoja As Worksheet Dim hojaLogin As String ' CONFIGURACIÓN: Ajusta el nombre exacto de tu hoja hojaLogin = "Inicio" On Error Resume Next ' Evita que la macro se detenga si hay un error menor Application.ScreenUpdating = False ' 1. Hacer visible la hoja de Inicio primero (obligatorio antes de ocultar el resto) Sheets(hojaLogin).Visible = xlSheetVisible Sheets(hojaLogin).Select ' 2. Ocultar todas las demás de forma "Very Hidden" For Each hoja In ThisWorkbook.Worksheets If hoja.Name <> hojaLogin Then hoja.Visible = xlSheetVeryHidden End If Next hoja ' 3. Limpiar celdas (Asegúrate de que sean estas celdas) Range("K22, K27").ClearContents Application.ScreenUpdating = True On Error GoTo 0 MsgBox "Sesión cerrada automáticamente por seguridad.", vbInformation, "Bienvenido" End Sub #Excel #Dashboards #fypシ゚viral🖤tiktok

Dash By Nadia

Open In TikTok:

Region: CO

Saturday 11 April 2026 19:06:21 GMT