Message d'erreur en classeur partagé

[agir2]

Bonjour à vous !

Dans le code suivant je rend les filtres disponible avec classeur protégé, par contre lors du partage du classeur je reçois un message d'erreur.
Voir la capture d'écran en pièces jointes.

avez-vous une suggestion ?

Option Explicit
Private Sub Workbook_Open()
With Feuil1
.EnableAutoFilter = True
.Protect "mot de passe", , , , True
End With
With Feuil3
.EnableAutoFilter = True
.Protect "mot de passe", , , , True
End With
End Sub

 

[Catrice]

Re : Message d'erreur en classeur partagé

Bonjour,

Le message est normal, on ne peut pas protéger un classeur partagé.
Il faut "départager" le classeur avant de modifier le mot de passe.

https://www.excel-downloads.com/threads/classeur-partage-et-macro.22614/