Microsoft 365 vérouillage dévérouillage feuille

sylvanu à dit:

Bonsoir Farid,
Sur Xl2007 on reste bien sur la feuille 1.
Mais dans le cas contraire, essayez cela :

VB:

Sub DéProtéger()
Dim ws As Worksheet
For Each ws In Sheets
ws.Unprotect
Next
Sheets("Feuil1").Activate
End Sub

Cliquez pour agrandir...

farid à dit:

En PJ , mon fichier avec avec macro de déverrouillage et verrouillage feuilles .En feuille1 2 boutons , rouge pour verrouiller pas de soucie et en vert bouton pour déverrouiller et le soucie a chaque déverrouillage , je vais automatiquement sur la feuille 6 et je souhaite lors du déverrouillage rester sur la feuille 1.

Cliquez pour agrandir...