Show several sheets in Excel based on the user entered in a VBA Userform @EXCELeINFO
Вставка
- Опубліковано 12 вер 2024
- ✅ Download the file | www.exceleinfo....
🏆 Subscribe | goo.gl/M5zNA8
In a previous tutorial we saw how to show an Excel sheet depending on the user and password entered. In the UA-cam comments I received a question that was repeated several times, and that question is How can we do to assign different sheets to show each user.
That is why I decided to modify the file to change the logic to the VBA macro and now be able to define which or which pages can be displayed by logged in user in our Microsoft Excel file.
Table of users, passwords and leaves
We have a table in Excel where we store the values of USER NAME, USER, PASSWORD, LEAVES. There is one column for each sheet in our Excel file. If we look at Figure 1, each column corresponding to each sheet has SI or No. specified. This means that we will indicate for each user, which pages will be visible when entering their login and password information.
More examples | www.exceleinfo.com
More examples | blogs.itpro.es/...
Facebook Page | / exceleinfo
Get notificacions on Telegram | t.me/EXCELeINFO
Twitter | @EXCELeINFO
Twitter | @SergioACamposH
Download EXCELeINFO addin:
addin.exceleinf...
Compa GRACIAS POR un día más de darnos nuevos conocimientos está muy padre tu trabajo.
Muchas gracias Sammy, por estar al pendiente.
¡Infinitas gracias!, muchas gracias por compartir tus conocimientos, gracias, muchas gracias. Saludos de El Salvador.
Saludos desde México.
Muchísimas gracias. Descargué el archivo y le hice algunas modificaciones y quedó genial aparte que guarda automáticamente los cambios, eres un capo estimado me sirvió mucho.
Hol Sergio super bueno tu macro, muchas gracias! te pudiera consultar: Este excel puede abrirse simultaneamente por varios usuario a la vez? y... Se puede usar sin problemas en Excel Drive?? Un gran abrazo
Excelente como siempre Sergio, te doy las gracias por todo lo que enseñas nos sirve de mucho en el entorno laboral
Gracias Javiera. Encantado de que apliquen todo lo que aquí les muestro.
Buen trabajo Sergio, estos aporte que usted nos hace enriquecen nuestra vida profesional y gracias por colocar todos tus conocimientos al servicio de los demás. Sera pedirle mucho que en este proyecto el usuario pueda cambiar la contraseña?.
Hola Maurio. Es una muy buena idea. Gracias por comentar.
Sergio, muchas gracias por compartir. Lo explicaste muy bien y me sirvió mucho.
Muchas gracias, en verdad soy un fiel seguidor y todos los videos me han servido para mejorar mi manejo excel, pero como todo avanza, quiero saber si esta macro se puede utilizar en una hoja de calculo de drive, espero que pueda contestarme esta pregunta o si es posible y mejor aún subir un video con el ejemplo. Felicidades por su canal y un saludo desde colombia
Eres un capo hermano saludos desde Perú, gracias por brindar tus conocimientos me sirvió de mucho.
Muy bueno, muchas gracias.
Impresionante idea para nuestros proyectos en excel.
Gracias Jorge. Más ideas para sus proyectos
Sergio eres el mejor!!! Crack de cracks, mil gracias esto me salvó la vida.
Excelente explicación, mil gracias Sergio. Como puedo descargar el archivo Excel.
excelente video,
Hola Sergio, debo decir que están increíblemente buenos tus tutoriales y muy bien explicados. Gracias por tu trabajo. En mi caso te quería consultar (o más bien solicitar) si en cambio de ingresar una contraseña, se puede mostrar las hojas dependiendo solamente de un ID, y además que las hojas que se muestren dependan de un segundo dato que seria el cargo que ocupa el ID, y finalmente que las hojas contengan los datos de identificación de ese ID, Nombre, Cargo, etc (Estoy pensando que las hojas sean exámenes distintos que deba rendir el usuario identificado)
Muchas gracias, eh mejorado bastante con tus videos, ya tienes mi like, saludos y sigue por favor
Me alegra saber que mis videos ayudan a ser más productivos.
@@SergioAlejandroCampos
Claro que si, Los videos de filtrado de listas, y este en especial, tome algunas ideas para trabajar en mejorar las bases de datos que uso.
En serio muchas gracias el codigo ha hido de mucho a menos, xk con menos codigo hago mas y veo que uso menos memoria del equipo, osea que es aun más rapidas la bases de datos, muchas gracias.
A ti.
Sergio buenas noches, excelente macro, quisiera pedirte una recomendación, necesito aplicar todo este proceso a un archivo excel, necesito iniciar de cero la programación de la macro, o puedo usar tu cadena de programación adecuando al libro de excel en el que la voy a aplicar ? agradeceré tus comentarios
Excelente explicación
Gracias. Excelente. Una pregunta, que hace cstr?
Hola Ricardo. Con la función cStr conviertes un número a texto.
Excelente me funciona, tengo una duda si tuviera una base de datos en una hoja de este archivo, pero necesito copiar esa base a otra hoja de otro archivo, como puedo logearme en vba para copiar es información a ese otro archivo, gracias por tu ayuda bendiciones
Sergio, buen día.
Te hago una consulta un poco mas compleja, el archivo esta excelente y funciona perfecto, pero existe alguna posibilidad de replicar esto en Google Docs? En realidad lo que necesito es que se pueda modificar paralelamente por los usuarios creados, pero sin que se generen conflictos al guardar, esto me sucede si por ejemplo utilizo File Stream o DorpBox como almacenamiento compartido.
Quizas se te ocurre otra opción. Desde ya muchas gracias por el aporte y la posible ayuda!
super interesante
Veo que escucha a su público
Ahora que veo su video se me ocurrio si esto se puede llevar a ser funcional en una empresa con varias pc, me explico....que se pueda usar este archivo como un programa entre varios usuarios de diferentes pc al mismo tiempo para agregar o quitar datos. Me imagino una tienda donde el stock interactua con lo que hay en el almacen o en una central de autobuses donde entrar varios datos entre diferentes usuarios mientras todos ingresan datos o los modifican al mismo tiempo o en un hospital donde el proceso de atención de un enfermo pasa por diferente personal y donde a su expediente electrónico, por decirlo así, se le agrega datos dependiendo del medico o enfermera o por medirle estudios etc, creo eso del hospital esta bueno y más que eso me pregunto si excel puede ser usado así......con muchos usuarios interactuando en una base de datos inicial para atender a los diferentes pacientes.
Sergio Buenas tardes, felicidades he ocupado tu proyecto y me ha funcionado de maravilla , hoy e uno de los libros donde ocupo esta macro me aparece un mensaje de que nos se encuentra en proyecto o la biblioteca sabes a qué se debe este tema ocupo 365 y solo es en uno de varios archivos donde está la misma macro crees que tenga alguna solución ?
Hola Sergio, esta muy padre tu explicación, pero como le hago para que puedan entrar al mismo tiempo las personas en un libro, que tienen asignadas sus hojas
Realice una prueba pero cuando estando una persona con su hoja asignada y entra otra se cambia las hoja de la primera persona por la de la segunda
Sergio, un millón de gracias!!!... tengo una pregunta, ¿Cómo puedo colocar botones ocultos (CommandButton) en la hoja "Principal" y que solo se muestren a los usuarios que tengan acceso a la hoja según se defina "SI" en la tabla de usuarios.... Quiero usar la hoja principal como pantalla de incio con botones a las paginas a los que los usuarios puedan visualizar.
Todo está muy bien, solo tengo una duda, si la persona tiene conocimiento básicos de VB, podrá acceder al codigo y por ende a la contraseña, hay alguna forma que no pueda acceder a la macro sin usuario y contraseña?
excelente no me estaba contando la variable i, gracias
Muy bueno como siempre Sergio, tengo una consulta como ocultar los botones o comandos de un userform el cual tienes como menú principal, según usuario que inicie sesión, no se si me explico, lo que sucede es que oculte el libro de excel y use un userform como menú principal donde tengo todas las opciones y quisiera saber como darle acceso o restricciones según usuario. no se si me puedes ayudar. gracias por el apoyo de ante mano.
Hola. En el siguiente vídeo tocaré un tema similar. Permanece atento.
Buenas noches profe, espero este muy bien.
tengo una duda es que requiero que al ingresar un usuario y contraseña este pueda ingresar a los ComboBox que yo le asigne y que dentro de los ComboBox esten las hojas que yo desee que se le muestren a ese usuario, pero las hojas deben de estar siempre ocultas, solo se muestre cuando el usuario la seleccione en el ComboBox.
Quedo atenta a sus comentarios
Muchas gracias
Hola Sergio, excelente video, me puedes ayudar con una macro para proteger columnas con fórmulas sin que se tenga que proteger la hoja, para que el usuario pueda grabar el archivo con otro nombre y copiar la información como valores. Mil gracias por tu ayuda
Sergio muy buen video, lo único es que deberías hacer un poco mas limpio el código. Gracias
Gracias Juan. Qué tips nos regalas para hacer más limpio el código? Y así todos aprendemos.
Muy bueno!
Disculpa Sergio me puede explicar esta respuesta:
Sergio Alejandro Campos - EXCELeINFO
Hace 1 día
Hola. Entra al editor de VBA y valida en la parte izquierda el nombre de la hoja. La hojas tienen un nombre para etiqueta, pero otro nombre de objeto.
Te sucede un problema similar?
Si @@SergioAlejandroCampos
Entra al editor de VBA usando Alt+F11 y en la parte izquierda verás las hojas que tiene tu archivo. Valida el nombre fuera del paréntesis que sea igual al que está dentro del paréntesis.
Me aparece Hoja11 y en patentesis Usuarios debo cambiar el nombre de hoja11 a usuarios o estoy procediendo mal @@SergioAlejandroCampos
En qué parte del código te marca error? Puedes dejarle cualquier nombre siempre y cuando lo mandes llamar en tu código.
Hola, me funciona perfecto cuando están aplicadas las macros, ahora sí se lo envío a otra persona y lo abre sin habilitar las macros, puede ver absolutamente todas las hojas, cómo puedo hacer para que cuando lo abra la otra persona sin importar que tenga habilitada o no las macros no pueda ver todas las hojas?
Hola sergio, como quedaría el comando para cuando ingrese la contraseña y le pique en validar no quede en la hoja principal sino en la de de trabajo habilitada para cada usuario???
Gracias por estos videos no te imaginas todo lo que nos ayudaaa
si le cambio las el nombre a las pestañas y modifico el usuario y contraseña funcionara?
Muy bueno, pero, al aplicar la macro tengo algunos inconvenientes: 1. Al correr la macro, el archivo parece abierto pero no se ve en pantalla, debo darle abrir de nuevo y ya se muestra; 2. luego de correrla, no me oculta las hojas para los demás usuarios, en cualquiera de ellos las hojas quedan abiertas; 3. en la linea " Call OcultarHojas ", me da error cuando retiro la comilla (´) de comentario. No se que estoy haciendo mal. Porque descargue tu archivo de ejemplo y allí no da ningún error. // Me gustaría poder contactarte y me ayudaras con el tema. ( pero debo mencionar que en general Esta guía esta muy buena) Gracias¡¡¡
uchas gracias , muy buen video y me sirvió de mucho , sin embargo pude ¨llamar los datos¨de las Hojas ocultas desde otro archivo de excel ejemplo //=+'[INFORME.xlsm]USARIO'!C2 // y pude " visualizar las claves de todos" incluso la de admin . Como puedo evitar que pueda llamar los datos de las hojas incluso ocultas??' Mil gracias
Estimado Alejandro. Hace una semana que le doy vueltas a la macro y a pesar que la reviso y vuelvo revisar no logro entender el motivo del error que me marca ya que esta hecho en forma identica a tu ejemplo salvo pequeñas diferencias. Es donde esta el FOR NEXT. Al final cuando quiero correrlamacro me aparece un mensaje Error de compilacion NEXT sin FOR
Podrias darme una pista?
Gracias desde ya
Francisco Karacic
Buenas Sergio,
Tengo una duda. Si tengo un excel con varias pestañas y quiero que la pestaña España se muestre solo a "X" persona y que esa persona vea oculta el resto de pestañas, lo mismo que si la pestaña pone "Francia", hacerlo visible a la persona del pais y que solo vea esa y el resto aparezcan como ocultas. Como se puede hacer? Gracias de antemano
Saludos
Buenas Sergio necesito tu ayuda. Por temas de trabajo necesito hacer un login de usuario con clave que se renueve cada vez que se usa y ademas que le llegue la nueva clave aleatoria al usuario por mail o de alguna forma pero por un tema de seguridad no puede quedar registro. La idea es que mi jefe es bastante desconfiado y como hace giros de dinero no quiere que quede registro para que nadie vea lo que mando. Se me ocurrio hacer un correo cifrado que solo el poniendo una clave pueda descifrar y que esto por seguridad una vez usado necesite nueva clave. Espero haberme explicado bien y lo que más espero es que si esta en voz me des una ayuda. Gracias
Hola! una pregunta, habrá alguna manera de ingresar pero solo con el nombre de usuario? es decir, sin usar alguna contraseña. Gracias
No puedo ver en el archivo la hoja con la tabla de usuarios asi viene ?
Hola Sergio buenas tardes! Gracias por tan Excelente Explicación y ayuda!. Te consulto, mi macro arroja "Subíndice fuera de intervalo" y me pide depurar esta parte Sheets(HojaVisible).Visible = True
No me permite seguir avanzando. Me puedes ayudar por favor!?
@homeGautana yo tengo el mismo problema, pudiste resolverlo?
Tengo una duda, hice mi macro tengo todo bloqueado desde el libro asta el proyecto echo ajuste para que me funcione bien, pero al insertar el modulo y el formulario del usuario al ejecutarlo me sale un error que es
"no se puede asignar la propiedad visible de la clase worksheet" Me podía decir a que se debe.. Nota mi macro inicia automáticamente desde que abro mi archivo y esconde la hoja de calculo.
@EXCELeINFO porfa mi consulta .. gracias soy un buen seguidor¡
Hola @sergio que le puedo agregar al código para cuando le de ingresar a un usuario se me muestre una de las hojas a las que tiene acceso para trabajar
Es con este ejemplo. Tú decides a qué hoja le das acceso al usuario. Puedes tener 10 hojas y 10 usuarios. Le permite a una hoja a cada uno.
Buenas noches. tengo un problema... cuando se ejecuta la macro de usuario y contraseña, están se me detiene en esta línea .
If MostrarHoja = "SI" Then Sheets(HojaVisible).Visible = True) y me arroja un error "1004" con el comentario "no se puede asignar la propiedad Visible a la clase WorkSheet. pero solo me sucede en el archivo que cree, por que descargue el que tienes en la página de ExceleInfo y no presentó problema alguno..... Version de Office Profesional plus 2019.
agradezco me puedas colaborar.
Excelente Sergio , una duda hice todo segun a lo que mire en tu video pero al poner el usuario y contraseña me dice error de compilacion no se ha definido la variable y me manda directo aqui señalando en amarillo USUARIOS, cabe mencionar que donde tengo los datos de usuarios le puse nombre a la hoja "USUARIOS"
'En caso de que el usuario exista, validamos su contraseña.
ElseIf UsuarioExistente = 1 Then
DatoEncontrado = Rango.Find(What:=Me.txtUsuario.Value, MatchCase:=False, LookAt:=xlWhole).Address
Contrasenia = CStr(USUARIOS.Range(DatoEncontrado).Offset(0, 1).Value)
Hola Lic. Adrián. Me puedes comentar por favor cómo tienes la línea donde le asignas valor a la variable Rango.
Sergio Alejandro Campos - EXCELeINFO muchas gracias ya quedó solucionado todo está a la perfección, logre detectar que el error era por el nombre que tenía asignado en VBA a la hoja Usuarios excelente aporte
Hola Sergio, muchas gracias por el vídeo. Quería comentarte que a nosotros nos sucede que, si el archivo está en Office 365 y por ejemplo, yo tengo acceso a todas las hojas del libro, y un compañero en ese momento tiene el libro abierto, automáticamente al yo poner mi password se le actualiza y puede ver las mismas hojas que yo aunque su usuario tenga hojas limitadas.
¿Cómo podríamos solucionarlo?
Un saludo!
yo tambien tuve ese mismo problema,. lo pudiste solucionar?
buen video, pero tengo un problema, al descargar el codigo de tu pagina, puedo trabajar bien, modifico todo, y lo guardo, al cerrar excel, desaparece completamente el archivo unque lo guarde en el video, y no se a que se debe, lo meti en carpeta, y hasta la carpeta desaparecio. podrias explicarme porque sucede? o como respolverlo? muchas gracias.
Hola bro, sabrás como compartir una macro en red y puedan editar varios usuarios a la vez
En este canal tengo un tutorial sobre compartir archivo en red.
Hola, excelente vídeo. Tengo un problema con la linea de código: Sheets(HojaVisible).Visible = True. Solo me muestra la primera hoja y después sale error '9'. Subíndice fuera del intervalo.
Gracias
Ese error indica que el nombre de hoja es inválido.
@@SergioAlejandroCampos Muchas gracias. Tenía 2 hojas con un espacio en blanco de más en el nombre.
Me alegra que lo hayas resuelto.
@@SergioAlejandroCampos @hisoka Buen día, a mi me marca el mismo error, pero al revisar las hojas todas están bien escritas
Hola pongo usuario y contraseña admin pero no me aparecen las hojas para editar los usuarios y que hojas pueden ver
Hola, tengo un problema con linea: Set FormActivo = UserForms(0) y después sale error '9'. Subíndice fuera del intervalo.
amigo quiero que se muestren las hojas de los usuarios, hice tal cual aparece en el video y no me aparecio
Hola, buen video, pro de donde saco la carpeta formulario la creo o como hago ahí :c estoy agobiado ayuda porfa :c
Necesito tu asesoría :3
Buen día Sergio podria ayudarme no me corre la macro me da el error 424 en tiempo de ejecucion se requiere un objeto y me marca este dato en la macro ** Contrasenia = CStr(Usuarios2.Range(DatoEncontrado).Offset(0, 1).Value)** me ayuda please
Estimado Sergio , existe algún programa que pueda ayudarme a poner una buena contraseña a un proyecto anti piratas , qué método usas para tus proyectos VBA?
Hola Adrián. Para mis proyectos uso el programa Unviewable plus.
Sergio Alejandro Campos - EXCELeINFO comprando la licencia de Ribbon por un año cuesta como 30 dlls con esa licencia se activará unviewable plus ?
No estoy seguro. Sé que aquí adquieres el software sites.fastspring.com/esotericconsulting/instant/unviewablevbalicenseoptions?source=esotericconsulting
- Muchas gracias Sergio por tomarte la molestia en atenderme !
Alguien podría ayudarme porfavor, al correr la marco señala txtusuario y dice que no encuentra el dato o método.
Gracias
alguien tiene el mismo problema que yo? que pueda ayudarme a corregirlo? se me borran las macros o este proyecto de mi maquina, no entiendo porque.
use el codigo completo y funciona, al guardar desaparece, y si descargo el archivo tambien desaparece. no se que hacer, si alguien pudiera apoyarme por favor.
Hola Sergio. Tengo un problema talvez puedas ayudarme:
Se me detiene con un error 424: Se requiere un objeto. Esto pasa en la parte donde va a validar la contraseña, el unico cambio que hice fue en el nombre de la hoja, la llame Usuarios pero de ahi todo igual.
Contrasenia = CStr(Usuarios.Range(DatoEncontrado).Offset(0, 1).Value)
El DatoEncontrado me muestra el numero de su celda , pero no que sucede
Hola. Entra al editor de VBA y valida en la parte izquierda el nombre de la hoja. La hojas tienen un nombre para etiqueta, pero otro nombre de objeto.
Gracias todo resuelto crack .!!
Hola como hago ..donde tengo que entrar para ver el panel...ese'''
Hola. Al IDE de VBa. Con Alt + F11
*SERGIO, PERO SI UN USUARIO UNA VEZ INGRESADO, EN SU HOJA HACE REFERENCIA A LA HOJA "USUARIOS" SE LE MOSTRARÁ TODOS DATOS EN DICHA HOJA INCLUYENDO TODOS LOS USUARIOS CON SU RESPECTIVA CONTRASEÑA* ¿NO SERÍA MEJOR PODER MANEJAR COMPLETAMENTE LOS USUARIOS Y CONTRASEÑAS DESDE EL PROPIO USERFORM Y NO DESDE UNA HOJA EXCEL?
Hola. Creo que es mejor ponerle un nombre a las hoja que no haga referencia a que guardamos usuarios, bloquear las macros para que no sepan las hojas que existen. Manejar los usuarios desde el mismo UserForm sería viable pocos usuarios.
Sergio Alejandro Campos - EXCELeINFO Gracias amigo por aclarar mis dudas 👍
Me sta dando error 424 en esta fila, Contrasenia = CStr(Usuarios.Range(DatoEncontrado).Offset(0, 1).Value) alguién me puede ayudar por favor.
Valida que el nombre de tu hoja sea Usuarios. Entra al editor de VBA y en la parte izquierda mira los nombres de los objetos.
@@SergioAlejandroCampos Tambien se me bloquea en este error, el nombre de mi hoja es Usuarios2
Solucionado, era el nombre del objeto. Muy bueno el proyecto gracias.
Hola buenos dias como haría que por usuario me bloquee celdas. Ej. usuario01 pueda editar hoja 1 celda A1- usuario02 NO pueda editarlo
He probado que todo este procedimiento de seguridad se puede evitar presionando SHIF al abrir el archivo ... como se podria evitar eso ? , muchas gracias.
Qué sucede exactamente cuando presionas Shift?
@@SergioAlejandroCampos muchas gracias por responder Sergio, si se corre la macro al abrir o iniciar el archivo excel normalmente me sale el userform el cual me solicita el usuario y contraseña, pero si al volver abrir el excel manteniendo presionando Shift evita que salga el userform y se tiene libre acceso al contenido del excel.
Buen trabajo amigo Sergio me pueda ayudar ya que en el archivo que estoy haciendo en la parte de VB :
ElseIf UsuarioExistente = 1 Then
DatoEncontrado = Rango.Find(What:=Me.TextUsuario.Value, MatchCase:=False, LookAt:=xlWhole).Address
Clave = CStr(Usuario.Range(DatoEncontrado).Offset(0, 1).Value
_________________________________________________
EN LA PARTE DE CStr(Usuario.Range(DatoEncontrado).Offset(0, 1).Value ME ARROJA EL ERROR DE COMPILACION: CALIFICADOR NO VALIDO DESPUÉS DE DARLE ACEPTAR ME APARECE SUBRAYADO Usuario. que esta entre CStr y .Range agradeceria su mayor colaboracion con responder esta pregunta ya que no puedo seguir desde hay .... gracias
holas q ta. yo tambie tengo el mismo problema,,me aparece datoencontrado vacio .........y nada que avanza,che .logrASTE RESOLVERLO ?
como se puede quitar el parpadeo de las hojas al iniciar?
hola buenas noches no puedo descargar el archivo, me dice que es invalido.
saludos
Hola! gracias! sin embargo.. no me permite ver la hoja "usuarios"
Me aparece un error en el FormDesing que puedo hacer
Excel-ente!
porque no me muestra la "hoja del usuario 2" ?
Como hago esto pero en google shets?
Buen día una duda me sale un error en la parte de mostrar las hojas si en Next me dice que hay un Error de complicación: Next sin For no se si me podrías asesorar Gracias Saludos
Recuerda que debemos respetar la sintaxis:
For Each Objeto in Colección
Next Objeto
Me aparece en UserForm donde dice
Private Sub Userform_Initialize
El error en esta parte - - FormDesing.FormDesing
Call OcultarHojas
End Sub
solucionaste el problema?
Hacer un botón dónde el usuario pueda cambiar su contraseña.
se ha producido un error 9 en tiempo de ejecucion
Buen video cuando les pongo nombre a las hojas me bota error u.u
yo lo cambié donde están el nombre de las hojas y en la hoja misma que quiero mostrar y si me resultó
Algún turioal donde lo hagas desde 0?