Olá amigo.
Este código foi postado por (selmo).

Private Sub Workbook_Open()
'Se o usuario do computador for diferente do especificado, no caso "MARCELO"  a planilha fecha
If Environ("username") <> "MARCELO" Then ' ' Altere o nome "MARCELO" para o usuário corrente do seu computador
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

att,

Francisco

FCarlosc,

O "WorkBooks.Open" que me refiro é para buscar informações dentro do outra planilha, semelhante aos comando "OpeRowSet" do Sql Server, você tem esse algum modelo do tipo...?

Atenciosamente.

SamuelTM,

Segue um exemplo :

Você está com a Pasta A aberta, e então você resolver abrir uma outra pasta, digamos B, então você usaria o seguinte :

Private Sub abrirPasta()
   'Abre a nova Patas
   Workbooks.Open "Informe o caminho completo da Pasta com a extensão"
    Windows("Pasta1").Activate
    Range("A1").Select
    ActiveCell.Interior.ColorIndex = 5
    Windows("Pasta2").Activate
    Range("A1").Select
    ActiveCell.Interior.ColorIndex = 9
End Sub

Abs