Cuando tengo creados usuarios y grupos en Access, Como puedo cambiar el password de un usuario específico a través de VBA? RESPUESTA ========= Type arrUsuario Name As String Group As String Password As String ValueNew As String ValueOld As String End Type With varUsuarioOfRecordCurrent .Name = CDUsuari .ValueOld = OTPassw.OldValue .ValueNew = OTPassw.Value End With Cancel = ChangePropertiesUser(varUsuarioOfRecordCurrent, "P") End With Property Get ChangePropertiesUser(varUser As arrUsuario, varOption As String) As Boolean On Error GoTo CambiarPropertiesUser_Err Set wrkActual = DBEngine.Workspaces(0) With wrkActual Select Case varOption Case "G" ' Cambio de grupo ' 1. Elimino el usuario del grupo solicitado. .Groups(varUser.ValueOld).Users.Delete varUser.Name '.de.Groups.Delete (varUser.ValueOld) ' 2. Asigno el usuario alk nuevo grupo Set usrTemp = .Groups(varUser.ValueNew).CreateUser(varUser.Name) .Groups(varUser.ValueNew).Users.Append usrTemp Case "P" ' Cambio de contraseña .Users(varUser.Name).NewPassword varUser.ValueOld, varUser.ValueNew End Select End With ChangePropertiesUser = False CambiarPropertiesUser_Exit: Exit Property CambiarPropertiesUser_Err: ChangePropertiesUser = True MsgBox Err.Description Resume CambiarPropertiesUser_Exit End Property