Re : Macro Oter protection (en demandant mot de passe)
Bonjour billouu et le forum,
A mettre dans le module de la feuille à protéger :
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets("Feuil1").Unprotect
On Error GoTo 0
End Sub
Private Sub Worksheet_Deactivate()
Sheets("Feuil1").EnableSelection = xlNoSelection
Sheets("Feuil1").Protect Password:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End Sub
-Changer le nom de la feuille bien sûr ! Ici "Feuil1";
- Ainsi que le mot de passe ! ici "***" trois étoiles.
Cordialement
Bernard