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
|