Coédition - protéger/déprotéger une feuille

Bonjour à tous,

Est t'il possible de protéger et déprotéger une feuille excel depuis le VBA mais dans un fichier excel en coédition ?

J'ai essayé, voir ci joint mon fichier, mais un message d'erreur d'exécution apparaît : " La méthode Unprotect de la classe Worksheet a échoué. "

Lorsque je ne suis pas en fichier "coédition" la macro se déroule bien.

Ps : coédition sur réseau privé d'entreprise et non OneDrive

Dsl pour le dérangement, et merci d'avance pour vos commentaires

Ajunata

Bonjour,

Peut-on voir le code ?

ric

Rebonjour,

C'est bon, j'ai compris l'astuce.

ric

Private Sub CommandButton1_Click()

    If (Sheets("Feuil2").ProtectContents = False) Then

        Sheets("Feuil2").Protect Password:="mdp"

    ElseIf (Sheets("Feuil2").ProtectContents = True) Then

        Sheets("Feuil2").Unprotect Password:="mdp"

    End If

End Sub

Voici la code,

Mais c'est lorsque le fichier est partagé que ça ne fonctionne pas?

Existe t-il une solution à ce problème ?

Bonjour,

Un peu de lecture ... solution possible ICI ...

ric

Merci,

je n'ai pas encore eu le temps de regarder en profondeur,

Je vais regarder ça demain,

Merci bcp en tout cas de ton aide aussi rapide

Ajunata

Merci bcp,

ça répond parfaitement à ma demande !!

:)

ric