Beug programmation VBA

Bonjour,

j'ai un fichier qui affiche un beug à l'ouverture, pourriez vous regarder et me résoudre ce souci s'il vous plait?

Bonjour

J'opterai pour

If .Cells.Locked = False Then .Cells.Locked = True

A+ François

ça ne fonctionne pas,

vous pouvez directement corriger dans la programmation pour tester avant de renvoyer

merci de votre aide

Que donne With Sheets( ) au lieu de With Worksheet( ) ?

désolé mais ça ne fonctionne pas

Le problème vient de là chez moi, mais à l'ouverture il venait du Worksheet.:

Private Sub Workbook_Open()

If Worksheets("Calculateur 1").[A1].Interior.Color = RGB(0, 255, 0) Then Call ProtectCells(0)

End Sub

c'est trop sympa, mais est possible de corriger directement mon fichier excel et me le renvoyer corrigé ?

merci

Je pense qu'on ne peut pas modifier le (dé)bloquage de cellules sans déprotéger le tout d'abord. Je commencerais ma procédure par :

Public Sub ProtectCells(ByVal iIdx%)

Worksheets("Calculateur 1").Unprotect

Ca permet d'afficher la bdd du mot de passe.

c'est trop sympa, mais est possible de corriger directement mon fichier excel et me le renvoyer quand ça fonctionne s'il vous plait ?

merci

voici le fichier

merci de m'aider