Possuo um formulário de cadastro no Excel
Neste, a Private Sub Useform_Initialize() chama a Private Sub PlanDestino.
Esta Private Sub PlanDestino ABRE o arquivo em excel que tabela que receberá os dados (em planilha a parte-
"ARQUIVO_DADOS").
Porém, gostaria que este arquivo que receberá os dados
("ARQUIVO_DADOS") NÃO ABRA quando eu abrir o formulário
Seria algo como: Sheets(nome da guia em "ARQUIVO_DADOS").Visible = False ??
Tentei aqui mas não deu certo.
Abaixo o código que possuo. Alguém pode me auxiliar?
Private Sub PlanDestino()
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
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
For Each wb In Application.Workbooks
If wb.Name = ARQUIVO_DADOS Then
abrirArquivo = False
Exit For
End If
Next
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)
End Sub
Desde já agradeço.
