j'ai réalisé il y a quelques mois cette application avec l'aide du forum, elle fonctionne parfaitement , mais je viens de m'apercevoir que la feuille feuille3 n'était pas protégée à la fermeture du formulaire, je m'explique:
à l'ouverture du formulaire on doit enlever la protection sur les 2 feuilles et lorsque l'on le quitte on doit les protéger, ça ne fonctionne que sur la feuille 1 .
j'ai trouvé des codes sur le forum mais n'arrive pas à les adapter.
à l'ouverture du formulaire on doit enlever la protection sur les 2 feuilles et lorsque l'on le quitte on doit les protéger, ça ne fonctionne que sur la feuille 1 .
voici ce que j'ai pu trouver et adapter. ça à l'air de fonctionner,
peut on trouver plus simple ?
Code:
Private Sub Cmdquitter_Click()
Unload Me
For i = 1 To Sheets.Count
With Sheets(i)
.Protect Password:="281", DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End With
Next
End Sub