Teste assim:

Public bye As Boolean
Sub Salvar_Sair()
Sheets("Acesso").Select
Esconde
ActiveWorkbook.Save
Application.Quit
If Cancel = 0 Then
bye = True
End If
End Sub

Private Sub Esconde()
ThisWorkbook.Sheets("Contrato_1").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Contrato_2").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Contrato_3").Visible = xlSheetVeryHidden
End Sub

Rapaz, precisamos estudar mais um pouco. Valeu Reinaldo

Boa tarde!!

Quando aos botões veja se ajuda.

Sub Contrato_1()
Const mypass = "1" '"<-SuaSenha"
    On Error GoTo errhandler
    passtry = InputBox("Por favor Digite sua senha")
    If passtry <> mypass Or passtry = vbNullString Then Exit Sub
    Worksheets("Contrato_1").Visible = True
errhandler:

End Sub
Sub Contrato_2()
Const mypass = "1" '"<-SuaSenha"
    On Error GoTo errhandler
    passtry = InputBox("Por favor Digite sua senha")
    If passtry <> mypass Or passtry = vbNullString Then Exit Sub
    Worksheets("Contrato_2").Visible = True
errhandler:
End Sub

Sub Contrato_3()
Const mypass = "1" '"<-SuaSenha"
    On Error GoTo errhandler
    passtry = InputBox("Por favor Digite sua senha")
    If passtry <> mypass Or passtry = vbNullString Then Exit Sub
    Worksheets("Contrato_3").Visible = True
errhandler:
End Sub

Opa, valeu alexandrevba. Uma perguntinha: Tenho oito plans em uma pasta, é possível criar uma plan de acesso de modo que abra, salve e fecha as oito ao mesmo tempo com apenas uma senha.

Boa tarde!!

Tenho oito plans em uma pasta

, quando você diz plans, seria Arquivos xls ?

salve e fecha

Eu não entendi muito bem sua pergunta

Sub AbrirTodosArquivosExcel()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:Documents and SettingsMeus documentosDownloads" '<- Mude para o local desejado
MyFile = Dir(MyFolder & "*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "" & MyFile
    MyFile = Dir
Loop
End Sub

Att

Isso mesmo, abrir todos os arquivos.xls com um único botão e senha.

Bom dia!!

tente assim

Sub AbrirTodosArquivosExcel()
Dim MyFolder As String
Dim MyFile As String

Const mypass = "1" '"<-SuaSenha"
On Error GoTo errhandler
   passtry = InputBox("Por favor Digite sua senha")
If passtry <> mypass Or passtry = vbNullString Then Exit Sub
MyFolder = "C:Documents and SettingsoraculoMeus documentosDownloadsTeste" '<- Mude para o local desejado
MyFile = Dir(MyFolder & "*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "" & MyFile
    MyFile = Dir
Loop
errhandler:
End Sub

Se a mensagem foi util Favor Clicar na mãozinha.
Att

Opa, meus agradecimentos ao Reinaldo e alexandrevba pela contribuição.
Obs.:
Como faz para dar uma "mãozinha" para os dois.

Boa tarde!!

Click nas minhas postagem no canto superior direito ao lado da ferramenta citar!!!

Depois faça isso nas postagem do Reinaldo!!

Att