Excel Ocultar pasta de trabalho sem ocultar a demais abertas

[Roberto Becker]

Boa tarde!
Sou novo aqui, estou precisando de uma ajuda.
Estou criando um projeto que preciso que a pasta de trabalho fique oculta, e que quando eu feche, ele fecha somente meu arquivo, encontrei o código abaixo que abre uma nova instância do Excel, o problema é que quando abro um outro arquivo Excel após abrir meu projeto, ele mostra minha pasta de trabalho.
Alguém tem uma solução pra isso? 
Obs: Arquivo teste em anexo.

 

Private Sub Workbook_Open()

Windows("Controle.xlsm").Activate
Login.Show
app.Show

Dim nomeplan As String, nplan As Integer
nomeplan = ThisWorkbook.Name
nplan = Workbooks.Count

If nplan > 1 Then
    Windows(nomeplan).Visible = False
Else
    Application.Visible = False
End If
End Sub

Controle teste.zip