Microsoft 365 exécuter un code uniquement si le classeur est ouvert sur mon ordinateur

Usine à gaz · 25 Juin 2022

Bonjour à toutes et à tous,
Je vous souhaite un beau WE

J'ai besoin qu'un code soit uniquement exécuté si le classeur est ouvert sur mon ordinateur.

J'ai recherché dans mes multiples fils et je me suis inspiré d'un code qui m'a été donné par @Jacky67 dans ce fil

XL 2013 - vba ouvrir un classeur en trouvant uniquement avec son nom

Bonjour à toutes et à tous, Tout d’abord je vous souhaite un très beau dimanche. Je me tourne à nouveau vers vous pour un problème que je n’arrive pas à résoudre malgré mes recherches et essais. Je travaille sur 2 ordinateurs à des heures différentes : La journée en horaires normaux, sur mon...

www.excel-downloads.com

Je l'ai adapté à mon besoin et il semble bien fonctionner :

VB:

Private Sub Workbook_Open()
[a1] = ""
If Environ("COMPUTERNAME") = "Usine à Gaz vieil Ado tjrs explosif" Then 'le nom de l'ordinateur
'MsgBox ("Bravo : C'est le bon ordi !")
[a1] = Environ("COMPUTERNAME")
Else
MsgBox ("NON : C'est pas le bon ordi !")
End If
End Sub

Dans l'esprit de partage de solution, je vous le livre, il vous sera peut-être utile.

Le code peut-être amélioré ?
Nos chers ténors nous le diront peut-être ?
Je joins le fichiers test.

Amicalement,
lionel

Usine à gaz · 25 Juin 2022

Re-Bonjour,
J'ai quand même une question pour nos ténors :

Pour le fichier test, j'ai mis : "[a1] = Environ("COMPUTERNAME")"
Toutefois,, pour que celui qui ouvre le classeur ne le voit pas, ce serait super le nom de l'ordinateur n'apparaisse pas dans le code, n'y ailleurs

Est-ce possible ?

lionel

Deadpool_CC · 25 Juin 2022

Bonjour,
pour que le nom de l'ordi soit pas lisible, intègre une fonction de hashage MD5
ensuite compare le MD5 de ta lecture ordinateur à l'ouverture par rapport à la valeur MD5 que tu aurra mis en dur dans ton code à la palce du nom de ton ordi.

soan · 25 Juin 2022

Bonjour Gaz hilarant, (réponse au post #1)

ton fichier optimisé en retour.

code VBA (11 lignes) :

VB:

Option Explicit

Private Sub Workbook_Open()
  Const chn As String * 14 = " le bon ordi !"
  Dim PC$: PC = Environ("COMPUTERNAME")
  If PC = "PC Lionel" Then
    [A1] = PC: MsgBox "Bravo : C'est" & chn
  Else
    [A1] = Empty: MsgBox "NON : C'est pas" & chn
  End If
End Sub

si ton sujet est résolu, ~~marque mon post comme solution~~
envoie-moi de bonnes fraises à la crème chantilly !

soan

Usine à gaz · 25 Juin 2022

Deadpool_CC à dit:
Bonjour,
pour que le nom de l'ordi soit pas lisible, intègre une fonction de hashage MD5
ensuite compare le MD5 de ta lecture ordinateur à l'ouverture par rapport à la valeur MD5 que tu aurra mis en dur dans ton code à la palce du nom de ton ordi.

Bonjour Deadpool_CC

Merci pour l'info.
Je ne connais pas cette fonction.
Je vais faire des recherches.
lionel

Usine à gaz · 25 Juin 2022

soan à dit:
Bonjour Gaz hilarant,

ton fichier optimisé en retour.

code VBA (11 lignes) :

VB:

Option Explicit Private Sub Workbook_Open() Const chn As String * 14 = " le bon ordi !" Dim PC$: PC = Environ("COMPUTERNAME") If PC = "PC Lionel" Then [A1] = PC: MsgBox "Bravo : C'est" & chn Else [A1] = Empty: MsgBox "NON : C'est pas" & chn End If End Sub

si ton sujet est résolu, ~~marque mon post comme solution~~
envoie-moi des fraises avec de la bonne crème chantilly !

soan

Bonjour soan et merci pour ton code
Effectivement, c'est bien plus "Pro" - Bravo.

Pour le fichier test, j'ai mis : "[a1] = Environ("COMPUTERNAME")"
Toutefois,, pour que celui qui ouvre le classeur ne le voit pas, ce serait super le nom de l'ordinateur n'apparaisse pas dans le code, n'y ailleurs

Est-ce possible ?

Deadpool_CC · 25 Juin 2022

[Réglé] Colonne A = Colonne B (MD5)

Bonjour à tous !! Svp y a t-il moyen de rendre les cellules de la colonne A en MD5 en colonne B ? Par exemple en A : Bonjour En B : ebc58ab2cb4848d04ec23d83f7ddf985 En fait, j'en ai besoin pour coder 11.200 lignes... :s Merci pour votre aide

www.excel-downloads.com

job75 · 25 Juin 2022

Bonjour Lionel, le fil,

Pour qu'on ne puisse pas voir le code il suffit de protéger le VBAProject.

A+

soan · 25 Juin 2022

@Lionel

Usine à gaz à dit:
Pour le fichier test, j'ai mis : "[a1] = Environ("COMPUTERNAME")"
Toutefois,, pour que celui qui ouvre le classeur ne le voit pas, ce serait super de pouvoir cacher le nom de l'ordinateur dans le code
Est-ce possible ?

1) déjà, commencer par ne pas afficher le nom du PC en [A1] !
➯ en cellule A1, ne rien afficher du tout !

