Basole

Talvez não tenha prestado atenção no que solicitei, vou repetir. Se não pode disponibilizar o original, envie um modelo bem próximo do original com alguns dados ficticios.

voce quer buscar dados de qual tabela ?

Poste seu arquivo original, ou um exemplo bem proximo, com alguns dados.

@Adriano Delvali fiz as alteraçoes que solicitou. Com a funçao "Busca_Dados_Access" voce pode usa-la como um formula do excel, e em qualquer coluna. Veja este exempo: Codigo do produto; nome da tabela =Busca_Dados_Access(900;"insumos") Não esqueça de compactar seu banco: Laudo de Análise - Garantia da Qualidade.TESTE_3.xls

Para a imagem carregar no corpo do email, voce precisa subir a imagem, e hospedar em algum site. É assim que funciona quando voce recebe algum email promocional, que tem a opção de voce carregar a imagem ou não. Quanto ao relatorio,,voce pode inserir este relatorio no excel e enviar o intervalo no corpo do email https://support.microsoft.com/en-us/kb/816644

@Adriano Delvali voce precisa compactar este seu banco, esta com 2 MB e com poucos dados Esta 2 ª duvida eu nao entendi se voce quer filtrar os dados ou trazer todos da tabela Fornecedores, e depois que trazer, aonde quer inserir esses dados? Laudo de Análise - Garantia da Qualidade.TESTE_2.xls

voce poderia então criar no access, as tabelas que vai precisar?

@misterjohn seu texto está claro, mas a duvida nao. Te pergunto o que significa "email anterior" ? Seria uma conta de e-mail que voce cancelou, e agora voce criou uma nova conta, essa seria a resposta? voce enviou um email atraves de uma conta de email, e agora voce quer enviar um outro e-mail, com uma conta diferente? Enfim, pode ser "n" coisas. O seu texto do 1º post, é muito vago! Quanto a sua duvida, desconheço que exista uma forma de criar uma conta de email sem criar um endereço eletrônico e senha. O que se pode fazer é criar uma macro que envie email usando o cdo e neste codigo vba esteja inserido o servidor smtp, a porta e o endereço da conta de email e a senha.

@Adriano Delvali nao entendi o que voce esta precisando fazer, pois já tem a rotina que importa e envia dados do excel, para o bd_Garantia_Qualidade

Sim e possivel, com esse mesmo codigo. So necessita de alguns ajustes, para conectar o bd aceess Poste exemplos dos seus arquivos excel e access, com alguns dados ficticios, para facilitar a ajuda..

Sinceramente, nao entendi o que voce precisa (?)

Deixa eu ver se entendi.. Layout seria uma planilha, e fica no servidor, mas em um outro diretorio (pasta) diferente da planilha que é feita as alterações?

@Adriano Delvali com recordset, a coluna inicial, é 0 (zero), neste caso voce esta importando a 2ª coluna, a (B), da planilha. Mais enfim, voce não quer que fique uma linha 'em branco' no seu listbox, então acrescentei + uma condição <> de vazio. Substitue este trecho do codigo: While rs.EOF = False TextoCelula = VBA.IIf(IsNull(rs.Fields(1)), "", rs.Fields(1)) 'Coluna 2 If TextoCelula <> "" And VBA.UCase(Left(TextoCelula, VBA.Len(TextoDigitado))) = VBA.UCase(TextoDigitado) Then ListBox1.AddItem rs.Fields(1) 'Coluna 2 End If rs.MoveNext Wend

Verifique no codigo, se o endereço do arquivo DADOS.xls no servidor esta correto. E altere no codigo, no local indicado, o nome da planilha(aba) da pasta de trabalho DADOS.xls EXEMPLO LISTBOX_1.xls

