Olá,
Neste caso você poderia criar um tratamento de senha para cada botão, ou seja, para planilha de Maria uma verificação de senha, para Pedro outra, etc.
No caso abaixo, criei um exemplo para a planilha de Maria, veja se entende:
Sub maria()
' Declaração de variáveis
Dim senhamaria, entrada As String
senhamaria = "123"
entrada = InputBox("Digite sua senha:", "Senha Maria")
' Verifica se a senha de Maria é correta
' Se a senha é diferente/incorreta
If entrada <> senhamaria Then
MsgBox "Senha inválida", vbInformation
Exit Sub
' Caso contrário
' Torna a planilha de Maria visivel e a seleciona
Else
Sheets("Maria").Visible = True
Sheets("Maria").Select
End If
End Sub
' A senha pode ser alterada a seu critério e o código pode ser utilizado para o Pedro também, alterando o código de acordo com a necessidade. Lembrando que as planilhas estarão ocultas e só estarão visíveis após
a execução do código e inclusão de senha.
Seria bom que bloqueasse o acesso ao seu código para que nenhum usuário mais esperto tenha acesso as senhas, outro detalhe é ocultar as guias no excel para que não possam reexibir as planilhas ocultas manualmente.
Você pode usar o código abaixo no evento Open do WorkBook.
Application.ActiveWindow.DisplayWorkbookTabs = False
Bruno de Sousa Rocha - MyVBAFórum: http://vbaexcel.foruns.com.pt/
