Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA identification par numéro de série Excel

T

tom6821

XLDnaute Nouveau
Bonjour,

je cherche à exécuter une macro uniquement si le fichier est lancé d'un ordinateur spécifique. De cette manière le fichier pourra être utilisé sans intervention de la macro à partir d'un autre poste.

J'ai pensé à utiliser le numéro de série ou a défaut le nom d'utilisateur du programme Excel de la machine.

Est-il possible d'accéder à ces paramètres sous VBA ?

Merci d'avance pour votre aide, bonne journée !
 
Trier par date Trier par votes

Staple1600

XLDnaute Barbatruc
Re : VBA identification par numéro de série Excel

Bonjour

Oui c'est possible
Application.UserName

(mais cela peut-être facilement contournable... en désactivant les macros à l'ouverture du fichier)

EDITION: Bonjour Pierrot93
 
Dernière édition:
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re : VBA identification par numéro de série Excel

Re


Merci Pierrot93 d'avoir été dans les Environs
(j'ai tendance à zapper les possibilités offertes par cette voie )

Pour avoir le nom de l'ordinateur
MsgBox Environ(4)

(Mais là aussi la remarque de mon premier message reste valable)
 
Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc
Re : VBA identification par numéro de série Excel

Re, bonjour JM

Aarf chez moi le nom de l'ordi c'est l'index 6, soit la variable d'environnement "COMPUTERNAME".... pour avoir la liste et les valeurs associées :
Code: 
Dim i As Byte
i = 1
Do
    Cells(i, 1) = Split(Environ(i), "=")(0)
    Cells(i, 2) = Split(Environ(i), "=")(1)
    i = i + 1
Loop While Len(Environ(i)) > 0
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : VBA identification par numéro de série Excel

Bonjour Tom, Bonjour Staple , Bonjour Pierrot ,

C'est 4 chez moi aussi, mais pour éviter les problèmes d'index et de définition des variables d'environnement en fonction de la version de Windows, je suppose qu'il vaut mieux utiliser
Environ("ComputerName")
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc
Re : VBA identification par numéro de série Excel

Re,

A noter chez moi windows xp PRO
Cliquez pour agrandir...

voui voui, moi aussi, XP PRO SP3 intégré à un domaine, mais visiblement elle est liée à l'utilisation de la connexion du bureau à distance, désactivée sur mon poste de travail (sécurité ) ce qui doit expliquer cela... je ne maîtrise pas bien tout ça
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 VBA : Transformer une liste de textes en liens.
Réponses
2
Affichages
300
CISCO
N
  • Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
343
Neofalken
N
J
  • Question
Microsoft 365 Configuration de ChatGpt dans Excel
Réponses
0
Affichages
293
JIM92
J
L
  • Question
Microsoft 365 Erreur "Excel a manqué de ressources..." avec macro
Réponses
3
Affichages
496
AtTheOne
V
  • Question
Microsoft 365 Macro de réinitialisation
Réponses
1
Affichages
342
Eric KERGRESSE
E
O
  • Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
206
Oddoneju
O
S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
296
sylvanu
P
  • Question
XL 2016 Optimisation du Nettoyage de Données : Remplacement Générique
Réponses
4
Affichages
304
sousou
C
  • Question
Microsoft 365 Ouverture Dossiers par VBA
Réponses
9
Affichages
342
Chev
C
  • Question
XL pour MAC VBA Excel Mac OS
Réponses
3
Affichages
442
ArnaudSi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…