Déprotéger une feuille sur un fichier partagé

[alainca31]

Bonjour

Voici mon problème
J’ai créé un planning de quart sur une feuille Excel ou une partie des données sont protégée pour que les agents ne rentrent que leurs congés ou leurs remplacements. J’ai fait une macro qui permet de déprotéger la feuille de masquer certaines lignes et de reprotéger la feuille. Jusque la tout va bien.
La ou j’ai un problème c’est que j’ai partagé le fichier et quand je lance la macro il me mets une erreur car il ne peut pas déprotéger la feuille.
Si vous avez une astuce elle est la bien venu.
Merci

 

[tototiti2008]

Re : Déprotéger une feuille sur un fichier partagé

Bonjour alainca31,

Macro et Partage font trés mauvais ménage. Dans un classeur partagé, de nombreuses actions ne peuvent plus être réalisées par macro...je n'en connais pas la liste mais certains désactivent le partage puis le réactivent

Pour désactiver le partage, essaye quelque chose comme :
ActiveWorkbook.ExclusiveAccess

 

[didus]

Re : Déprotéger une feuille sur un fichier partagé

Bonjour à tous, bonjour Tototiti,
en réponse à un autre fil concernant le même sujet:
http://www.excel-downloads.com/forum/108177-probleme-showalldata-classeur-partage-protege-2.html#post1250149

Voilà j'ai essayé d'appliquer ton code dans mon tableau partagé,
La protection fonctionne en mode normal,car même départagé, la déprotection plante.
J'ai une erreur pour la méthode ShowAlldata que j'utilise peut être mal (erreur 1004 la méthode ShowAlldata de la classe Worksheet a échoué):

Sub deprotege()
'Sheets("Général").Unprotect
Worksheets("Postes").ShowAllData
Worksheets("Liaisons").ShowAllData
Worksheets("Général").ShowAllData
Range("E2:E2").Select
End Sub

En utilisant la méthode de protection à l'envers, comme ci dessous c'est bon, par contre en mode protégé aucune des deux commandes ne fonctionne (erreur 1004 erreur définie par l'application ou par l'objet), or c'est bien là le soucis car en mode normal la commande unprotect fonctionne aussi trés bien.

Worksheets("Postes").Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _
        , AllowFiltering:=True, userinterfaceonly:=True

juste pour mémoire, le fil continue sur l'autre post cité au début

Cordialement