Discussion :

[juju1988]

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

[Invité]

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

[juju1988]

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

...