Titre du sujet : Re: MFC avec critères illimités (problème avec protection feuille) par myDearFriend! le 10/11/2008 18:06:53
Arf, avec des images de cette taille, effectivement, il ne faut s'étonner de rien, et surtout si tu en beaucoup comme ça...
Bon, une seule solution à tester :
Private Sub Workbook_Open()
Dim F As Worksheet
Dim MFCstyle As Style
Application.ScreenUpdating = False
'Déprotège toutes les feuille
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 = True
End If
End With
Next F
Application.ScreenUpdating = True
End Sub
L'ajout de Application.ScreenUpdating à False au début de la procédure et à True à la fin, devrait peut-être améliorer un peu les choses... A TESTER !
Cordialement,
|