Bonjour,

Ce bout de code permet à un utilisateur à déprotéger une feuille de calcul Excel dont on a oublié le mot de passe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub DeProtect()
 
ActiveSheet.Protect , , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub
NB: Coller le code derrière la feuille à déprotéger
Ou alors, mettez le dans un module standard, mais prenez soin d'adapter le code pour faire référence aux feuilles pour lesquelles on veut enlever la protection.
Merci et bonne journée.