Blocage excel

R

ricoco

Guest

• 9 Février 2013

• #2

Re : Blocage excel

y 'a t'il une solution ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Février 2013

• #3

Re : Blocage excel

Bonsoir ricoco,

Peux-tu expliquer plus avant ?
il y a déjà un mot de passe sur ton fichier ? à quel niveau (ouverture,code vba, protection des feuilles...) ?
tu veux que même avec le mot de passe, on ne puisse pas utiliser ton fichier ?
comment comptes-tu vérifier que ce n'est pas le bon utilisateur ? nom du compte Windows ? adresse MAC de la carte réseau ?

 

Vote positif 0 Vote négatif

R

ricoco

Guest

• 9 Février 2013

• #4

Re : Blocage excel

salut

le mot de passe a l'ouverture du fichier
effectivement je pense utiliser l'adresse mac du pc sur lequel ce fichier se trouve

si c facile a faire

merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Février 2013

• #5

Re : Blocage excel

Re,

va voir par là
Récupération d'adresse Mac avec VBS [Résolu] | CommentCaMarche

en Excel,quasi la même chose

 

Pièces jointes

• Classeur1.xlsm

  17.6 KB · Affichages: 53
• Classeur1.xlsm

  17.6 KB · Affichages: 48
• Classeur1.xlsm

  17.6 KB · Affichages: 55

Vote positif 0 Vote négatif

R

ricoco

Guest

• 9 Février 2013

• #6

Re : Blocage excel

est il possible que l'adresse mac s'inscrive dans une cellule C5 par exemple a l'ouverture du fichier
merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #7

Re : Blocage excel

Bonjour à tous (salut tototiti2008 😉 )

ricoco
Juste pour mémoire: la protection du projet VBA est illusoire.
Il ne faut que quelques secondes pour l'outrepasser.
Et l'adresse MAC n'est qu'au final qu'un string.
(Il suffit donc de modifier le code VBA en conséquence)

Sinon outre le VBS, on peut utiliser dans l'invite MS-DOS: getmac
(que l'on peut d'ailleurs lancer par VBA des commandes MSDOS avec Shell
-> voir les exemples qui traitent de cela dans les archives du forum)

Mais au final, on retombera sur le fait que tout cela peut facilement être rendu inopérant.

PS: Par contre un mot de passe à l'ouverture du classeur est déjà plus difficile à contourner.

Si tu ne veux pas que cette personne utilise ton fichier, gardes le au chaud sur ton PC perso.

Si ton fichier est déjà dans la nature, il est déjà trop tard.

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 9 Février 2013

• #8

Re : Blocage excel

Bonjour tout le monde,
pour récupérer les différentes adresses (MAC, IP,...), cf. ici en passant par du WMI (ouvrir le formulaire et appuyer sur "Protocole Internet").
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #9

Re : Blocage excel

Bonjour à tous (salut david84)

Cela reste encore des strings "en clair", il suffit donc d'aller dans le projet VBA pour amender le code en conséquence et rendre la protection caduque.

ricoco: Pourquoi une personne utiliserai ton fichier si elle n'en a pas besoin?

Je cherche un moyen de bloquer la copie du fichier

Cliquez pour agrandir...

Le seul moyen c'est d'être le seul utilisateur du dit fichier et de le stocker sur une clé USB.

Ou alors il faut t'embarquer dans la création d'un complément COM
Comment faire pour créer un complément COM Office 2000 dans Visual Basic
Et là c'est une autre paire de manche et il faut avoir les outils pour.

 

Vote positif 0 Vote négatif

R

ricoco

Guest

• 9 Février 2013

• #10

Re : Blocage excel

Est il possible que l'adresse mac s'inscrive dans une cellule C5 par exemple a l'ouverture du fichier
merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #11

Re : Blocage excel

Bonjour

As-tu été voir le lien proposé par david84 dans son message ou il est question de WMI ?

Mais encore une fois, l'utilisateur peut ouvrir ton fichier sans activer les macros.

 

Vote positif 0 Vote négatif

R

ricoco

Guest

• 9 Février 2013

• #12

Re : Blocage excel

est il possible de force l'activation des macro a l'ouverture du fichier.

merci

 

Vote positif 0 Vote négatif

R

ricoco

Guest

• 9 Février 2013

• #13

Re : Blocage excel

effectivement j 'ai vue c qu'a fait david84 c super
mais je souhaite simplement l'ecriture de l'adresse MAC ds une cellule

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Février 2013

• #14

Re : Blocage excel

Bon

Alors essais cette méthode (test ok ici)
1) Lancer l'invite MSDOS* (voir copie d'écran ci-dessous)

2) Ensuite ouvrir par macro le fichier texte
Code VBA:
Sub Macro1()
'A lancer en tant qu'administrateur dans une Invite MSDOS
'getmac /NH /FO csv>c:\testmac.txt
'(Pas évident à faire sous Windows8!!

'Ensuite ouverture du fichier texte contenant l'adresse MAC
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
End Sub

*: Pour ce faire sous Windows8, j'ai du créé un raccourci sur le bureau que j'ai lancé en mode administrateur en faisant un clic-droit
Pour les versions inférieures: Démarrer/Accesoires/Invite MS-DOS

 

Dernière édition: 9 Février 2013

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 9 Février 2013

• #15

Re : Blocage excel

Re

Est il possible que l'adresse mac s'inscrive dans une cellule C5 par exemple a l'ouverture du fichier

Cliquez pour agrandir...

Dans un module classique :

Code:

Sub Adresse_Mac()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem In colItems
    If Not IsNull(objItem.IPAddress) Then _
    Range("C5") = "Adresse MAC : " & objItem.MACAddress
Next
Set objWMIService = Nothing
Set colItems = Nothing
End Sub

et dans le module de ThisWorkbook :

Code:

Private Sub Workbook_Open()
Call Adresse_Mac
End Sub

A+

 

Vote positif 0 Vote négatif