Privilegios y restricciones

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Privilegios y restricciones

Notapor FernandaExcel » 04 Jun 2018 17:52

Hola a todos, estoy con unas dudas al crear privilegios y restricciones de mi archivo, donde algunos usuarios pueden ver las hojas del libro, y otros no, y también activar el commandbutton, pero no se bien como hacerlo, estoy atorada con esto.

Y tengo dos dudas mas, que iré poniendo poco a poco... :oops: :oops: :oops:

Gracias otra vez
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor Antoni » 05 Jun 2018 15:39

Te dejo un ejemplo de una aplicación con control de acceso a hojas y formularios en función del usuario.

Entra como Usuario=SYSTEM, Contraseña=SYSTEM para ver la hojas que controlan el acceso y el menú

.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5710
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Privilegios y restricciones

Notapor FernandaExcel » 05 Jun 2018 16:59

Hola Antoni, desafortunadamente no puedo abrir el archivo, porque mi versión de excel no se puede configurar la propiedad Rowsource, y se ve que es lo que quiero :cry: :cry: :cry:
No se que hacer

Fernanda
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor FernandaExcel » 05 Jun 2018 17:32

Antoni escribió:Te dejo un ejemplo de una aplicación con control de acceso a hojas y formularios en función del usuario.

Entra como Usuario=SYSTEM, Contraseña=SYSTEM para ver la hojas que controlan el acceso y el menú

.

Hola otra vez Antoni, le quite al código del formulario login xusuario rowsource y pude entrar con tus claves, pero en el primer textbox donde se pone el usuario aparece Hojas!A2:A6, no se si es porque quite Rowsource.

Esta super tu archivo! :lol: :lol:

Voy a aplicarlo a mi ejemplo y te cuento como me va.

Gracias por tanta ayuda :P

Fernanda
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor FernandaExcel » 07 Jun 2018 03:48

FernandaExcel escribió:Hola Antoni, desafortunadamente no puedo abrir el archivo, porque mi versión de excel no se puede configurar la propiedad Rowsource, y se ve que es lo que quiero :cry: :cry: :cry:
No se que hacer

Fernanda

Hola de nuevo Antoni, ya apliqué desde ayer tus códigos a mi archivo, pero no encontré la manera desde ayer y hoy, de cambiar lo que me pone en la celda de usuario por quitar Rowsource, te digo que fue lo que cambié:

xUsuario.RowSource = "Hojas!A2:A" & Sheets("Hojas").Range("A" & Rows.Count).End(xlUp).Row

a

xUsuario= "Hojas!A2:A" & Sheets("Hojas").Range("A" & Rows.Count).End(xlUp).Row

Después de eso me funciona bien el código, pero aparece esto en el textbox de usuario:

Hojas!A2:A4

Cada vez que entro aparece eso y tengo que borrarlo.

Y otra duda es que después de aceptar el usuario y la contraseña, hice que me abriera directo un formulario, hasta ahí todo bien. Este formulario lo que hace es que me pasa los datos registrados a una hoja cada vez que mando imprimir.

Mi segunda duda, que es acerca de todo esto del usuario, es...

Cuando no existía el usuario y mandaba a imprimir me pasaba los datos... se puede decir en tiempo real cada vez que mandaba a imprimir, pero ahora que hice que me abriera directo el formulario después de aceptar el usuario, no me pasa los datos hasta cerrar el formulario, no se a que se deba.

Ayuda por favor, ya cambie varias veces que me acepte pasar datos en tiempo real y no puedo, y no puedo quitar los rangos que me esta poniendo.

Gracias por tu tiempo

Fernanda
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor Antoni » 07 Jun 2018 05:19

Vamos por partes, sube tu archivo, primero solucionaremos el tema del combo Usuario y luego ya veremos.
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5710
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Privilegios y restricciones

Notapor FernandaExcel » 07 Jun 2018 05:48

Antoni escribió:Vamos por partes, sube tu archivo, primero solucionaremos el tema del combo Usuario y luego ya veremos.

Subo el mismo que me diste, con las modificaciones, en un rato mas subo el ejemplo del formulario, ya es muy tarde acá, (3:40 am) y no me va a dar tiempo de modificarlo.

Gracias Antoni :wink:
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor VBA » 07 Jun 2018 10:28

Buenos días a ustedes.

Por ahora podrías ir viendo:
Código: Seleccionar todo
xUsuario= Sheets("Hojas").Range("A2:A" & Sheets("Hojas").Range("A" & Rows.Count).End(xlUp).Row)
Avatar de Usuario
VBA
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 29
Registrado: 15 May 2018 19:08

