Rapport de message :*
 

Re: MFC avec critères illimités (problème avec protection feuille)

Titre du sujet : Re: MFC avec critères illimités (problème avec protection feuille)
par myDearFriend! le 09/11/2008 21:39:07

Citation :
Romy a écrit :
Deux dernière petite questions

Comment je fais pour protéger les autres feuilles de mon classeur?
Comment je fais pour que l'utilisateur ne puisse pas voir mes formules de calcul, ni même sélectionné les cellules véroullés?


Pour répondre au 2ème point, il convient d'échanger la ligne de code que je te proposais, par les lignes suivantes (et au même endroit) :
   With Sheets("Feuil1")
        .Protect "MonPass", DrawingObjects:=False, UserInterfaceOnly:=True
        .EnableSelection = xlUnlockedCells
        .Cells.FormulaHidden = True
    End With
Ceci est à adapter et répéter pour chacune des feuilles que tu souhaites protéger ainsi.

Et si tu as de nombreuses feuilles, tu peux utiliser une boucle pour faire cette opération. Ci-dessous, une façon de faire :
Private Sub Workbook_Open()
Dim F As Worksheet
    For Each F In Worksheets
        With F
            If .Name <> "MFC" Then
                .Protect "MonPass", DrawingObjects:=False, UserInterfaceOnly:=True
                .EnableSelection = xlUnlockedCells
                .Cells.FormulaHidden = True
            End If
        End With
    Next F
End Sub
Ce code va protéger toutes les feuilles du classeur à son ouverture sauf la feuille nommée "MFC" qu'il est préférable de masquer aux yeux de l'utilisateur final (par menu Format / Feuille / Masquer).

Pour les feuilles protégées par ce code : seules les cellules non verrouillées seront sélectionnables et les formules de calcul seront cachées. Ces 2 options sont d'ailleurs un peu "too much" puisque, si une cellule est verrouillée, on ne pourra pas la sélectionner, et donc on ne pourra pas voir sa formule dans la barre des formules...

Cordialement,