Este fórum está sendo desativado

[Basole]

Em termos de Excel, nao conheco nada 100% seguro para atender a essa necessidade.
Voce pode tentar algumas coisas para dificultar acesso restrito e compartilhamento em outra maquina.

Por exemplo, cirar uma chave encriptada de acordo com o numero serial do drive:

Neste exemplo mostra o numero do hd

Código: Selecionar todos

Sub DriveSerialNumber()
    MsgBox VBA.Abs(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
End Sub