Bonjour,
J'ai un problème avec le code suivant placé dans le Module ThisWorbook, Evènement BeforeClose:

wks est déclarée en Worksheet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
    ThisWorkbook.Unprotect
    Set wks = Sheets("Parametres")
    wks.Unprotect
    Debug.Print wks.ProtectionMode
    wks.Range("Champ1") = ""
    wks.Range("Champ2") = ""
Je cherche à remettre à blanc les cellules nommées Champ1 et Champ2 qui sont verrouillées. Le Debug.Print wks.ProtectionMode me renvoie Faux et pourtant j'obtiens "Erreur d’exécution 1004. La cellule ou le graphique est protégé et en lecture seule ...."
Quelqu'un aurait-il une suggestion ?

Merci.