Blocage excel

[ricoco]

hello

J'ai créer un ficher excel avec des macros, des formules, .....
Je cherche un moyen de bloquer la copie du fichier
c'est dire si une personne récupére ce fichier avec le mot de passe je souhaite qu'elle puis pas l'utiliser.
j'aurais donc un fichier par personne .

merci

 

[ricoco]

Re : Blocage excel

merci ca marche
mais comment inserre le code dans ThisWorkbook

 

[ricoco]

Re : Blocage excel

Petites questions bête...

1-L'adresse MAC est unique pour chaque pc?
2-Elle a rien avoir avec l'adresse IP du PC ou du réseau?

 

[Staple1600]

Re : Blocage excel

Re

Comme j'ai continué sur ma lancée (et que cela m'amuse du faire du MSDOS sous Windows8)
(J'ai coché dans les propriétés du raccourci sur le Bureau:
Raccourci/Avancés/Exécuter en tant qu'administrateur)
Evidemment l'UAC se déclenche, il faut alors répondre OUI

Code VBA:
Sub getMAC()Dim MyFile As String, Cmd As String
MyFile = "C:\Users\Staple1600\Desktop\batch - Raccourci.lnk"
Cmd = "RunDLL32.EXE shell32.dll,ShellExec_RunDLL "
Shell (Cmd & MyFile)
End Sub

Code VBA:
Sub MAC2XLS()
Application.ScreenUpdating = False
Workbooks.OpenText Filename:="C:\testmac.txt", Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 9)), _
TrailingMinusNumbers:=True
[A1].Cut [C5]
End Sub

Au final, on a bien en C5 l'adresse MAC.

 

[Staple1600]

Re : Blocage excel

Re

Petites questions bête...
1-L'adresse MAC est unique pour chaque pc?

L'adresse MAC est celle de ta carte réseau reliée au Net.

Mais encore une fois ce n'est qu'un string.

 

[ricoco]

Re : Blocage excel

c quoi un string

 

[Staple1600]

Re : Blocage excel

Re

Un string= une chaîne de caractère.

Donc il suffit d'aller voir dans ton projet VBA
(protégé par un mot de passe qui protége seulement si l'utilisateur débute avec Excel)
pour aller inhiber le code VBA qui se base sur l'adresse MAC ou simplement modifier le code ainsi:
(On remplace la chaine de caractère de l'adresse MAC pour une autre chaîne)
If Range("C5").Value ="TOTO" Then
'ici ton code VBA si adresse MAC Ok
End if

Tout cela pour te prévenir: le jeu en vaut-il la chandelle car l'utilisateur de ton fichier qui veut l'utiliser envers et contre tout n'a qu'à aller surfer sur le net pour trouver rapidement de quoi supprimer tes tentatives de protection "basiques" sous Excel.