none
Problema com código RRS feed

  • Pergunta

  • 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.
    terça-feira, 15 de março de 2011 12:39

Respostas

  • seguem algumas linhas de codigo para voce ocultar o arquivo e/ou planilha:

    ActiveWindow.Visible = False
    'ou
    ActiveWindow.WindowState = xlMinimized
    'ou
    Sheets("Plan1").Visible = 2 'VeryHidden
    

    Caio Vitullo
    • Marcado como Resposta F.meyer quarta-feira, 16 de março de 2011 13:22
    terça-feira, 15 de março de 2011 16:59