Classeur partagé avec autorisation d'acces

[yochma23]

Bonjour à toutes et a tous,

J'ai une question a vous poser qui va surement vou ssembler simple...mais elle ne l'est pas pour moi sniff!!!

Je souhaiterai dans un classeur partagé avec par exemple 3 utilisateurs Pierre / Paul / Jacque

Je souhaiterai que Pierre n'est accès qu'a la feuil1 du classeur, Paul qu'a la feuil2 et Jacques qu'a la feuil3 de manière a ce que Pierre ne puisse pas voir ou modifier les informations de Paul.

Comment faire cela?

Merci d'avance de votre aide précieuse

Longue vie à ce super Forum

Yochma23

 

[yochma23]

Re : Classeur partagé avec autorisation d'acces

Salut c'est re moi!!

Même question avec Pierre / Paul / Jacques qui aurait un acces sur la meme feuille mais sur des plages de cellules séparées et préalablement définies?

@+ et merci

Yochma23

 

[yochma23]

Re : Classeur partagé avec autorisation d'acces

Toc toc?

Personne pour éclairer ma lanterne?

 

[Eric 45]

Re : Classeur partagé avec autorisation d'acces

Bonjour le forum
Bonjour yochma23

Quelques lignes de code pour te montrer une certaine façon. A toi de finir.

Private Sub Workbook_Open()
personneutilisatrice = Application.UserName 'personne utilisatrice excel
personneloguee = Environ("UserName") 'personne loguee
If personneloguee = "Administrateur" Then
Exit Sub
End If
Sheets("recap").Activate
Sheets("jacques").Protect password:="pierre"
Sheets("jacques").Protect password:="paul"
Sheets("jacques").Protect password:="jacques"
Sheets("pierre").Visible = False
Sheets("paul").Visible = False
Sheets("jacques").Visible = False

Select Case personneloguee 'prendre au choix : utilisatrice ou loguee
Case "pierre"
Sheets("pierre").Visible = True
Sheets("pierre").Activate
ActiveSheet.Unprotect password:="pierre"
Case "paul"
Sheets("paul").Visible = True
Sheets("paul").Activate
ActiveSheet.Unprotect password:="paul"
Case "jacques"
Sheets("jacques").Visible = True
Sheets("jacques").Activate
ActiveSheet.Unprotect password:="jacques"
Case "Administrateur"
Sheets("paul").Visible = True
Sheets("paul").Activate
ActiveSheet.Unprotect password:="paul"
End Select

End Sub

Il y a certainement plus court, mais comme cela tu comprends chaque ligne

A+

 

[Kotov]

Re : Classeur partagé avec autorisation d'acces

Bonjour à tous,

J'ai été confronté au même souci d'usage privatif d'un classeur partagé.
Si ce n'est pas trop théorique, c'est efficace dans la pratique :


https://www.excel-downloads.com/threads/classeur-partage-et-usage-privatif.69952/


Bonne soirée
Kotov