verrouiller par une macro et mot de passe

JC de Lorient

XLDnaute Impliqué

• 8 Juin 2006

• #2

salut Phil, le forum
dans ta macro tu peux passer par une Inputbox
du type :
A = inputBox 'mot de passe'
ensuite une condition
If A = 'MonCode' then ma macro

voilà voilà

 

Vote positif 0 Vote négatif

I

icecream33

Guest

• 9 Juin 2006

• #3

Hello Phill tes maccros pour verouiller et deverrouiller m'interesse peux tu me les faire parvenir stp?

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 9 Juin 2006

• #4

Bonjour
c'est très simple il suffit de verrouiller une ou plusieurs feuilles après avoir fait outils, macro, mouvelle macro et donner un nom a la nouvelle macro.

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 9 Juin 2006

• #5

Bonjour
c'est très simple il suffit de verrouiller une ou plusieurs feuilles après avoir fait outils, macro, mouvelle macro et donner un nom a la nouvelle macro.

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 9 Juin 2006

• #6

Bonjour
c'est très simple il suffit de verrouiller une ou plusieurs feuilles après avoir fait outils, macro, mouvelle macro et donner un nom a la nouvelle macro.

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 9 Juin 2006

• #7

bonjour,
trouver ici ce type de protection [file name=mdp_20060609202612.zip size=10987]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mdp_20060609202612.zip[/file]
ça pourrait te convenir.
à+

 

Pièces jointes

• mdp_20060609202612.zip

  10.7 KB · Affichages: 130

Vote positif 0 Vote négatif

P

pak77

Guest

• 9 Février 2011

• #8

Re : verrouiller par une macro et mot de passe

Bonjour à tous,

et merci à ccpapy pour son fichier.

Je sais que je déterre le sujet mais il m'a été très utile pour l'un de mes fichiers.

Par contre, en utilisant ces macros pour protéger et déprotéger le fichier lorsque je clique sur le bouton pour déprotéger les feuilles le mot de passe s'écrit en toute lettre. Donc si quelqu'un est à coté il obtient le mot de passe. Aurait-il moyen de mettre des astérisque ou autre pour ne pas que le mot de passe s'affiche??

Code:

Sub CommandButton2_Click()

    Dim Feuil As Worksheet
    For Each Feuil In Sheets
    Feuil.Unprotect PassWord:="123"
    Next Feuil
    Dim PassWord As String
    
    PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
    If PassWord = "123" Then
        ActiveSheet.Unprotect "123"
        Else
        MsgBox "Erreur Mot de Passe !", , "Attention"
    End If

End Sub

Merci pour toute suggestion.

 

Vote positif 0 Vote négatif