Microsoft 365 Ouverture d'un onglet par un seul utilisateur

[denistoulon]

Bonjour,

J'ai vraiment besoin de votre aide mais c'est trop complexe pour moi.

J'ai un fichier Excel sous teams ou plusieurs personnes interviennent dessus. Chacun a son onglet.
Est-il possible que chacun accède à son onglet SANS ACCEDER aux autres.
Paul ne peut ouvrir que l'onglet Paul et récap
Denis ne peut ouvrir que l'onglet Denis et récap
Vincent ne peut ouvrir que l'onglet Vincent et récap
Jean ne peut ouvrir que l'onglet Jean et récap

MOI je peux tout ouvrir

Je sais c'est complexe

Merci pour vos réponses

 

[sylvanu]

Bonjour Denis,
Un essai en PJ avec cette macro :

Private Sub Workbook_Open()
For Each F In Worksheets ' On masque toutes les feuilles à l'exception de Recap
    If F.Name <> "Recap" Then Sheets(F.Name).Visible = 2
Next F
'Liste des feuilles et des mots de passe respectifs.
PWD = Array("Paul", 11, "Vincent", 22, "Denis", 33, "Jean", 44)
' Demande de mot de passe
Rep = Application.InputBox(prompt:="Entrez votre mot de passe", Type:=1)
If Rep = "" Then Exit Sub
' recherche du propriétaire du mot de passe, et affichage de la feuille
For i = 0 To UBound(PWD) Step 2
    If PWD(i + 1) = Rep Then Sheets(PWD(i)).Visible = True: Sheets(PWD(i)).Select
Next i
End Sub

Il faut évidemment changer les mots de passe dans l'array, et aussi protéger le VBA avec un mot de passe.
( ceci dit la protection est légère. un esprit mal intentionné peut contourner la protection, comme dans tout fichier XL )
Par défaut, pour test, les mot de passe sont :
"Paul", 11,
"Vincent", 22,
"Denis", 33,
"Jean", 44

 

[denistoulon]

Merci pour ta réponse mais les macros sont rejetées par teams... Par contre quand ils ouvrent le fichier il y a un identifiant qui s'affiche

 

[sylvanu]

Alors désolé. Je n'ai pas d'idée sans macro, et je ne connais pas les limites de Teams.

 

[denistoulon]

Merci pour ta réponse

 

[VIARD]

Bonjour @sylvanu, @denistoulon

J'ai testé, sur Excel2007, pas de soucis
Salutation

 

[sylvanu]

Bonjour Viard,
Sous Excel2007, mais est ce sous Teams ? (Lien)

 

[denistoulon]

Une formule peut être?

 

[VIARD]

@sylvanu

Effectivement je ne suis pas en réseau, désolé
Il faut chercher ailleurs.

 

[sylvanu]

Une formule peut être?

Je ne connais aucune formule permettant de masquer ou démasquer une feuille, encore moins avec gestion des mots de passe.

 

[denistoulon]

je ne cherche pas a la masquer juste a ne pas y accéder

 

[sylvanu]

je ne cherche pas a la masquer juste a ne pas y accéder

Si elle n'est pas masquée, elle est accessible.🙂

 

[denistoulon]

Si elle n'est pas masquée, elle est accessible.🙂excact

 

[denistoulon]

exact

 

[dysorthographie]

Bonsoir,

Private Sub Workbook_Open()
Sheets("User").Visible = Application.UserName = "toto"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("User").Visible = False
End Sub