Menú contextual con contraseña

[Benito Bartolomé]

Buenos días a todos;

-En el archivo que subo tiene en la hoja "Arqueo y Ventas" una macro que me muestra al hacer clic con el botón derecho del mouse un menú personalizado.

He configurado de forma que si la persona que utilice la macro no tiene privilegios de administrador no pueda acceder a dicho menú.

Si lo intenta aparece un formulario donde se debe introducir la contraseña correcta que estableció el administrador.

Consulta:

Como puedo hacer para que una vez logueado me actualice el menú contextual sin necesidad de que tenga que ir saltando de una hoja a otra.

Dejo enlace de un video explicativo:

Video

Saludos.

JExcel.xlsmFetching info...

[Benito Bartolomé]

Hola a todos;

-Me respondo a mi mismo.

He conseguido lo que pretendía añadiendo las siguientes líneas al código.

No sé si el orden es del todo correcto pero cumple la función que buscaba.

Aquí os dejo del código de como ha quedado la macro.

Private Sub btn_Aceptar_Click()
Application.ScreenUpdating = False '<<<<Código añadido
If txt_pass.Value = UCase(Sheets("Registro").[G3]) Then
Dim HOJA As String  '<<<<Código añadido
    Label2.Visible = True
    Hoja6.Range("A3") = "Admin"
    mostrarHojas
    HOJA = ActiveSheet.Name '<<<<Código añadido
    ActiveSheet.Visible = 2
    Unload Me
    Sheets(HOJA).Visible = True '<<<<Código añadido
    Sheets(HOJA).Select '<<<<Código añadido
Else
    MsgBox "Debe registrarse para poder aceder al formulario", vbInformation, "Aviso"
    Unload Me
    'frm_Login.Show
End If
Application.ScreenUpdating = True '<<<<Código añadido
End Sub