fichier partagé

[patrick]

Bonjour,

Je voudrais partager un classeur dont les feuilles sont protégées pour interdire l'écriture sur certaines cellules.
Afin de laisser la possibilité de filtrer malgré la protection des feuilles, j'ai ajouté :
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
Feuil2.EnableAutoFilter = True
Feuil2.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

En revanche quand je partage le classeur, j'ai un message d'erreur lorsque celui-ci s'ouvre.

y-a-t-il incompatibilité et existe-t-il un moyen de contourner ce problème.

Merci

 

[jpierre]

salut

normal, on ne peut filtrer des cellules dans une feuille qui est proteger

ajoute dans ton code au debut du mode trier
Feuil.Unprotect password:="ton mot de passe"
ou ActiveSheet.Unprotect:="ton mot de passe" et a lafin remet la protection

Attention, le mode partagé limite l'emploi du VBA

Ex: pas de possibilité de supprimerune feuille

a+

jpierre

 

[patrick]

salut JP

On peut filtrer à condition de mettre ce code à l'ouverture du classeur
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Mais lorsque je partage le classeur, alors ça plante !

Patrick

 

[patrick]

salut JP

On peut filtrer à condition de mettre ce code à l'ouverture du classeur
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Mais lorsque je partage le classeur, alors ça plante !

Patrick

 

[sebastienp]

j'ai le meme problème que toi si quelqu,un pourrais nous aider ça serait cool

Merci