Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 03/07/2009, 17h08   #1
Nouveau Membre du Club
 
Inscription : juin 2009
Messages : 113
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 113
Points : 25
Points : 25
Par défaut comment masquer une macro?

Bonjour au forum
Est-il possible de masquer une macro ,et donc la rendre exécutable uniquement par l'auteur du classeur: pourquoi pas un mot de passe par exemple?
mobiclick est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 17h22   #2
Membre Expert
 
Avatar de laetitia
 
Inscription : décembre 2002
Messages : 1 281
Détails du profil
Informations personnelles :
Âge : 21

Informations forums :
Inscription : décembre 2002
Messages : 1 281
Points : 1 363
Points : 1 363
bonjour mobiclick le forum 2 méthodes
en debut de ton module
Code :
1
2
Option Explicit
Option Private Module
aucune macro apparait
ou macro specifique
Code :
1
2
3
Sub essai(Optional X As String)
'ton code
end sub
evidamment protéger ton projet

ou bien sur une demande de mot de passe au demarrage de ta macro!!
avec un imputbox ou userform ect..
__________________
SALUTATIONS
laetitia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 18h01   #3
Nouveau Membre du Club
 
Inscription : juin 2009
Messages : 113
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 113
Points : 25
Points : 25
Merci Laetitia
la macro ne se trouve pas dans un module mais dans ThisWorkbook, alors je nesais pas trop ou mettre le code que tu m'as donné.voici la macro dont je je voudrais restreindre l'utilisation
Code :
1
2
3
Sub afficheFeuille()
Worksheets("Modèle").Visible = True
End Sub
MERCI

Dernière modification par AlainTech ; 07/07/2009 à 05h25. Motif: Fusion de 2 messages
mobiclick est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 18h27   #4
Membre Expert
 
Avatar de laetitia
 
Inscription : décembre 2002
Messages : 1 281
Détails du profil
Informations personnelles :
Âge : 21

Informations forums :
Inscription : décembre 2002
Messages : 1 281
Points : 1 363
Points : 1 363
re tu la met ou dans ThisWorkbook??? ta feuille il faut la proteger par vba
pas visible xlsheetsVeryhidden visible xlsheetVisible

un exemple a adapter

Code :
1
2
3
4
5
6
7
8
9
10
Sub afficheFeuille()
Dim i As Variant, message As String
message = "taper votre code"
i = InputBox(message, " mot de passe")
If i <> "toto" Then
MsgBox "mot de passe pas valide"
Exit Sub
End If
Worksheets("Modèle").Visible = xlSheetVisible
End Sub
ps met des balises sur ton code tu peus corriger tu fais editer tu peus corriger
si gros nounours passe par la
__________________
SALUTATIONS

Dernière modification par laetitia ; 03/07/2009 à 18h44.
laetitia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 19h25   #5
Membre du Club
 
Inscription : juin 2009
Messages : 48
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 48
Points : 53
Points : 53
salut .

Tu pourrais peut etre creer 2 macros.
la 1ere que tu lances par thisworkbook et ou tu demendes l'entrée d'un mot de passe si pas ok alors end sub, si ok lances ta 2e macros.
ne pas oublie de protéger thiswokbook et tes macros par des mots de passe.

clic droit sur l'icone concerne dans l'explorateur, propriété de l'objet vba, puis onglet protection (de mémoire)
N'oublies pas tes codes . protection active au redemarrage.
CRACOS38 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 22h37   #6
Nouveau Membre du Club
 
Inscription : juin 2009
Messages : 113
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 113
Points : 25
Points : 25
GRAND MERCI
ça marche à la perfection...bravo à tous
mobiclick est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 18h37.


 
 
 
 
Partenaires

Hébergement Web