Protégez toutes les colonnes sauf colonne de la date du jour

Bonjour

Avec une macro mis dans ThisWorkbook de l'éditeur VBA

et qui à l'ouverture du fichier va verrouiller toutes les cellules de la feuille 1, puis déverrouiller la colonne contenant la date du jour en première ligne et reprotéger la feuille avec le mot  de passe toto

Private Sub Workbook_Open()
 Sheets("Feuil1").Unprotect "toto"
    Cells.Select
    Selection.Locked = True
    col = Rows(1).Find(Date, , , , xlByRows, xlPrevious).Column
    Columns(col).Select
    Selection.Locked = False
Sheets("Feuil1").Protect "toto"
End Sub

Cdlmnt

Via