Microsoft 365 vérouillage dévérouillage feuille

[farid]

Bonsoir,
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.
j'espère que la demande est explicite.
par avance, merci

 

[sylvanu]

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

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

 

[farid]

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

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

Bonjour Sylvanu
Plaisir de vous revoir,
je ne comprends pas , je suis sur office 365 pro ,.
merci pour la solution qui fonctionne tres bien comme d'habitude.
bonne soirée
merci beaucoup

 

[Bernard_XLD]

Bonjour Farid, sylvanu, le forum

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.

Je confirme le même comportement sous 365 famille

Bien cordialement, @+

 

[Bernard_XLD]

Re,

C'est lié à l'objet dessiné, même comportement aberrant avec un contrôle de formulaire, pas de problème par contre avec un contrôle ActiveX ou en appel direct

Bien cordialement, @+.

 

[sylvanu]

Re,
Serait ce un bug sur 365 ?
Et pourquoi la feuille 6, ce n'est même pas la dernière.

 

[Bernard_XLD]

re,

quel que soit le nombre de feuille, c'est toujours l'avant dernière sélectionnée, selon l'ordre d'affichage et non l'index, et uniquement si la déprotection est effective, le code exécuté sur des feuilles non protégées ne change pas la sélection.
Et le problème ne survient qu'avec des formes ou des contrôles de formulaire.
Pour moi, bug 365, un de plus !

Bien cordialement, @