verrouiller par une macro et mot de passe

[Philippe]

Bonjour,
Voila mon probleme, dans un classeur j'ai plusieurs feuilles que je verrouille et dévérrouille avec deux macros. mais je voudrais que pour le dévérrouillage excel me demande le mot de passe pour le renter manuellement.
merci si vous avez la solution.
Philippe

 

[JC de Lorient]

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à

 

[icecream33]

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

 

[philippe]

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.

 

[philippe]

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.

 

[philippe]

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.

 

[ccpapy]

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

 

[pak77]

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??

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.