Déverrouiller des cellules

Bonjour,

Je souhaiterai déverrouiller des cellules en quittant l'onglet 1.

Souvent mes collègues font des copier/coller oau lieu des copier/collage spécial valeur et du coup les cellules sont à nouveau verrouillées.

Du coup j'ai pensé automatisé la tâche dès qu'il change d'onglet mais j'ai une erreur 1004.

Quelqu'un aurait il une idée ?

Private Sub Worksheet_deactivate()
With Sheets(1)
  .Unprotect
  .Range("A4:L655360").Locked = False
  .Range("A4:L655360").FormulaHidden = True
  Sheets(6).Protect
End With
End Sub

Bonsoir

Ton profil indique 2003 mais ta dernière cellule prise en compte dépasse les 600 000

    Private Sub Worksheet_deactivate()
    With Sheets(1)
      .Unprotect
      .Range("A4:L655360").Locked = False
      .Range("A4:L655360").FormulaHidden = True
      Sheets(6).Protect
    End With
    End Sub

Erreur

oups, erreur de frappe. il faut lire :

Private Sub Worksheet_deactivate()
  With Sheets(1)
    .Unprotect
    .Range("A4:L65536").Locked = False
    .Range("A4:L65536").FormulaHidden = True
    Sheets(1).Protect
  End With
End Sub

Bonjour

Pas de souci avec ton code

Il faudrait le fichier en cause

Je viens de trouver...

J'avais fait une erreur de frappe et en recollant le code que j'ai posté ça marche...

Je crois qu'il est temps que je fasse une pause moi...

Merci Banzaï