Bonjour à toutes et tous et merci de vous attarder sur mon sujet.
Depuis la mise a jour de ma version d'office, l'une de mes macros pose problème:
Cette macro à pour but de déverrouiller ou verrouiller toutes les onglets de mon classeur, qui en compte 53.
Lorsque j'exécute directement ma macro dans le menu "Développeur", aucun problème, elle fonctionne très bien.
Mais lorsque j'associer la macro à un bouton, OK, son activation déverrouille bien mes pages, mais m'envoie directement à l'onglet n°52 (nommé "semaine51") sans que je ne sache pourquoi.
SI je supprime le dernier onglet de mon classeur, c'est à, dire le 53, il m'envoie dans ce cas à l'onglet 51 (nommé "semaine50").
Tableur en pièce jointe.
Detail de la macro en question:
Sub ProtectDeprotect()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.ProtectContents
Case True
ws.Unprotect
Case False
ws.Protect
End Select
Next
End Sub
Merci beaucoup par avance de votre aide