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!
FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Privilegios y restricciones

Mensaje por 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 tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 5956
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Privilegios y restricciones

Mensaje por 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 tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 5956
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Privilegios y restricciones

Mensaje por Antoni » 07 Jun 2018 05:19

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



FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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 tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



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

Re: Privilegios y restricciones

Mensaje por 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)



FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por FernandaExcel » 07 Jun 2018 12:09

Subo el archivo con las dos dudas :cry:
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



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

Re: Privilegios y restricciones

Mensaje por 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¿?



FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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



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

Re: Privilegios y restricciones

Mensaje por 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¿?



FernandaExcel
Miembro Frecuente
Miembro Frecuente
Mensajes: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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: 196
Registrado: 23 Feb 2018 06:14

Re: Privilegios y restricciones

Mensaje por 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:



Responder