Re: Privilegios y restricciones

Notapor FernandaExcel » 07 Jun 2018 11:06

VBA escribió:Buenos días a ustedes.

Por ahora podrías ir viendo:
Código: Seleccionar todo
xUsuario= Sheets("Hojas").Range("A2:A" & Sheets("Hojas").Range("A" & Rows.Count).End(xlUp).Row)

Hola VBA gracias por ayudarme también :wink: cambié lo que pusiste y me dice que no se puede configurar la propiedad Value :?
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor FernandaExcel » 07 Jun 2018 12:09

Subo el archivo con las dos dudas :cry:
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor VBA » 07 Jun 2018 15:26

A mi me funciona así:

Código: Seleccionar todo
xUsuario.RowSource = Sheets("DATOS").Range("A2:A" & Sheets("DATOS").Range("A" & Rows.Count).End(xlUp).Row).Address


Pruebe cambiando:
Código: Seleccionar todo
Sub Macro1()
Login.Show
End Sub

Y
Código: Seleccionar todo
Private Sub UserForm_Initialize()
Aviso = "Introduzca usuario y contrase–a"

For Each hoja In Sheets
   If Not hoja.Name = "DATOS" Then hoja.Visible = xlSheetVeryHidden
Next

Dim i
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    xUsuario.AddItem (Cells(i, 2))
Next
End Sub


Con esto puede ir adelantando en algo¿?
Avatar de Usuario
VBA
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 29
Registrado: 15 May 2018 19:08

Re: Privilegios y restricciones

Notapor FernandaExcel » 07 Jun 2018 16:34

VBA escribió:A mi me funciona así:

Código: Seleccionar todo
xUsuario.RowSource = Sheets("DATOS").Range("A2:A" & Sheets("DATOS").Range("A" & Rows.Count).End(xlUp).Row).Address


Pruebe cambiando:
Código: Seleccionar todo
Sub Macro1()
Login.Show
End Sub

Y
Código: Seleccionar todo
Private Sub UserForm_Initialize()
Aviso = "Introduzca usuario y contrase–a"

For Each hoja In Sheets
   If Not hoja.Name = "DATOS" Then hoja.Visible = xlSheetVeryHidden
Next

Dim i
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    xUsuario.AddItem (Cells(i, 2))
Next
End Sub


Con esto puede ir adelantando en algo¿?



En un rato lo pruebo, pero a mi no me reconoce rowsource, gracias

Les cuento como me va, sigo en contacto
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor VBA » 07 Jun 2018 19:07

FernandaExcel escribió:pero a mi no me reconoce rowsource


Por este motivo podrias cargar el ComboBox de esta forma:
Código: Seleccionar todo
With Hoja1
Dim i
    For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
        xUsuario.AddItem (.Cells(i, 2))
    Next
End With


Funcionaria¿?
Avatar de Usuario
VBA
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 29
Registrado: 15 May 2018 19:08

Re: Privilegios y restricciones

Notapor FernandaExcel » 08 Jun 2018 00:47

FernandaExcel escribió:
VBA escribió:A mi me funciona así:

Código: Seleccionar todo
xUsuario.RowSource = Sheets("DATOS").Range("A2:A" & Sheets("DATOS").Range("A" & Rows.Count).End(xlUp).Row).Address


Pruebe cambiando:
Código: Seleccionar todo
Sub Macro1()
Login.Show
End Sub

Y
Código: Seleccionar todo
Private Sub UserForm_Initialize()
Aviso = "Introduzca usuario y contrase–a"

For Each hoja In Sheets
   If Not hoja.Name = "DATOS" Then hoja.Visible = xlSheetVeryHidden
Next

Gracias! ya me quito lo del usuario! Ahora no se porque lo otro se actualiza solo si cierro  :lol:

Dim i
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    xUsuario.AddItem (Cells(i, 2))
Next
End Sub


Con esto puede ir adelantando en algo¿?



En un rato lo pruebo, pero a mi no me reconoce rowsource, gracias

Les cuento como me va, sigo en contacto
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Notapor FernandaExcel » 08 Jun 2018 01:03

VBA escribió:
FernandaExcel escribió:pero a mi no me reconoce rowsource


Por este motivo podrias cargar el ComboBox de esta forma:
Código: Seleccionar todo
With Hoja1
Dim i
    For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
        xUsuario.AddItem (.Cells(i, 2))
    Next
End With


Funcionaria¿?

Ya me quito lo del usuario, muchas gracias. Ahora no se porque no se actualizan los datos hasta que cierro. :lol:
FernandaExcel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 180
Registrado: 23 Feb 2018 06:14

Siguiente

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados