Buenas Rafael.
Olhei os exemplos que deixou disponives, e pelo que vi, vão me ajudar a resolver o meu problema.
Aí surguiu uma dúvida.
Quando altero o nome do banco de dados o formulário informa que o arquivo não pode ser encontrado. Tem razão pois alterei o nome do mesmo.
Pelo que verifiquei você tem um código para definir a planilha:
Private Sub DefinePlanilhaDados()
Dim abrirArquivo As Boolean
Dim wb As Workbook
Dim caminhoCompleto As String
Dim ARQUIVO_DADOS As String
Dim PASTA_DADOS As String
abrirArquivo = True
ARQUIVO_DADOS = Range("ARQUIVO_DADOS").Value
PASTA_DADOS = Range("PASTA_DADOS").Value
If ThisWorkbook.Name <> ARQUIVO_DADOS Then
'monta a string do caminho completo
If PASTA_DADOS = vbNullString Or PASTA_DADOS = "" Then
caminhoCompleto = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, vbNullString) & ARQUIVO_DADOS
Else
If Right(PASTA_DADOS, 1) = "\" Then
caminhoCompleto = PASTA_DADOS & ARQUIVO_DADOS
Else
caminhoCompleto = PASTA_DADOS & "\" & ARQUIVO_DADOS
End If
End If
'verifica se o arquivo não está aberto
For Each wb In Application.Workbooks
If wb.Name = ARQUIVO_DADOS Then
abrirArquivo = False
Exit For
End If
Next
'atribui o arquivo
If abrirArquivo Then
Set wbCadastro = Workbooks.Open(Filename:=caminhoCompleto, ReadOnly:=True)
Else
Set wbCadastro = Workbooks(ARQUIVO_DADOS)
End If
Else
Set wbCadastro = ThisWorkbook
End If
Set wsCadastro = wbCadastro.Worksheets(nomePlanilhaCadastro)
'oculta o arquivo de dados
wbCadastro.Windows(1).Visible = False
End Sub
O que não consegui visualizar no código onde eu defino o nome do arquivo que preciso abri.
Teria como me dar uma ajuda nessa questão, pois está faltando conhecimento de minha parte nessa questão.
Ou se é definido em outro local.
Desde já agradeço pela ajuda.
Abraços
Rafael escreveu:Henry,
A lógica é o seguinte, se você usar o banco que dados integrado na planilha que você criou o form, será praticamente impossível 2 ou mais computadores usar o formulário sem dar conflito, além de o Excel não permitir isso. O que eu sugiro pra você é usar o banco de dados separado da planilha que tem o form e colocar um formulário por computador usando um único BD. Assim vários formulários poderá buscar os dados nesse banco, mesmo sendo em rede.
Coloquei um exemplo em anexo.
Abs.