Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Affecté un mots de passe a une macros

Affecté un mots de passe a une macros

5 réponses
Avatar
scorpion59
Bonjour, et merci d'avance

voila j'ai un macros

Public Sub MontreCacheFeuille()
If Feuil3.Visible = xlSheetVisible Then
Feuil3.Visible = xlSheetHidden
Else
Feuil3.Visible = xlSheetVisible
End If
End Sub

Qui fonctione tres bien mais je voudrais a jouter un mots de passe avec cette macro

Sub modepasse()
Dim mDp As String
mDp = InputBox("Saisissez ci dessous votre mot de passe", _
"M.P.F.E. Kontrol", "*****")
If mDp <> "Zaza" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", _
vbOKOnly, "M.P.F.E."
Exit Sub
Else
masub
End If
End Sub

Sub masub()
MsgBox "Bravo", , "M.P.F.E."
End Sub

mais sa ne parche pas il comprend pas comment associé les deux

je vous remerci par avance

cordialement scorpion
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
HD
Perso, je ferai ça :

Public Function MontreCacheFeuille()
If Feuil3.Visible = xlSheetVisible Then
Feuil3.Visible = xlSheetHidden
Else
Feuil3.Visible = xlSheetVisible
End If
End Function

Sub modepasse()
Dim mDp As String
mDp = InputBox("Saisissez ci dessous votre mot de passe", _
"M.P.F.E. Kontrol", "*****")
If mDp <> "Zaza" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", _
vbOKOnly, "M.P.F.E."
Exit Sub
Else
MontreCacheFeuille
End If
End Sub

@+
HD
Avatar
Jacquouille
Bonjour HD

Seriez-vous un disciple de la première heure, car je vous un "Zaza" ?

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"HD" a écrit dans le message de groupe de discussion :
k4e27v$2g99$

Perso, je ferai ça :

Public Function MontreCacheFeuille()
If Feuil3.Visible = xlSheetVisible Then
Feuil3.Visible = xlSheetHidden
Else
Feuil3.Visible = xlSheetVisible
End If
End Function

Sub modepasse()
Dim mDp As String
mDp = InputBox("Saisissez ci dessous votre mot de passe", _
"M.P.F.E. Kontrol", "*****")
If mDp <> "Zaza" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", _
vbOKOnly, "M.P.F.E."
Exit Sub
Else
MontreCacheFeuille
End If
End Sub

@+
HD
Avatar
scorpion59
Le mardi 02 Octobre 2012 à 07:47 par scorpion59 :
Bonjour, et merci d'avance

voila j'ai un macros

Public Sub MontreCacheFeuille()
If Feuil3.Visible = xlSheetVisible Then
Feuil3.Visible = xlSheetHidden
Else
Feuil3.Visible = xlSheetVisible
End If
End Sub

Qui fonctione tres bien mais je voudrais a jouter un mots de passe avec cette
macro

Sub modepasse()
Dim mDp As String
mDp = InputBox("Saisissez ci dessous votre mot de passe", _
"M.P.F.E. Kontrol", "*****")
If mDp <> "Zaza" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", _
vbOKOnly, "M.P.F.E."
Exit Sub
Else
masub
End If
End Sub

Sub masub()
MsgBox "Bravo", , "M.P.F.E."
End Sub

mais sa ne parche pas il comprend pas comment associé les deux

je vous remerci par avance

cordialement scorpion


merci impec sa tourne tres jolie travaille a vous deux
Avatar
HD
Bonjour Jacquouille

Seriez-vous un disciple de la première
heure, car je vous un "Zaza" ?


Le mot de passe "Zaza" est celui qui est dans l'exemple de l'initiateur de
ce fil de discussion... je n'ai fait que reprendre la partie de script.. ;-)

@+
HD
Avatar
Jacquouille
Effectivement, tout est là:
"M.P.F.E. Kontrol", "*****")
Désolé, je n'avais pas fait attention.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"HD" a écrit dans le message de groupe de discussion :
k4m03r$25k5$

Bonjour Jacquouille

Seriez-vous un disciple de la première
heure, car je vous un "Zaza" ?


Le mot de passe "Zaza" est celui qui est dans l'exemple de l'initiateur de
ce fil de discussion... je n'ai fait que reprendre la partie de script.. ;-)

@+
HD