probleem met clear contents

[TimWery]

Beste,

we hebben een template waarin we onze bestellingen zetten. Er zitten een paar macro's bij die bij het verlaten van de pagina bepaalde cellen gaan leegmaken.
Maar sinds een tijdje krijg ik altijd een foutmelding bij het openen van de template. Hij duidt altijd aan dat er iets mis is met Sheet1.Range("E2:E400").ClearContents.
Hieronder de volledige foutmelding.

Bedankt voor jullie feedback!


Private Sub Workbook_Open()

Application.ScreenUpdating = False

Sheet1.Range("A2:A400").ClearContents
Sheet1.Range("C2:C400").ClearContents
Sheet1.Range("E2:E400").ClearContents

End Sub

 

[VenA]

Maak van Sheet1 eens Blad1. Je kan de code ook zo schrijven

Blad1.Range("A2:A400,C2:C400,E2:E400").ClearContents

 

[TimWery]

Dit heb ik zo geprobeerd maar lukt ook niet

 

[OctaFish]

En zo:

     Sheets(1).Range("A2:A400,C2:C400,E2:E400").ClearContents

 

[TimWery]

werkt ook niet

 

[VenA]

Welkom foutmelding krijg je? Of is het blad beveiligd? met de code is niets mis.

 

[TimWery]

ja er zijn bepaalde cellen beveiligd
de foutmelding is;

Fout 1004 tijdens uitvoering: de cel die u wilt wijzigen is beveiligd en heeft het kenmerk alleen-lezen

Maar ik wil die beveiliging er laten opstaan zodat niemand anders met de formules speelt.

 

[VenA]

Dat kan bv zo

With Blad1
    .Unprotect
    .Range("A2:A400,C2:C400,E2:E400").ClearContents
    .Protect
End Sub

Achter protect en unprotect kan je eventueel jouw wachtwoord neerzetten als er een wachtwoord op de beveiliging zit.

 

[TimWery]

wat is er mis met deze codes

Private Sub Workbook_Open()

Application.ScreenUpdating = False

With Blad1
.Unprotect
.Range("A2:A400,C2:C400,E2:E400").ClearContents
.Protect

End Sub

 

[VenA]

Er moet nog een een End with bij.

With Blad1
    .Unprotect
    .Range("A2:A400,C2:C400,E2:E400").ClearContents
    .Protect
End With
End Sub

 

[TimWery]

nu krijg ik een andere foutmelding;

fout 424 tijdens uitvoering;
object vereist

en Unprotect is aangeduid in het geel...

 

[VenA]

verander Blad1 in Sheet1 en anders even een voorbeeldbestandje plaatsen.

 

[TimWery]

ok nu werkt het wel; geen foutmeldingen meer.

bedankt!