Activer une macro sur mon ordinateur, pas sur celui de Dhany

Bonjour le forum,

J'ai un fichier excel ou je vérifie et corrige les données.

Donc je le promène entre mon ordinateur et l'ordinateur de celui qui saisi,

j'ai 3 trois macro dont je me sert, mais je ne veux pas que celui qui saisi puisse

s'en servir, parce que dans le ruban Développeur et sur Macro, ont voit les macros,

donc si on clic dessus une macro il peut l'exécuter

Amicalement.

Bonjour dhany,

bonjour Marie !

patiente un moment : j't'écris un message.

dhany

re dhany, le forum

si tu me trouves une solution tu pourras regarder ma macro

sinon

voici 2 solutions très simples pour ne plus voir les macros dans la fenêtre Macro :

"Solution n° 2"

ajoute un argument fictif à ta macro, par exemple :

Sub Essai(dummy As Byte)
  'ta sub n'utilise pas dummy, mais grâce à lui, ta macro n'apparaît pas dans  la liste des macros
  'tu peux traduire dummy par : « donnée bidon »
End Sub

dans mon dico anglais :

alors c'est bon ? j'pourrai voir ta macro ?

dhany

Bonjour,

Pendant que Dhany vous fait des câlinous, je vous propose 2 pistes :

1- protéger votre projet (cassable facilement mais pour un non féru d'informatique, cela devrait suffire)

2- insérer vos macros dans un fichier xlam à mettre dans votre musette et à sortir pour l'emploi.

thev a écrit :

Pendant que Dhany vous fait des câlinous

j'le crois pas ! thev est jaloux !!!

dhany

bonjour tev,

Mon projet est déjà protéger

et xlam je ne sais pas faire

Re dhany

dhany a écrit :

voici 2 solutions très simples pour ne plus voir les macros dans la fenêtre Macro :

"Solution n° 1"

bande les yeux de l'utilisateur avec un foulard, et dis-lui qu'tu veux jouer à Colin-maillard !

https://fr.wikipedia.org/wiki/Colin-maillard

Oui je veux bien, mais il va cliquer dessus,

« cliquer dessus » ? sur quoi, sur le foulard ?

pas sur la macro, puisqu'elle est pas dans la fenêtre "Macro".

pour xlam, faut utiliser ce type de fichier :

"Macro complémentaire Excel"

dhany

Re,

et Application.UserName ?????

si c'est mon ordi (Marie) activer la macro

et si c'est son ordin (maxence) ne pas activer !!!!!!!!!! vous n'avez pas

accès à cette macro.

ben t'as juste à tester le UserName, alors !

et que penses-tu d'la Solution n° 2 ? elle est sérieuse : fais l'essai !

n'apparaît pas dans la fenêtre Macro.

dhany

Sub Essai()
  If Application.UserName <> "Marie" Then
    MsgBox "Vous n'avez pas accès à cette macro !", 48, "Erreur !": Exit Sub
  End If
  'ici, exécution de la macro pour Marie uniquement !!!
End Sub

ainsi, Maxence ne pourra pas utiliser la macro, ni personne d'autre que Marie !

(car Marie a ses macros spéciales bien à elle, réservées à son seul usage personnel !)

dhany

Re,

J'avais regardé la 1 et pas la 2 !

dhany a écrit :

voici 2 solutions très simples pour ne plus voir les macros dans la fenêtre Macro :

[spoiler="Solution n° 2"]

ajoute un argument fictif à ta macro, par exemple :

Sub Essai(dummy As Byte)
  'ta sub n'utilise pas dummy, mais grâce à lui, ta macro n'apparaît pas dans  la liste des macros
  'tu peux traduire dummy par : « donnée bidon »
End Sub

dans mon dico anglais :

Screen.jpg

Bon je viens d'essayer la solution 2, effectivement on ne la voit plus

Sub A(dummy As Byte)
' Affiche les col masquées Macro
    ActiveSheet.Unprotect "ER"
    Columns("Z:AO").Select
    Selection.EntireColumn.Hidden = False
    Range("J2").Select
End Sub

mais elle fonctionne pas. Tu l'as déjà testée cette Sub ?

essaye ceci :

Option Explicit

Sub A(dummy As Byte)
' Affiche les col masquées Macro
    ActiveSheet.Unprotect "ER"
    Application.ScreenUpdating = 0
    Columns("Z:AO").Hidden = False
    ActiveSheet.Protect "ER"
    [J2].Select
End Sub

Sub Essai()
  If Application.UserName <> "Marie" Then
    MsgBox "Vous n'avez pas accès à cette macro !", 48, "Erreur !": Exit Sub
  End If
  A 0
End Sub

dhany

Bonjour,

Si tu ne veux pas que les macros apparaissent dans la fenêtre Macro (ALT F8),

Il suffit, dans l'éditeur, en en-tête des modules, de saisir :

Option Private module

Crée ensuite des raccourcis pour lancer tes procédures.

Cdlt.

Bonjour tout le monde,

Et si tu places Option Private Module en tête de module et que tu protèges ton VBAproject par un mot de passe ?

Cordialement,

EDIT: Bonjour Jean-Eric, je recherchais justement celui qui m'avait donné ce tuyau

https://forum.excel-pratique.com/viewtopic.php?f=2&t=102919

Bonjour Jean-Eric, xorsankukai,

je connais Private Sub, bien sûr : je l'ai déjà utilisé de nombreuses fois ! en fait, j'ai oublié de préciser que mon astuce est pour une sub sans argument au départ, et qui doit être utilisée par un autre module : on ne peut alors pas la déclarer privée !

je connais aussi Option Private Module, mais perso, j'ai jamais eu besoin que toutes les subs de mon module soient privées !

( j'suis pas si cachottier qu'ça ! )

dhany

He bonjour xorsankukai,

xorsankukai a écrit :

Bonjour tout le monde,

Et si tu places Option Private Module en tête de module et que tu protèges ton VBAproject par un mot de passe ?

Cordialement,

EDIT: Bonjour Jean-Eric, je recherchais justement celui qui m'avait donné ce tuyau

https://forum.excel-pratique.com/viewtopic.php?f=2&t=102919

Je viens d'essayer, mon VBAprojet à bien un mot de passe.

Je ne vois pas les macros, et mes touches de raccourci ne fonctionne pas.

Alors je plane.

Je mets mon fichier essai..

euh, si on connaît pas ton mot de passe, ça va être difficile de t'aider !

dhany

edit : désolé, j'ai vu que tu as indiqué le mot de passe dans ton fichier !

(j'l'avais pas encore téléchargé et ouvert)

dhany