j'avais écrit 2 s/prog en vba pour proteger (et déprotéger) toutes les feuilles d'un classeur excel. Ca fonctionnait bien sous excel 97 et 2000 mais ça ne fonctionne plus sous excel 2003!!! Quelqu'un a-t-il un remède à mon problème. Merci d'avance
 
Public Sub Protection()
réponse = InputBox("Entrer OUI ou NON", "Protection", "OUI" )
If réponse = "OUI" Then
For Each w In Application.ActiveWorkbook.Sheets
If w.Protect = False Then
w.Protect
End If
Next
End If
End Sub
 
Public Sub Déprotection()
réponse = InputBox("Entrer OUI ou NON", "Déprotection", "OUI" )
If réponse = "OUI" Then
For Each w In Application.ActiveWorkbook.Sheets
If w.Protect = True Then
w.Unprotect
End If
Next
End If
End Sub