Départager un fichier Excel en mode partagé

JinRo -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Navré de vous embêtez, mais j'aimerai savoir comment partager et départager
un fichier excel par macro en gardant les mêmes options que via le bouton de partage de fichier normale.

Je m'explique, j'ai un fichier qui contient des macros, seul hic c'est que certaines macros ne fonctionnent qu'en mode déparatager du fichier. Heureusement je n'en ai besoin que pendant un laps de temps cours. Puis je repartage mon fichier pour repermettre son utilisation à chacun des utilisateur. le Hic c'est que ces utilisateurs ne penseraient jamais à départager puis à repartager le fichier. C'est pourquoi j'ai besoin de lancer ces macros avec une autre me permettant de tout départager puis à la fin de tout repartager.

Malheureusement je ne sais comment faire pour départager et repartager en gardans les mêmes options qu'Excel mais via macro.

Quelqu'un saurait me renseigner, svp?

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Dé-partager un classeur : 
    If ActiveWorkbook.MultiUserEditing Then    'si classeur partagé
    Application.DisplayAlerts = False    ' Pas de message d'alerte
    ActiveWorkbook.ExclusiveAccess    ' Accès exclusif activé !  Déconnecte tous les utilisateurs d'un classeur partagé (perdent les modifs car se retrouvent sur un classeur bis)
End If


    Partager le classeur : 
    If Not ActiveWorkbook.MultiUserEditing Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
    Application.DisplayAlerts = False
End If


    Savoir qui est sur un classeur partagé pour le prévenir qu'il va perdre ses modifs :
    http://www.excelabo.net/excel/classeur_partage

    eric
    0