protection de macros

JeanMarie

XLDnaute Barbatruc

• 30 Décembre 2005

• #2

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 30 Décembre 2005

• #3

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.
@+.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Décembre 2005

• #4

Re...

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 30 Décembre 2005

• #5

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 30 Décembre 2005

• #6

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.

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 30 Décembre 2005

• #7

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Décembre 2005

• #8

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 30 Décembre 2005

• #9

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.
@+.

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 30 Décembre 2005

• #10

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. @+.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Décembre 2005

• #11

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 30 Décembre 2005

• #12

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.

 

Vote positif 0 Vote négatif