[XL-2003] Macro tri sur feuille protégée et classeur partagé

[bralbouy]

Bonjour,
je cherche une solution pour exécuter une macro sur une feuille protégée mais avec le classeur partagé (ce qui rend inopérent unprotect). Est-ce possible ?
Merci par avance de votre aide

[White Mibu]

Bonjour,

une solution mais pas sûr que ça vous convient...

- à l'ouverture ouvrir le fichier en non partagé si c'est "ddtoto" (par exemple) qui ouvre le fichier :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
    Dim NomUtilisateur As String
    NomUtilisateur = Environ("UserName")
 
    If NomUtilisateur = "ddtoto" Then
    ActiveWorkbook.ExclusiveAccess
    Exit Sub
    End If
 
End If

- à la fermeture enregistrer le fichier en partagé (si il n'est pas déjà en partagé) :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    If Not ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
    accessMode:=xlShared
    End If
 
    ActiveWorkbook.Close savechanges = True
 
End Sub

Comme ça si c'est quelqu'un d'autre que "ddtoto" qui ouvre le fichier, le fichier est partagé ! Si c'est "ddtoto" il ne l'est plus, donc les macros sont dispo... Les autres utilisateurs ne peuvent plus ouvrir le fichier en mode partagé lorsqu'il est ouvert en normal !

Bon pas sûr que c'est se que vous recherché mais j'aurais proposé

Cordialement