HOLA COMO HAGO YO YA TENGO UNA MACROS DE REGISTRO DE BASE DE DATOS EL REGISTRO SERIA UNA HOJA Y LA OTRA SERIA LA BASE DE DATOS COMO HAGO PARA OCULTAR LA HOJA DE BASE DE DATOS O TENGA UNA CONTRASEÑA SIN PERJUDICAR EL MACROS
Amigo Julio, felicitaciones excelente video, Ahora como hacer para proteger un archico de excel para que se ejecute solamente en un equipo permitido y no pueda ser copiado ? Saludos..!!
Excelente profe!! ¿Profe se puede hacer tambien en vez de una hoja con un archivo o carpeta??
4 роки тому
Tengo un pequeño emprendimiento y quiero hacer un formato en Excel para una caja registradora, poder llevar las ventas diarias, registrar clientes, que me haga toda la matematica
Quisiera hacer eso pero sin que deje ver lo que hay en esa hoja. Podría haber información confidencial, pero al dar clic en la hoja, se muestra la información. Cómo hacer para que cuando quiera ingresar a la hoja, no le deje ver absolutamente nada, solo hasta ingresar la contraseña?
Mira no se si este ejemplo te pueda servir si pones esta macro en un boton CLAVE_ENT = InputBox("CLAVE PARA ACCESAR A ESTA OPCION") If CLAVE_ENT = "1234*" Then Sheets("AUXBANCOS").Select Range("C4").Select ActiveWorkbook.RefreshAll Else MsgBox ("CLAVE INCORRECTA") Sheets("MENU").Select Range("C3").Select End If
Buen día. Te sugiero utilices la siguiente macro. REEMPLAZA la macro que se muestra en video y en su lugar pon los siguiente: Private Sub Worksheet_Activate() Dim contraseña As String, pregunta As String Me.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200. contraseña = "123" pregunta = InputBox("Si estas autorizado, ingresa la contraseña.", _ "ACCESO ADMINISTRADOR", "AQUÍ LA CONTRASEÑA") If pregunta contraseña Then MsgBox "No estas autorizado", vbOKOnly, "Excelaprende.com" Hoja1.Select Exit Sub ElseIf pregunta = contraseña Then Me.Rows("1:200").Hidden = 0 'Muestra las filas 1 hasta la 200. MsgBox "Bienvenido", vbOKOnly, "Excelaprende.com" Exit Sub End If End Sub '-------------------------------------------------------------------------------------------------------------- Private Sub Worksheet_Deactivate() Me.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200. End Sub '-------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------- '>>> El siguiente código debe pegarse en la hoja ThisWorkbook: Private Sub Workbook_Open() Hoja1.Select Hoja2.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200. End Sub
Sencillo y muy útil Julio, gracias desde Suiza! 👍☺️
Un gran vídeo. Muchas gracias Julio!
Excelente video Julio, saludos desde México.
Me gusto amigo todos tus vidios me dejan mucho aprendizaje sal2 y manito arriba
Julio muy chévere!!!
Excelente de gran ayuda
Ingenioso. Gracias por compartir.
HOLA COMO HAGO YO YA TENGO UNA MACROS DE REGISTRO DE BASE DE DATOS EL REGISTRO SERIA UNA HOJA Y LA OTRA SERIA LA BASE DE DATOS COMO HAGO PARA OCULTAR LA HOJA DE BASE DE DATOS O TENGA UNA CONTRASEÑA SIN PERJUDICAR EL MACROS
Amigo Julio, felicitaciones excelente video, Ahora como hacer para proteger un archico de excel para que se ejecute solamente en un equipo permitido y no pueda ser copiado ?
Saludos..!!
Excelente profe!!
¿Profe se puede hacer tambien en vez de una hoja con un archivo o carpeta??
Tengo un pequeño emprendimiento y quiero hacer un formato en Excel para una caja registradora, poder llevar las ventas diarias, registrar clientes, que me haga toda la matematica
Julio a qué teléfono te puedo llamar para que me hagas una macro que necesito?, gracias
Cuando la hoja se cambie de formato la contraseña deja de ser útil?
Quisiera hacer eso pero sin que deje ver lo que hay en esa hoja. Podría haber información confidencial, pero al dar clic en la hoja, se muestra la información. Cómo hacer para que cuando quiera ingresar a la hoja, no le deje ver absolutamente nada, solo hasta ingresar la contraseña?
Mira no se si este ejemplo te pueda servir si pones esta macro en un boton
CLAVE_ENT = InputBox("CLAVE PARA ACCESAR A ESTA OPCION")
If CLAVE_ENT = "1234*" Then
Sheets("AUXBANCOS").Select
Range("C4").Select
ActiveWorkbook.RefreshAll
Else
MsgBox ("CLAVE INCORRECTA")
Sheets("MENU").Select
Range("C3").Select
End If
Buen día. Te sugiero utilices la siguiente macro. REEMPLAZA la macro que se muestra en video y en su lugar pon los siguiente:
Private Sub Worksheet_Activate()
Dim contraseña As String, pregunta As String
Me.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200.
contraseña = "123"
pregunta = InputBox("Si estas autorizado, ingresa la contraseña.", _
"ACCESO ADMINISTRADOR", "AQUÍ LA CONTRASEÑA")
If pregunta contraseña Then
MsgBox "No estas autorizado", vbOKOnly, "Excelaprende.com"
Hoja1.Select
Exit Sub
ElseIf pregunta = contraseña Then
Me.Rows("1:200").Hidden = 0 'Muestra las filas 1 hasta la 200.
MsgBox "Bienvenido", vbOKOnly, "Excelaprende.com"
Exit Sub
End If
End Sub
'--------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Deactivate()
Me.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200.
End Sub
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
'>>> El siguiente código debe pegarse en la hoja ThisWorkbook:
Private Sub Workbook_Open()
Hoja1.Select
Hoja2.Rows("1:200").Hidden = 1 'Oculta las filas 1 hasta la 200.
End Sub