Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

**gperinaud** · 12/08/2015, 10h55

Bonjour,

J'ai écrit un programme afin de vérouiller les cellules de toute une feuille et d'en déverouiller certaines après. J'ai donc ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_Open()
With Worksheets(4)
    .EnableOutlining = True
    .Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
    .Range("A2:D2").Locked = False
    .Range("E4:I7,K4:O7,Q4:U7,W4:AA7,AC4:AG7,AI4:AM7,AO4:AS7,AU4:AY7,BA4:BE7,BG4:BK7,BM4:BQ7,BS4:BW7").Locked = False
    .Range("E10:I12,K10:O12,Q10:U12,W10:AA12,AC10:AG12,AI10:AM12,AO10:AS12,AU10:AY12,BA10:BE12,BG10:BK12,BM10:BQ12,BS10:BW12").Locked = False
    .Range("E14:I16,K14:O16,Q14:U16,W14:AA16,AC14:AG16,AI14:AM16,AO14:AS16,AU14:AY16,BA14:BE16,BG14:BK16,BM14:BQ16,BS14:BW16").Locked = False
    .Range("E18:I20,K18:O20,Q18:U20,W18:AA20,AC18:AG20,AI18:AM20,AO18:AS20,AU18:AY20,BA18:BE20,BG18:BK20,BM18:BQ20,BS18:BW20").Locked = False
    .Range("E22:I24,K22:O24,Q22:U24,W22:AA24,AC22:AG24,AI22:AM24,AO22:AS24,AU22:AY24,BA22:BE24,BG22:BK24,BM22:BQ24,BS22:BW24").Locked = False
    .Range("E26:I26,K26:O26,Q26:U26,W26:AA26,AC26:AG26,AI26:AM26,AO26:AS26,AU26:AY26,BA26:BE26,BG26:BK26,BM26:BQ26,BS26:BW26").Locked = False
    .Range("E28:I29,K28:O29,Q28:U29,W28:AA29,AC28:AG29,AI28:AM29,AO28:AS29,AU28:AY29,BA28:BE29,BG28:BK29,BM28:BQ29,BS28:BW29").Locked = False
    .Range("E31:I32,K31:O32,Q31:U32,W31:AA32,AC31:AG32,AI31:AM32,AO31:AS32,AU31:AY32,BA31:BE32,BG31:BK32,BM31:BQ32,BS31:BW32").Locked = False
    .Range("E34:I36,K34:O36,Q34:U36,W34:AA36,AC34:AG36,AI34:AM36,AO34:AS36,AU34:AY36,BA34:BE36,BG34:BK36,BM34:BQ36,BS34:BW36").Locked = False
    .Range("E38:I39,K38:O39,Q38:U39,W38:AA39,AC38:AG39,AI38:AM39,AO38:AS39,AU38:AY39,BA38:BE39,BG38:BK39,BM38:BQ39,BS34:BW39").Locked = False
    .Range("E41:I43,K41:O43,Q41:U43,W41:AA43,AC41:AG43,AI41:AM43,AO41:AS43,AU41:AY43,BA41:BE43,BG41:BK43,BM41:BQ43,BS41:BW43").Locked = False
    End With
End Sub