Rapport de message :*
 

Re: Problème: impossible de décocher l'item "masquer" des cellules

Titre du sujet : Re: Problème: impossible de décocher l'item "masquer" des cellules
par thermaltake74 le 04/11/2009 13:35:33


Merci Mth, merci myDearFriend!

C'était effectivement ça [Cells.FormulaHidden=False,
]... et ça fonctionne trés bien... Encore merci le forum.
A bientôt sans doute
Je vais travailler mon VBA !

Private Sub Workbook_Open()
Dim F As Worksheet
Dim MFCstyle As Style
    'Déprotège toutes les feuilles
    For Each F In Worksheets
        F.Unprotect "MonPass"
    Next F
    'Vérifie si le Style "MFC" existe bien ou le crée au besoin
    On Error Resume Next
    Set MFCstyle = ActiveWorkbook.Styles("MFC")
    On Error GoTo 0
    If MFCstyle Is Nothing Then
        With ActiveWorkbook.Styles.Add("MFC")
            .IncludeNumber = False
            .IncludeBorder = False
            .IncludeProtection = False
            .IncludeAlignment = False
        End With
    End If
    'Reprotège toutes les feuilles
    For Each F In Worksheets
        With F
            If .Name <> "MFC" Then
                .Protect "MonPass", DrawingObjects:=False, UserInterfaceOnly:=True
                .Cells.FormulaHidden = False
            End If
        End With
    Next F
End Sub