IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Partage et Protection


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2010
    Messages
    533
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2010
    Messages : 533
    Par défaut Partage et Protection
    Bonjour,

    J'ai un fichier Excel avec deux groupes de cellules, suivant le login Windows de la personne qui ouvre le fichier je protège les groupes de cellule. Cela fonctionne, cependant, il me faut mettre le fichier en partage : Révisions - Partager le fichier pour que chaque entité puisse modifier son groupe de cellule. Mais dés que je met le partage en place, cela me met une erreur sur un de mes Unprotect, j'ai tenté de mettre On error Resume Next pour passer outre mais cela ne fonctionne pas plus...
    J'ai beau tourner le problème dans tous les sens je ne vois plus comment faire ...

    Voici mon code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    Private Sub Workbook_Open()
     
     
    '-------------------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------------------
    '-------------------------------------------------------------------------------------------
    '------------------------------- Intégration TCP -------------------------------------------
    '---------------------------- Protection de la feuille -------------------------------------
     
        MsgBox OSUserName
           If OSUserName = "STAG3" Then 'si je fait partie de la prod
                On Error Resume Next
                ActiveSheet.Unprotect ("toto")
                Range("Prod_Non_Autorise").Locked = True
                Range("Prod_Autorise").Locked = False
                ActiveSheet.Protect ("toto")
     
           Else
                On Error Resume Next
                ActiveSheet.Unprotect ("toto")
                Range("Prod_Non_Autorise").Locked = False
                Range("Prod_Autorise").Locked = True
                ActiveSheet.Protect ("toto")
           End If
     
    End Sub
    '---------------------------- Récupération nom de session Windows --------------------------
    Function OSUserName() As String 'extrait d'un code trouvé sur : http://forum.rue-montgallet.com/ruemontgallet/Programmation/vb-vba/resolu-recuperation-windows-sujet_22341_1.htm
     
    Dim Buffer As String * 256
    Dim BuffLen As Long
    BuffLen = 256
        If GetUserName(Buffer, BuffLen) Then _
       OSUserName = Left(Buffer, BuffLen - 1)
     
    End Function
    Merci d'avance pour votre aide

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Les fichiers Excel partagés ont malheureusement des restrictions dont tu trouves la liste dans l'aide Excel en tapant partagé, et entre autre la protection des cellules.

    Philippe

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2010
    Messages
    533
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2010
    Messages : 533
    Par défaut
    Cela veut dire qu'il n'y a aucune solution ?

    Parce que sans partage sans gestion d'erreurs : Fonctionne
    Avec partage sans gestion d'erreur : Erreur d'exécution 1004, la méthode UnProtect de a classe Worksheet à échoué
    Avec partage avec gestion d'erreur : Pas d'erreur, mais ne fonctionne pas

    ...

Discussions similaires

  1. connexion partagée et protection du fichier mdb
    Par kevinouf dans le forum Sécurité
    Réponses: 1
    Dernier message: 04/04/2011, 20h36
  2. Partager un fichier excel et garder sa protection
    Par ghosty04 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/03/2009, 17h41
  3. Partage et protection ?
    Par Elwe31 dans le forum Excel
    Réponses: 3
    Dernier message: 17/03/2008, 12h20
  4. protection, filtre et partage
    Par afssaLERH dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/11/2007, 10h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo