Este fórum está sendo desativado

[thiagoypu]

Bom dia Senhores,

estou engatinhando em programação VBA e não tenho conhecimento suficiente para isso que pedirei auxílio.
Quero realizar um código aonde eu abra uma PASTA DE TRABALHO PRINCIPAL, e ao abri-la, outra PASTA DE TRABALHO, uma secundária, também abra e fique oculta.
Poderiam me ajudar?

Abçs!

[Parkeless]

Opa!

Tenta isso:

Código: Selecionar todos

Private Sub Workbook_Open()
Dim Endereço As String
Dim Planilha As Workbook

'Coloque o endereço completo da planilha aqui
Endereço = "C:\Users\user\Desktop\MinhaPlanilha.xlsx"

Application.ScreenUpdating = False
Set Planilha = Workbooks.Open(Endereço)
ActiveWindow.Visible = False
Application.ScreenUpdating = True


End Sub

Obs.: O código não deve ser colado em um módulo, mas na própria Workbook, como demonstrado abaixo:

[thiagoypu]

Robson,

cara, sem palavras, acabou de me ajudar a resolver algo que estava tentando fazer sem VBA.

Vlw meu caro!!!

[thiagoypu]

Robson,

tenho uma dúvida em relação ao tópico anterior que você me auxiliou. Infelizmente reparei isto depois que o concluí como resolvido.

O código está perfeito, o que reparei é que quando fecho a PLANILHA PRINCIPAL, o Excel me pergunta se quero salvar o arquivo, se digo que sim, quando retorno a abri-lo, não mais enxergo a Planilha, para que eu continue visualizando, tenho que clicar em não salvar.

Existe a possibilidade de criar um código em que quando eu feche a planilha não haja a pergunta? e deixá-lo, claro, como NÃO SALVAR?

Criei um exemplo que segue em anexo.

[Kledison]

Boa tarde,

Thiago, fundi os dois tópicos que você criou, se ao marcar resolvido em algum tópico e aparecer dúvidas relacionadas ao mesmo, fineza entrar em contato com os Moderadores/Administrador solicitando o destrancamento do tópico.

Att
Moderador

[Parkeless]

Olá Thiago!

Tenta substituir o código anterior por esse:

Código: Selecionar todos

Option Explicit

Public Planilha As Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next

Planilha.Close (False)

End Sub

Private Sub Workbook_Open()
Dim Endereço As String

Endereço = "C:\Users\rlucas\Desktop\TiraICOPs.xlsx"

Application.ScreenUpdating = False
Set Planilha = Workbooks.Open(Endereço)
ActiveWindow.Visible = False
Application.ScreenUpdating = True


End Sub

[thiagoypu]

Primeiramente,
Klédison, obrigado por reabrir o tópico e desculpas pelo ocorrido. Estou bem habituado as diretrizes do forum e realmente me passei.

Robson,
Obrigado mais uma vez, ficou excelente e realmente o que precisava.

Abçs a todos!!!