2) pour que le nom ne soit pas visible dans le code VBA :

a) mettre un mot de passe sur ton projet VBA ; ainsi,
c'est tout ton code qui sera à l'abri des espions !

b) choisir un password crypté, et mettre un module de décryptage ;
je suis sûr que job75 (salut) pourra te faire ça très bien !

code VBA (10 lignes) :

VB:

Option Explicit

Private Sub Workbook_Open()
  Const chn As String * 14 = " le bon ordi !"
  If Environ("COMPUTERNAME") = "PC Lionel" Then
    MsgBox "Bravo : C'est" & chn
  Else
    MsgBox "NON : C'est pas" & chn
  End If
End Sub

soan

Usine à gaz · 25 Juin 2022

Bonjour Gérard
Effectivement, mais je ne protège pas le code dans le VBAProject.
Mais si pas d'autre possibilité, je le ferai.
lionel

Deadpool_CC · 25 Juin 2022

Autre possibilité met les noms des ordinateurs autorisés dans une feuille (ecrit en blanc sur blanc) ... feuille que tu masques et protèges intégralement avec MdP

soan · 25 Juin 2022

Usine à gaz à dit:
Effectivement, mais je ne protège pas le code dans le VBAProject.
Mais si pas d'autre possibilité, je le ferai.

dans ce cas : pour mon post #9, choisis 2) b)

(salut Deadpool)

Usine à gaz · 25 Juin 2022

soan à dit:
@Lionel

1) déjà, commencer par ne pas afficher le nom du PC en [A1] !
➯ en cellule A1, ne rien afficher du tout !

2) pour que le nom ne soit pas visible dans le code VBA :

a) mettre un mot de passe sur ton projet VBA ; ainsi,
c'est tout ton code qui sera à l'abri des espions !

b) choisir un password crypté, et mettre un module de décryptage ;
je suis sûr que job75 (salut) pourra te faire ça très bien !

code VBA (10 lignes) :

VB:

Option Explicit Private Sub Workbook_Open() Const chn As String * 14 = " le bon ordi !" If Environ("COMPUTERNAME") = "PC Lionel" Then MsgBox "Bravo : C'est" & chn Else MsgBox "NON : C'est pas" & chn End If End Sub

soan

re-soan

1) déjà, commencer par ne pas afficher le nom du PC en [A1] ! : J'ai affiché juste pour le test
➯ en cellule A1, ne rien afficher du tout !

2) pour que le nom ne soit pas visible dans le code VBA :

a) mettre un mot de passe sur ton projet VBA ; ainsi,
c'est tout ton code qui sera à l'abri des espions ! : je fais ça aussi

b) choisir un password crypté, et mettre un module de décryptage : je sais et je fais ça aussi
je suis sûr que @job75 (salut) pourra te faire ça très bien !

Si le fichier est ouvert macros désactivées : tout ça ne sert à rien
Je me demandais si un autre moyen était possible ?
lionel

Deadpool_CC · 25 Juin 2022

Obliger à activer VBA
Protège tout et masque tout sauf une feuille qui explique que VBA doit être activer.
et sur cette feuille un bouton qui permet de demaquer et déprotéger les feuilles utiles du classeur (et masquer celle d'accueil.
à la sauvegarde/fermeture ... tu fait l'inverse pour ne laisser visible que la feuille d'accueil

Usine à gaz · 25 Juin 2022

Deadpool_CC à dit:
Obliger à activer VBA
Protège tout et masque tout sauf une feuille qui explique que VBA doit être activer.
et sur cette feuille un bouton qui permet de demaquer et déprotéger les feuilles utiles du classeur (et masquer celle d'accueil.
à la sauvegarde/fermeture ... tu fait l'inverse pour ne laisser visible que la feuille d'accueil

Merci Deadpool_CC

Je fais déjà tout çà lol

Si le fichier est ouvert macros désactivées : tout ça ne sert à rien

Je me demandais si un autre moyen était possible ?

Microsoft 365 exécuter un code uniquement si le classeur est ouvert sur mon ordinateur

Usine à gaz

XLDnaute Barbatruc

XL 2013 - vba ouvrir un classeur en trouvant uniquement avec son nom

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

soan

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

[Réglé] Colonne A = Colonne B (MD5)

job75

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

soan

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Discussions similaires