jeromear
XLDnaute Junior
Je reviens sur mon pb de protection de cellules :
Tant que le fichier reste ouvert tout va bien
Mais quand il est fermé puis réouvert les cellules verrouillées des feuilles se retrouvent protégées aussi.
Sur l'aide Vb dans "protect" on parle de UserInterfaceOnly
mais je ne sais pas comment appliquer cet argument
Est ce que quelqu'un connaît ce problème?
Tant que le fichier reste ouvert tout va bien
Mais quand il est fermé puis réouvert les cellules verrouillées des feuilles se retrouvent protégées aussi.
Sur l'aide Vb dans "protect" on parle de UserInterfaceOnly
mais je ne sais pas comment appliquer cet argument
Est ce que quelqu'un connaît ce problème?
Code:
Sub EFFACER()
'
' EFFACER Macro
' Macro enregistrée le 14/01/2010 par JEROME
'
Dim cel As Range
Dim tablo, i As Byte
Application.ScreenUpdating = False
tablo = Array("COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "COM10") 'nombre de feuilles étudiées limité à 255, sinon => i As Integer
For i = 0 To UBound(tablo)
With Sheets(tablo(i))
.Unprotect
.Range("A10:AI24").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next i
End Sub