Cambiar de usuario con macro

Hola

Tengo un problema con usuario y contraseña.

Lo que sucede es que entro con un usuario de administrador y luego sin cerrar el archivo cambio a usuario con restricciones, hasta allí funciona bien. Pero cuando quiero regresar al usuario administrador no lo hace.

1 respuesta

Respuesta
1

En la macro del formulario 8 tienes esto:

                If Status = "Usuario" Then
                    UserForm6.CommandButton3.Enabled = False
                    UserForm6.CommandButton7.Enabled = False
                    UserForm6.CommandButton4.Enabled = False
                    UserForm6.CommandButton8.Enabled = False
                    UserForm6.CommandButton10.Enabled = False
                    UserForm6.CommandButton11.Enabled = False
                    UserForm6.CommandButton12.Enabled = False
                    UserForm6.CommandButton13.Enabled = False
                    UserForm6.CommandButton14.Enabled = False
                    UserForm6.CommandButton15.Enabled = False
                    UserForm6.CommandButton16.Enabled = False
                    UserForm6.CommandButton17.Enabled = False
                    UserForm6.CommandButton24.Enabled = False
                    UserForm6.CommandButton25.Enabled = False
                    UserForm6.CommandButton26.Enabled = False
                    UserForm6. CommandButton27. Enabled = False

Le estás diciendo que hacer cuando el estatus es "usuario", pero no le estás diciendo qué hacer cuando es "administrador", entonces debería quedar así:

                If Status = "Usuario" Then
                    UserForm6.CommandButton3.Enabled = False
                    UserForm6.CommandButton7.Enabled = False
                    UserForm6.CommandButton4.Enabled = False
                    UserForm6.CommandButton8.Enabled = False
                    UserForm6.CommandButton10.Enabled = False
                    UserForm6.CommandButton11.Enabled = False
                    UserForm6.CommandButton12.Enabled = False
                    UserForm6.CommandButton13.Enabled = False
                    UserForm6.CommandButton14.Enabled = False
                    UserForm6.CommandButton15.Enabled = False
                    UserForm6.CommandButton16.Enabled = False
                    UserForm6.CommandButton17.Enabled = False
                    UserForm6.CommandButton24.Enabled = False
                    UserForm6.CommandButton25.Enabled = False
                    UserForm6.CommandButton26.Enabled = False
                    UserForm6.CommandButton27.Enabled = False
                    'frm_Menu.CommandButton13.Enabled = True
                Else
                    UserForm6.CommandButton3.Enabled = True
                    UserForm6.CommandButton7.Enabled = True
                    UserForm6.CommandButton4.Enabled = True
                    UserForm6.CommandButton8.Enabled = True
                    UserForm6.CommandButton10.Enabled = True
                    UserForm6.CommandButton11.Enabled = True
                    UserForm6.CommandButton12.Enabled = True
                    UserForm6.CommandButton13.Enabled = True
                    UserForm6.CommandButton14.Enabled = True
                    UserForm6.CommandButton15.Enabled = True
                    UserForm6.CommandButton16.Enabled = True
                    UserForm6.CommandButton17.Enabled = True
                    UserForm6.CommandButton24.Enabled = True
                    UserForm6.CommandButton25.Enabled = True
                    UserForm6.CommandButton26.Enabled = True
                    UserForm6.CommandButton27.Enabled = True
                End If

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Como pasar una importaciones guardada en Access a vba

Estoy trabajando con datos que provienen desde una base de datos de SQL server, hago los pasos de importación y los guardo en importaciones guardadas, funciona de maravilla, pero cuando no hay conectividad con el servidor falla, ya que previa a la...
2 respuestas

¿Porque se ejecuta alternamente UserForm_Activate ?

A tod@s! Tengo un formulario ProgramarTrabajoEnSemana que al activarse actualiza un listbox del mismo formulario. Desde este ListBox al elegir un registro llamo a otro formulario (emergente) ModificarOTsSemana, con varios campos que puedo modificar....
3 respuestas

Código VBA para archivo SEPA bancario

Como siempre agradecer de antemano tremendamente la ayuda de los expertos... Llevo meses peleando con este módulo y no consigo dar con la solución. Tengo un formulario access con los siguientes datos: - FechaRemesa - NumeroRemesa - Cliente -...
2 respuestas

Macro de excel, para buscar celda con fecha y posicionarlas en un lugar determinado de la hoja

A to@s. Estoy trabajando en una hoja de Excel en la que, a modo de agenda, voy anotando distinta información en una tabla, debajo de unas celdas dispuestas en filas que tienen asignados los días según los meses del curso, desde el 1 al 30 de...
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
4 respuestas

Error código 2296 el mensaje no fue enviado

Alguien me podría indicar a que se debe el error 2296, mensaje no enviado, a veces no pero la mayoría de veces lo hace cada vez que le doy enviar el registro en cuestión. En mi base de datos en access 2019
1 respuesta

Sub totales de columnas con macros excel

Si alguien puede ayudarme a resolver este problema. Tengo una hoja en (Hoja2) que tiene los datos de orden y pesos en la columna Ay B 40 datos Salta una columna libre y en la DE aparecen los siguientes 40.. Salta otra columna y en la G y H ...
2 respuestas