Tengo un formulario de Inicio con: Usuario y Contraseña quiero darle permisos a los usuarios y activar o desactivar elem,entos de la Barra de Menus. He creado una tabla USUARIOS donde esta el usuario,password y luego los elementos del menu (pedidos,clientes, proveedores etc..)con un campo si/no para activarlos o desactivarlos. Esta es la idea, ahora bien como hago para activar o desactivar las opciones de la barra de menus Responde el Bhuo ================ A ver si lo que te digo es valido, pues lo voy a ir escribiendo según lo voy pensando. Tienes una barra de menús general en tu aplicacion. Una tabla de usuarios y un formulario de Inicio donde pides Usuario y Contraseña. Se supone que la tabla de Usuarios, mas o menos tiene los siguientes campos: Usuario Contraseña Menu1 ->Si/no Menu2 ->Si/No Menu3 ....... MenuX ->Si/no Pues vamos a por ello. Lo puedes hacer en el form de inicio, dos Txt independientes: TxtUsuario TxtPasword, por ejemplo y un boton de comando para validar que ejecute este codigo.- Dim dbs As Database Dim Rst As Recordset Dim sql As String sql = "Select * from Usuarios Where Usuario=" & TxtUsuario & " and Pasword=" & TxtPasWord & ";" 'Ojo a las comillas que seguro que me faltan, estan escritas a pelo 'Simplemente se trata de que abras el recordset del usuario y contraseña 'segun los valores introducidos por un usuario en los cammpos de texto 'independientes Set dbs = CurrentDb Set Rst = dbs.OpenRecordset(sql, dbOpenDynaset) If Rst.EOF = False Then 'El usuario y Pasword existen 'Pues aqui es donde recorremos los elementos de la barras de menu If Rst("Menu1")=False Then 'mete codigo de Chea de hoy mismo End If If Rst("Menu2")=False Then 'mete codigo de Chea de hoy mismo End If ....... If Rst("MenuX")=False Then 'mete codigo de Chea de hoy mismo End If Else msgbox "No tienes Accesso" End If Rst.Close Set Rst = Nothing dbs.Close Set dbs = Nothing Codigo de Chea: 'En Referencias debes cargar la referencia a Microsoft Office en la versión 'que corresponda. Luego, creo que te funcionaría esto: Dim itemmenú As CommandBarControl Set itemmenú = CommandBars(NombredelMenú).Controls("Facturas") Itemmenú.Enabled = false Supongo que uniendo estas piezas, podrás conseguir lo que pretendes.