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

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #16

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

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #17

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #18

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.

 

Pièces jointes

• MACaddressVBS2.zip

  12.4 KB · Affichages: 76

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #19

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é

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #20

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.

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #21

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #22

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 ?

Code:

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

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #23

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é

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #24

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

Re


As-tu essayé comme azerty2 mot de passe ?

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #25

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?

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #26

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)

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 25 Février 2009

• #27

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

 

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 26 Février 2009

• #28

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

 

Dernière édition: 26 Février 2009

Vote positif 0 Vote négatif

R

remib

XLDnaute Nouveau

• 5 Mars 2009

• #29

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??

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 5 Mars 2009

• #30

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

Code:

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

 

Vote positif 0 Vote négatif