O titulo do seu topico diz: "Listview em arquivo de servidor", mas no seu codigo voce esta usando o componente Listbox (??) Bom se realmente for um Listbox eu fiz um exemplo utilizando o ADO para importar os dados de uma outra pasta de trabalho, em um ambiente de rede: Outra coisa, não endendi de onde vem o valor da string TextoDigitado (??) * habilite a referencia microsoft activeX data objects library X.XX (vide img abaixo) * Altere o nome da aba da pasta de trabalho DADOS.xls nas string SuaABA mantendo o $ fonte: ExcelADO mostra como usar o ADO ... Private Sub PreencheLista() Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long, sql As String Dim TextoCelula As String Const strPath = "Z:\BANCO_DADOS\DADOS.xls" Const SuaABA As String = "Nome_da_aba_da_Planilha_DADOS$A1:H" On Error GoTo Erro Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=" & strPath & ";" & _ "Extended Properties=""Excel 8.0;""" sql = "SELECT * FROM [" & SuaABA & "];" Set rs = New ADODB.Recordset rs.Open sql, cn, adOpenKeyset, adLockOptimistic rs.MoveFirst ListBox1.Clear With rs While rs.EOF = False TextoCelula = rs.Fields(7) 'Coluna 8 If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem rs.Fields(7) 'Coluna 8 End If rs.MoveNext Wend End With Set rs = Nothing If cn.State = 1 Then cn.Close Exit Sub Erro: MsgBox Err.Number & " " & Err.Description Set rs = Nothing If cn.State = 1 Then cn.Close End Sub

Realmente é gambiarra! Em termos de proteção de dados é zero. Qualquer pessoa mais instruida pode descobrir a senha do administrador. Do modo que apresentei, funcionou aqui pra mim, perfeitamente, não expondo os dados.

@André Costa TI não tem como uma macro ser executada, sem que a proteção seja habilitada (* proteção de macros - com notificação). Não sei como são as normas da sua empresa, mas dependendo das permissões, adicione uma assinatura digital a este arquivo (planilha). Assinar digitalmente uma macro e Adicionar ou remover uma assinatura digital em arquivos do Office Dependendo das configurações de segurança do seu arquivo, um arquivo do office com assinatura digital, não mostra notificação de proteção com opção de para habilitar as macros. Outra opção, para proteger sua planilha, é inserir uma senha de entrada ao arquivo: vá em salvar como>Ferramentas> escolha a opção: 'Opções Gerais' e insira as senhas de proteção e gravação> confirme> Ok. (vide img abaixo)

Ao carregar pela 1ª vez o form ADMIN a variavel Global Usuario_padrao é carregado (associado o usuario a variavel) Nas proximas vezes, o form ADMIN não abrira, pois no evento Activate, tem a condição que verifica a variavel. Sistema de proteção à planilhas1.zip

@André Costa TI faça uma declaração global do usuario logado. Por exemplo em um modulo padrão declare: Public Usuario_padrao As String No userform de login, apos o usuario logar, associe o usuario logado a variavel Usuario_padrao: Usuario_padrao = Textbox_usuario Desta forma a variavel ficara 'carregada' com o nome do usuario logado, sendo assim voce coloque uma condição no inicio do userform login verificando se esta variavel esta carregada ou não. Veja o exemplo abaixo: Public Usuario_padrao As String Sub acesso() Dim loginUser As String If Usuario_padrao = "" Then loginUser = InputBox("Insira a senha", "Controle de acesso") If loginUser = "admin" Then Usuario_padrao = loginUser MsgBox Usuario_padrao & " logado!", 0, "Aviso" Exit Sub Else MsgBox "senha incorreta" End If End If End Sub Sub sair() Usuario_padrao = "" End Sub

@diego_janjao Seria somente uma imagem? Supondo que a referida celula seja a E1: Sub InserirVariasImagens_2() Const ImgPastL As String = "C:\Users\Admin\pictures" 'AQUI *Altere o diretorio da sua pasta de imagens Dim ArqSel As String, ImgX As Long, ImgY As Long, ImgSpac As Long, imgW As Long, _ imgH As Long, i As Long, ct As Integer i = 2 Celula = "A" & i ct = 0 ArqSel = Dir(ImgPastL & "\" & ActiveSheet.[E1]) ' Altere o end da celula ImgX = Range(Celula).Left ImgY = Range(Celula).Top ImgSpac = Range(Celula).Height * 17 imgW = Range(Celula).Width * 7 imgH = Range(Celula).Height * 15 Do While ArqSel <> "" ArqSel = Dir(ImgPastL & "\" & ActiveSheet.Range("E" & x)) Celula = "A" & i ActiveSheet.Shapes.AddPicture ImgPastL & "\" & ArqSel, False, True, ImgX, ImgY, imgW, imgH ImgY = ImgY + ImgSpac ArqSel = Dir() i = i + 17 ct = ct + 1 x = 1 Loop MsgBox ct & " Imagens foram inseridas !", 0, "Sucesso" End Sub

Bom dia veja se o exemplo ajuda: A macro insere todas as imagens contidas na pasta indicada: Sub InserirVariasImagens() Dim ImgPastL As String: ImgPastL = "C:\Users\Admin\pictures" 'AQUI *Altere o diretorio da sua pasta de imagens Dim ArqSel As String: ArqSel = Dir(ImgPastL & "\") Dim ImgX As Long, ImgY As Long, ImgSpac As Long, imgW As Long, imgH As Long Dim i As Long: i = 2 Dim ct As String: ct = 0 Celula = "A" & i ImgX = Range(Celula).Left ImgY = Range(Celula).Top ImgSpac = Range(Celula).Height * 17 imgW = Range(Celula).Width * 30 imgH = Range(Celula).Height * 13 Do While ArqSel <> "" Celula = "A" & i ActiveSheet.Shapes.AddPicture ImgPastL & "\" & ArqSel, False, True, ImgX, ImgY, imgW, imgH ImgY = ImgY + ImgSpac ArqSel = Dir() i = i + 17 ct = ct + 1 Loop MsgBox ct & " Imagens foram inseridas !", 0, "Sucesso" End Sub

Segue com as alterações; * O codigo que postei acima (Codigo) esta correto, apenas alterei o indice da cor de 27 para 6 Pasta1 - teste p_cor_1.zip

Se esses numeros (informados) de celular estiverem corretamente padronizados, experimente as formulas: =ESQUERDA(A2;2)& "9" & DIREITA(A2;9)

Confirmando, os dados não precisam seguir nenhuma ordem né? Segue com as alterações: COMPARATIVO_1.zip

@Seiki Moromizato veja se é isso que deseja. COMPARATIVO.zip