protection de macros

[criscris11]

Bonjour le forum,
Je voulais simplement savoir s'il était possible de protéger l'exécution d'une macro par un mot de passe ?
Merci et bonne journée.

 

[JeanMarie]

Bonjour

Essaye en adaptant ton code suivant l'exemple ci-dessous.

Public Sub Toto()
Dim MyMtPss As String
   MyMtPss = Application.InputBox('Mot de passe pour continuer')
   If MyMtPss  'XLD' Then Exit Sub
   MsgBox 'tu peux continuer'
End Sub

Les symboles inférieur et supérieur ne s'affichent pas

@+Jean-Marie

Message édité par: JeanMarie, à: 30/12/2005 13:05

 

[criscris11]

Bonjour JM,
Merci pour ta réponse mais il y a une erreur de syntaxe : erreur de compilation. Cela doit venir peut-être du fait que je ne sais pas où placer ma macro à l'intérieur de ton code si c'est bien comme cà qu'il faut faire.
Merci de m'éclairer un peu.
@+.

 

[JeanMarie]

Re...

Non les symboles INFERIEUR et SUPERIEUR ne sont pas affichés entre MyMtPss ICI 'XLD'

@+Jean-Marie

 

[Nevil]

L'erreur de compilation du code de Jean-Marie vient surment du MsgBox 'tu peux continuer' car je pense qu'il faudrait un '=' c'est a dire:

MsgBox = 'tu peux continuer'


Essaye ca peut etre

 

[criscris11]

Salut JM,
Autant pour moi je n'avais pas compris pourquoi tu avais mis cette phrase à la fin de ta réponse, merci cà marche impec mais où dois-je placer ma macro : au début, à la fin ou dans un autre module ?
Encore merci, JM.

 

[Nevil]

Et je suppose qu'avec une petite boucle, le mot de passe aurait plus grand interet:

Sub pass()

Dim pass As String
Do
pass = Application.InputBox('Tapez un mot de pass pour continuer:')

If pass = 'XLD' Then
End
Else
End If
Loop
End Sub

 

[JeanMarie]

Re...

CrisCris, si tu places la partie en fin de macro, l'effet ecompté ne sert à rien, il faut le mettre en début de ta macro.

@+Jean-Marie

 

[criscris11]

JM, Nevil,
Merci à tous les deux je teste tout cà et vous envoie une petite réponse juste après.
Bon après-midi et tous les deux et à tout le forum.
@+.

 

[criscris11]

Re,
Ok impeccable pour ton code JeanMarie (pas encore testé celui de Nevil). Par contre j'ai un petit souci qui n'a rien à voir avect ta macro : voilà j'ai une macro qui me recopie toutes les formules de la ligne du haut quand j'ai inséré une nouvelle ligne et donc je voudrais qu'avant de reprotéger toutes les feuilles de mon classeur, qu'on est le temps da saisir les 3 cellules à remplir qui sont communes à toutes mes feuilles. Peut-on déclencher ma macro 'protection' après un laps de temps ou quand je retourne sur mon menu (à savoir que c'est une macro que j'utilise pour accéder au menu et qui est commune à tous mes onglets (car je cache les onglets afin d'éviter de mauvaises surprises. Merci pour tes lumières. @+.

 

[JeanMarie]

Re...

Je suis pas un spécialiste de VBA, en plus sans code le code de ta macro, c'est très difficile de te répondre.

@+Jean-Marie

 

[criscris11]

C'est pas grave, je vais procéder autrement mais même si tu n'est pas un spécialiste du VBA tu m'auras au moins appris à prtéger l'exécution d'une macro. Merci encore une fois et à bientôt.