Bonjour
Je suis sous win Xp et excel 2003 j'ai crée un fichier pour une association
et bien que les feuilles de mon classeur soient protégées avec un code
quelqu'un a pu supprimer une macro. En effet même si la feuille est protégé
le menu Outils --> Macro est toujours accessible et on peut supprimer
n'inporte quel macros. J'ai essayé d'enregistrer une macro "supprimer une
macro" mais rien n'a été enregistré, cela fait plusieurs jours que j'essaie
de trouver . Avez-vous une solution?
Merci
Cordialement
Anne-Marie
ALT + F11 Va dans Outilis - Propriétés de VBAProject - Protection - verrouillé le projet pour l'affichage et inscrit un mot de passe
Starwing
Starwing
Bonjour Anne-Marie,
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que le résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier message...;-(( Ce qui veut dire que l'utilisateur a encore le droit de détruire tes macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande Outils-Macro La commande sera complètement bloqué.
Starwing
Bonjour Anne-Marie,
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que le
résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier
message...;-((
Ce qui veut dire que l'utilisateur a encore le droit de détruire tes
macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True
End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande
Outils-Macro
La commande sera complètement bloqué.
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que le résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier message...;-(( Ce qui veut dire que l'utilisateur a encore le droit de détruire tes macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande Outils-Macro La commande sera complètement bloqué.
Starwing
Vincent
Bonjour. Quelque chose de plus simple pour masquer les macros Mettre en tête de module : Option Private Module Avec cela, les macros seront invisible Bonne soirée Vincent
"Starwing" a écrit dans le message de news:
Bonjour Anne-Marie,
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que le résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier message...;-(( Ce qui veut dire que l'utilisateur a encore le droit de détruire tes macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande Outils-Macro La commande sera complètement bloqué.
Starwing
Bonjour.
Quelque chose de plus simple pour masquer les macros
Mettre en tête de module :
Option Private Module
Avec cela, les macros seront invisible
Bonne soirée
Vincent
"Starwing" <ubik10@hotmail.com> a écrit dans le message de news:
uvJ33pGuEHA.3524@TK2MSFTNGP15.phx.gbl...
Bonjour Anne-Marie,
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que
le
résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier
message...;-((
Ce qui veut dire que l'utilisateur a encore le droit de détruire tes
macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open()
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False
Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True
Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True
End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande
Outils-Macro
La commande sera complètement bloqué.
Bonjour. Quelque chose de plus simple pour masquer les macros Mettre en tête de module : Option Private Module Avec cela, les macros seront invisible Bonne soirée Vincent
"Starwing" a écrit dans le message de news:
Bonjour Anne-Marie,
Je suis désolé, après avoir écrit la première réponse, j'ai constaté que le résultat ne donnerait rien. J'ai tenté, mais en vain d'annuler mon premier message...;-(( Ce qui veut dire que l'utilisateur a encore le droit de détruire tes macros...
Je propose donc une autre solution:
Dans le ThisWorkbook:
Private Sub Workbook_Open() Application.CommandBars("Tools").FindControl(ID:R2).Enabled = False Application.CommandBars("Tools").FindControl(ID:0017).Enabled = False End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Tools").FindControl(ID:R2).Enabled = True Application.CommandBars("Tools").FindControl(ID:0017).Enabled = True End Sub
Comme cela, l'utilisateur n'aura même plus droit d'utiliser la commande Outils-Macro La commande sera complètement bloqué.
Starwing
Jacky
:-))))
JJ
"FxM" a écrit dans le message de news:Op%
Bonsoir,
... et bien le noter quelque part car la Ferrari est pleine.
@+ FxM
Bonjour,
ALT + F11 Va dans Outilis - Propriétés de VBAProject - Protection - verrouillé le projet pour l'affichage et inscrit un mot de passe
Starwing
:-))))
JJ
"FxM" <nullos@greuchmeu.ici> a écrit dans le message de
news:Op%23WdUGuEHA.2536@TK2MSFTNGP11.phx.gbl...
Bonsoir,
... et bien le noter quelque part car la Ferrari est pleine.
@+
FxM
Bonjour,
ALT + F11
Va dans Outilis - Propriétés de VBAProject - Protection - verrouillé le
projet pour l'affichage et inscrit un mot de passe