Vérrouiller ou Dévérouiller une feuille, sauf quelques cellules

Question

Bonjour,

Je vais y aller directement et simplement je l'espère :

 - Je cherche à vérrouiller le classeur et les feuilles de calcul via une macro Vba (qu'on active en cliquant sur une image dans une des feuilles)
Avec un mot de passe

 - Je cherche à dévérrouiller le classeur et les feuilles de calcul via une autre macro Vba (qu'on active en cliquant sur une image dans une des feuilles)

Jusqu'ici tout va bien voici les macros que j'utilise :



-------------------------------------------------------------------------




Option Explicit
Sub unproto()
Dim nombre As Double, i As Integer, mdp As String



mdp = InputBox("Mot de Passe ?")
If mdp = "toto" Then
    ActiveWorkbook.Unprotect (mdp)
    nombre = ThisWorkbook.Worksheets.Count
        For i = 1 To nombre
            Worksheets(i).Unprotect
        Next i
Else
    MsgBox ("Mauvais mot de passe")
    Exit Sub
End If



End Sub



-------------------------------------------------------------------------

Option Explicit
Sub proto()
Dim nombre As Double, i As Integer
nombre = ThisWorkbook.Worksheets.Count
    For i = 1 To nombre
        Worksheets(i).Protect
    Next i
ActiveWorkbook.Protect Password:="toto"
End Sub

-------------------------------------------------------------------------

Là où cela devient difficile c'est qu'il me faut les conditions suivantes :

- Quand la feuille est vérrouillé, j'ai besoin d'avoir un certain nombre de cellule dévérrouillé (en fait qu'il ne faudrait pas vérrouiller).
- J'ai besoin d'utiliser les filtres aussi.

Si quelqu'un veut bien m'aider, je suis prêt à lui envoyer le fichier pour voir plus clair.

Je reste à votre disposition !

EvilProg
++

Evilprog · Answer

Je me suis peut-être trompé de forum...enfin j'ai pas du poster dans le bon endroit 

Je travail sur Excel 2007 - et donc VBA qui va avec. Si quelqu'un est dispo pour mon problème qu'il n'hésite pas

Vérrouiller ou Dévérouiller une feuille, sauf quelques cellules

1 réponse

Votre réponse

Discussions similaires