Discussion :

[turbo74]

Bonjour,

Voici un problème (qui en reste un pour moi).
J'ai un fichier excel partagé en réseau (NT) que 2 utilisateurs actuellement peuvent voir et modifier.

Le problème, c'est que parfois un des utilisateurs se rend sur une feuille de l'autre utilisateur est modifie des informations qui ne le concernent pas.

Question :
Comment faire pour affecter certaines contraintes (lecture ou écriture de feuilles) en fonction de l'utilisateur qui ouvre le classeur excel ?
Je ne peux pas partager le fichier en deux pour faire la synthèse sur un troisième, et j'aimerai si c'est possible qu'il n'y ai pas de reconnaissance par mot de passe mais par le profil utilisateur Windows de chaque utilisateur.

Merci de votre attention

Turbo74

nb : l'énoncé du problème semble clair pour moi. Si ce n'est pas votre cas, merci de me l'indiquer

[jfontaine]

Tu peux utiliser les variables environnement

Code a mettre dans l'evenement open du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
If Environ("USERNAME") = "NomUtilisateurFeuil2" Then
 
    Worksheets("feuil1").UnProtect "Motdepasse"
    Worksheets("feuil2").Protect "Motdepasse"
End If
 
 
If Environ("USERNAME") = "NomUtilisateurFeuil1" Then
    Worksheets("feuil1").Protect "Motdepasse"
    Worksheets("feuil2").UnProtect "Motdepasse"
 
End If

[turbo74]

Merci jfontaine,

Oui tu as bien défini ce que je voulais, à part que je ne suis pas aussi caler que toi.

Pourrais tu affiner ta réponse en m'indiquant comment on récupére le nom de l'ordinateur qui se trouve dans les propriétés du poste de travail.

Merci beaucoup d'avance

Turbo74

[Invité]

Bonjour,

Si l'utilisateur empêche l'exécution des macros à l'ouverture du fichier, il faut que toutes les feuilles soient masquées.
Il faut donc masquer toutes les feuilles à la sauvegarde du classeur.

A l'ouverture, on affiche seulement celle de l'utilisateur .
Chaque feuille a pour nom le nom de l'utilisateur réseau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
  Sheets(Environ("username")).Visible = True
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
  Sheets(s).Visible = xlVeryHidden
Next s
End Sub

JB

[jfontaine]

Pour le nom de l'ordinateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
environ("COMPUTERNAME")

sur ce lien une liste des Variables Environnements

[turbo74]

Merci encore à vous tous pour vos solutions.

Il me reste encore un point à éclaircir.

Je suis sous environnement XP. Sur mon ordinateur perso, cela fonctionne du tonnerre mais sur mon poste au travail, aucune solution marche.

Etrange .....

Merci encore.


Turbo 74

[jfontaine]

les variables environnements dependent de la version du windows.
En faisant une petite recherche sur google tu trouveras surement ton bonheur

[turbo74]

Bonjour (de nouveau),

J'ai trouvé une solution qui, j'en suis sur n'est pas optimale, mais qui règle en partie mon problème.

Je vous remercie de vos solutions apportées.

MERCI

Turbo74