Existe um produto chamado SenhaCrypt que permite fazer o que você pretende.

Entre na página http://henriqueronconi.wixsite.com/cons ... video_tips e assista o vídeo que fala sobre.

Obrigado pela dica hronconi, mais preciso de um cód em VBA.

Obrigado pela dica hronconi, mais preciso de um cód em VBA.

Em excel nao existe nada 100 % seguro.

A segurança esta mais relacionada ao conhecimento do usuario do que em qualquer outra coisa.

Um membro do forum disse uma vez:

"Segurança em excel é igual a trancar a porta e colocar a chave embaixo do tapete."

Para algumas pessoas ainda colocar um aviso na porta "CHAVE EMBAIXO DO TAPETE".

Em resumo de nada adianta.

Basta desabilitar macros e a segurança nao existe mais.

A senha do VBA é tao simples de remover que nem compensa colocar. Hoje em dia basta um google que ja era.

Obrigado MPrudencio, sem que os códigos são seguros até certo ponto, mais preciso de um cód em vba, se poder me ajudar, fico Grato!

Obrigado pela dica hronconi, mais preciso de um cód em VBA.

Mprudencio,

A solução que lhe indiquei é desenvolvida em VBA, só que é paga.

Bom dia,
Qualquer forma de ajuda é bem vinda Henrique.

Vasculhando os tópicos do Planilhando encontrei esse cód , só acho que é pra processador de 32 Bits. Alguém poderia me ajudar?

'ESTA PASTA DE TRABALHO
Private Sub Workbook_Open()
ConsultarNomeComputador
End Sub

'MODULO
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Private Function lfNomeComputador() As String
Dim stBuff As String * 255, lAPIResult As Long
Dim lBuffLen As Long
lBuffLen = 255
lAPIResult = GetComputerName(stBuff, lBuffLen)
If lBuffLen > 0 Then lfNomeComputador = Left(stBuff, lBuffLen)
End Function
Public Sub ConsultarNomeComputador() 'reconhecer computador para abrir a planilha
Dim CompName As String
CompName = lfNomeComputador 'abaixo coloque os nomes dos usuário autorizados a habilitar as macros
If CompName <> "1ª usuário" Then 'nome usuário
If CompName <> "2ª usuário" Then 'outro nome usuário
  ActiveWindow.Close
End If 'cada usuário End If
End If
End Sub

Obrigado marmen pela solução apresentada.

Lembrando somente que no seu exemplo o nome do computador terá que ser atribuído forçadamente no código.

É uma boa solução não tão completa, mas pode ser que atenda ao seu caso.

Então hronconi, no tópico onde eu peguei esse código tinha uma planilha com um cód que verifica o nome do computador do usuário, só que não consegui fazer o download por que o arquivo está ilegível.

Até agora estou com meu problema sem solução rsrs

Pelo nome da maquina use esse codigo em Esta Pasta de Trabalho

Private Sub Workbook_Open()

If Environ("ComputerName") <> "NOME DA MAQUINA" Then ' NOME DA MAQUINA DEVE SER O NOME DO COMPUTADOR NA REDE.

MsgBox "Esse Arquivo Não Pode Ser Aberto Neste Terminal", vbCritical, "Fechando o Arquivo"
ThisWorkbook.Save
ThisWorkbook.Close

End If

End Sub

Obrigado MPrudencio, o cód está funcionando perfeitamente.

Me tire uma última dúvida sobre este assunto. Se a pessoa colocar o mesmo nome do computador que está autorizado ela conseguirá abrir a planilha, Procede? Tem como usar um cód parecido mais que utilize o IP do computador?

Sim procede, mas para isso o usuario devera ter conhecimento do nome do computador que esta autorizado.

Quanto a usar o IP provavelmente exista alguma solução mas tb vc cai no mesmo problema.

Uma coisa importante (nao tenho certeza), mas acho que não é possivel ter dois micros na mesma rede com o mesmo nome.

Como eu disse anteriormente a segurança do VBA esta mais relacionada ao conhecimento do usuario do que do proprio excel.

Entendi Marcelo Prudencio

Gostei desse cód, vai ser útil.
Ultima duvida desse tópico, tem como utilizar um cód que retorna o nome do computador em uma célula ou algo do tipo?
dai é só o usuário abrir a planilha e esse cód grava automaticamente o nome do computador na célula especificada.

Assim

Range("A1").Value = Environ("ComputerName")

Essa linha grava o nome do computador na celula a1

Deu certo, só que ela não está executando automaticamente, eu preciso que ela grave o nome do computador assim que a planilha for aberta