"Michel Pierron" a écrit dans le message de news:%
Bonjour Alpha; Plutôt que Private Sub, en tête du module: Option Private Module Les macros ne seront pas visibles et resteront accessibles en appel. MP
"ChrisV" a écrit dans le message de news:%23F5cLX%
Bonjour Alpha,
Tu peux faire précéder la macro: Sub quelquechose() par Private Sub quelquechose()
Elle ne sera ainsi pas visible par Outils/Macro/Macros...
Sinon, tu peux toujours faire précéder les instructions de la macro par une
demande de mot de passe...
Sub protProc() Dim rep As String rep = InputBox("Quel est le mot magique ?") If rep <> "bonjour" Then MsgBox "Impossible d'exécuter la procédure " _ & "sans le mot de passe !", , "Mot de passe incorrect..." Exit Sub End If 'si le MdP est correct exécution du reste du code de la macro 'exemple MsgBox "Merci, et à bientôt sur MPFE ! ;-)" End Sub
ChrisV
"Alpha" a écrit dans le message de news:
Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro
macros >>> exécuter. Merci beaucoup
Alpha
Merci beaucoup Michel
Alpha
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:%23VYAm7D2DHA.2408@tk2msftngp13.phx.gbl...
Bonjour Alpha;
Plutôt que Private Sub, en tête du module:
Option Private Module
Les macros ne seront pas visibles et resteront accessibles en appel.
MP
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:%23F5cLX%231DHA.1676@TK2MSFTNGP12.phx.gbl...
Bonjour Alpha,
Tu peux faire précéder la macro: Sub quelquechose() par
Private Sub quelquechose()
Elle ne sera ainsi pas visible par Outils/Macro/Macros...
Sinon, tu peux toujours faire précéder les instructions de la macro par
une
demande de mot de passe...
Sub protProc()
Dim rep As String
rep = InputBox("Quel est le mot magique ?")
If rep <> "bonjour" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot de passe !", , "Mot de passe incorrect..."
Exit Sub
End If
'si le MdP est correct exécution du reste du code de la macro
'exemple
MsgBox "Merci, et à bientôt sur MPFE ! ;-)"
End Sub
ChrisV
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
OLwl4y91DHA.2360@TK2MSFTNGP10.phx.gbl...
Bonsoir,
comment faire afin d'éviter qu'un utilisateur exécute une macro avec
macro
"Michel Pierron" a écrit dans le message de news:%
Bonjour Alpha; Plutôt que Private Sub, en tête du module: Option Private Module Les macros ne seront pas visibles et resteront accessibles en appel. MP
"ChrisV" a écrit dans le message de news:%23F5cLX%
Bonjour Alpha,
Tu peux faire précéder la macro: Sub quelquechose() par Private Sub quelquechose()
Elle ne sera ainsi pas visible par Outils/Macro/Macros...
Sinon, tu peux toujours faire précéder les instructions de la macro par une
demande de mot de passe...
Sub protProc() Dim rep As String rep = InputBox("Quel est le mot magique ?") If rep <> "bonjour" Then MsgBox "Impossible d'exécuter la procédure " _ & "sans le mot de passe !", , "Mot de passe incorrect..." Exit Sub End If 'si le MdP est correct exécution du reste du code de la macro 'exemple MsgBox "Merci, et à bientôt sur MPFE ! ;-)" End Sub
ChrisV
"Alpha" a écrit dans le message de news:
Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro
macros >>> exécuter. Merci beaucoup
Alpha
Chris MICHEL
Moi, j'ai un truc simple: je déclare
sub portnawak(byval variable inutile as integer) ... end sub
Elle n'apparait plus dans la liste des macros à lancer via le menu (car elle a une variable), mais ça reste une macro publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine----- Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro
macros >>> exécuter. Merci beaucoup
Alpha
.
Moi, j'ai un truc simple: je déclare
sub portnawak(byval variable inutile as integer)
...
end sub
Elle n'apparait plus dans la liste des macros à lancer via
le menu (car elle a une variable), mais ça reste une macro
publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine-----
Bonsoir,
comment faire afin d'éviter qu'un utilisateur exécute une
macro avec macro
sub portnawak(byval variable inutile as integer) ... end sub
Elle n'apparait plus dans la liste des macros à lancer via le menu (car elle a une variable), mais ça reste une macro publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine----- Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro
macros >>> exécuter. Merci beaucoup
Alpha
.
Alpha
Merci beaucoup Chris Alpha
"Chris MICHEL" a écrit dans le message de news:024a01c3d8ea$7eda79e0$ Moi, j'ai un truc simple: je déclare
sub portnawak(byval variable inutile as integer) ... end sub
Elle n'apparait plus dans la liste des macros à lancer via le menu (car elle a une variable), mais ça reste une macro publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine----- Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro
macros >>> exécuter. Merci beaucoup
Alpha
.
Merci beaucoup Chris
Alpha
"Chris MICHEL" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:024a01c3d8ea$7eda79e0$a001280a@phx.gbl...
Moi, j'ai un truc simple: je déclare
sub portnawak(byval variable inutile as integer)
...
end sub
Elle n'apparait plus dans la liste des macros à lancer via
le menu (car elle a une variable), mais ça reste une macro
publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine-----
Bonsoir,
comment faire afin d'éviter qu'un utilisateur exécute une
macro avec macro
"Chris MICHEL" a écrit dans le message de news:024a01c3d8ea$7eda79e0$ Moi, j'ai un truc simple: je déclare
sub portnawak(byval variable inutile as integer) ... end sub
Elle n'apparait plus dans la liste des macros à lancer via le menu (car elle a une variable), mais ça reste une macro publique utilisable dans n'importe quel module:
portnawak(1)
Voila.
-----Message d'origine----- Bonsoir, comment faire afin d'éviter qu'un utilisateur exécute une macro avec macro