mot de passe en fonction de l'adresse mac de l'ordinateur

[remib]

Bonjour a tous,

Je voudrais savoir comment faire pour avoir un fichier excel protégé par mot de passe mais que ce mot de passe varie en fonction de l'ordinateur sur lequel il s'ouvre donc j'ai pensé qu'avec l'adresse mac de l'ordinateur on pourrai faire quelque chose comme ça?

je pense qu'il faudra faire une requête VBA par contre je ne suis pas très fort en programmation donc si vous pouviez m'aider ça serai sympa

Merci d'avance

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

oui je l'est regardé et je te remercie de m'aider mais une fois que le mot de passe est crée il faut qu'il soit en mot de passe pour vérrouiller le classeur et qu'il se mette à jour tout seul (qu'il n'y est que les 2 derniers chiffres qui change selon l'adresse MAC)

Merci d'avance

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Oui je l'ai lu et je te remercie de ton interêt,

Mais une fois le mot de passe crée il faudrais qu'il soit mis en mot de passe pour protéger le classeur et qu'il se mette à jour automatiquement lorsque je l'ouvre sur un autre pc (c'est à dire que le tronc commun reste identique et que les 2 derniers chiffres change selon l'adresse MAC)

Merci d'avance

EDIT : Désolé pour le doublon j'ai eu un petit beug

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Re


Voici le fichier modifié

A l'ouverture , toutes les feuilles sont protégées par le mot de passe suivant:

azerty??

ou ?? = les deux derniers chiffres de l'adresse MAC du PC.

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

RE

Merci beaucoup mais je n'y arrive pas lol mon adresse MAC se finit par 02 (zéro, deux) j'ai donc mis "azerty02" mais c'est refusé

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Re



Tu peux faire dans Windows, s'il te plaît .

Démarrer/Exécuter/cmd /k ipconfig /all

Quels sont les deux derniers chiffres de ton addresse MAC ?

Ps:
Le classeur fonctionne correctement chez moi.

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

j'ai 2 cartes reseau intégrés sur ma CM

1ère carte : D5
2ème carte : 02

Aucun ne marche

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

RE



Copie dans un nouveau classeur, ce code dans un module standard .

Puis lance la macro

Quel message s'affiche ?

Option Explicit

Sub procprin()
Dim objNetwork, objWMIService, strComputer, wshShell
Dim strUser, colGroups, colItems, objItem, FindInfo, L2Chr, sMss
Set objNetwork = CreateObject("Wscript.Network")
strComputer = _
        objNetwork.ComputerName
Set wshShell = _
        CreateObject("WScript.Shell")
Set objWMIService = _
        GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strUser = _
        wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set colItems = _
        objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem In colItems
FindInfo = objItem.MACAddress
Next

L2Chr = Split(FindInfo, ":")(5)
sMss = sMss & "NOM ORDINATEUR :" & Space(7) & strComputer & vbLf
sMss = sMss & "NOM UTILISATEUR :" & Space(8) & strUser & vbLf
sMss = sMss & "Adresse MAC :" & Space(18) & FindInfo & vbLf
sMss = sMss & "Deux derniers caractères : " & Space(4) & L2Chr
MsgBox sMss, vbInformation + vbOKOnly, "INFORMATIONS"

Set objNetwork = Nothing
Set objWMIService = Nothing
Set wshShell = Nothing
End Sub

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Sa me met :

Nom de l'ordinateur : "nom du pc"
Nom d'utilisateur : "ma session"
Adresse MAC : "mon adresse mac"02
Deux derniers caractères : 02

Tous les champs sont corrects

PS : l'adresse affichée et celle de ma carte reseau non connecté a internet elle est debranché

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Re


As-tu essayé comme azerty2 mot de passe ?

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

oui
je viens d'éssayer avant je tapper azerty02 mais même azerty2 ne marche pas je viens d'éssayer
j'ai excel 2007 c'est pas ça le problème?

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

RE



Je sais pas.


Chez moi , cela fonctionne:

Avec Excel 2000 , et session utilisateur (avec droits administrateur)

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

demain matin j'éssaye sur excel 2003 avec session limitée c'est peut être parce que j'ai 2 cartes reseaux je vous tiens au courant demain matin

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Bonjour,

Merci beaucoup pour ton aide, je suis sur excel 2003 (session droits utilisateur) et ça marche super! sa doit être sur 2007 que ça ne marche pas.

Petite question au passage est ce qu'on peut faire la même chose pour protéger le classeur à la place de la feuille

Merci d'avance

 

[remib]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

UP !!!

Quelqu'un peut il me dire comment protéger le classeur à la place de la feuille a partir du code donné plus haut??

 

[vbacrumble]

Re : mot de passe en fonction de l'adresse mac de l'ordinateur

Bonjour



Il suffisait d'aller voir ce que dit l'aide de VBA ! (touche F1)


Protège les feuilles et le classeur

Private Sub Workbook_Open()
Dim s As Worksheet
lancerm
ThisWorkbook.Protect Password:=mdps, Structure:=True
For Each s In ThisWorkbook.Worksheets
s.Protect mdps
Next
End Sub

Je te laisse améliorer cela avec une With/End With