Deproteger des feuilles avec code VBA

Bonsoir à tous et toutes,

Voilà mon problème: Il y quelques années, j'ai écris un programme de 150 feuilles que j'avais protégé individuellement par un mot de passe identique pour toutes les feuilles.

Aujourd'hui, j'aimerai le modifier mais l'idée d'ouvrir les feuilles 1 par 1 ne m'enchante pas beaucoup; Y a t'il un code VBA pour les déprotéger et les protéger.

D'avance merci

Bonsoir,

essaie ce code

Sub test()
For i = 1 To Sheets.Count
    Sheets(i).Unprotect "mot de passe"
Next
End Sub

Amicalement

Salut à toi DAN .Je suppose que pour toi c'était une formalité mais tu viens de me rendre un grand service et c'est là que l'on apprécie l'aide des autres encore merci Pourrais-tu me donner le code pour faire l'inverse.

A+

Bonsoir,

Tu remplace

.Unprotect par .Protect

Claude

Bonsoir à toi,

J'aurai pu le deviner!!!

Le plus facile est souvent le plus difficile !! 'A méditer'

Bonne soirée

@+