Afficher une feuille du classeur pour un utilisateur précis
2 réponses
Ricky
Bonsoir à toutes et à tous
Soit un classeur accessible en lecture seule à plusieurs utilisateurs.
Il contient une dizaine de feuilles visibles et une onzième complètement cachée (nommée INDIViDUEL).
Le tout verrouillé par mot de passe empêchant les accès non souhaités.
Mon problème est le suivant.
Un seul utilisateur doit pouvoir accéder automatiquement à la feuille INDIVIDUEL
Je souhaite que ceci se fasse à l'ouverture du fichier où une macro lit le Username fourni par Windows et affiche la feuille si ce username est "WXY" sinon il laisse la feuille cachée.
Précaution intéressante supplémentaire avant une sauvegarde éventuelle (enregistrement d'une copie) une autre macro pourrait recacher la feuille (on ne sait jamais...)
Mon gros souci, c'est la récupération du Username...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
OnE
Bonjour,
Sub test_user() Set wshnetwork = CreateObject("WScript.Network") If wshnetwork.UserName = "WXY" Then Sheets("Individuel").Visible = True Else MsgBox "Vous êtes connectés sur cette station en tant que " & wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher la feuille Individuel" End If End Sub
Bonsoir à toutes et à tous
Soit un classeur accessible en lecture seule à plusieurs utilisateurs. Il contient une dizaine de feuilles visibles et une onzième complètement cachée (nommée INDIViDUEL). Le tout verrouillé par mot de passe empêchant les accès non souhaités.
Mon problème est le suivant. Un seul utilisateur doit pouvoir accéder automatiquement à la feuille INDIVIDUEL Je souhaite que ceci se fasse à l'ouverture du fichier où une macro lit le Username fourni par Windows et affiche la feuille si ce username est "WXY" sinon il laisse la feuille cachée.
Précaution intéressante supplémentaire avant une sauvegarde éventuelle (enregistrement d'une copie) une autre macro pourrait recacher la feuille (on ne sait jamais...)
Mon gros souci, c'est la récupération du Username...
Merci de votre aide.
Bonjour,
Sub test_user()
Set wshnetwork = CreateObject("WScript.Network")
If wshnetwork.UserName = "WXY" Then
Sheets("Individuel").Visible = True
Else
MsgBox "Vous êtes connectés sur cette station en tant que " &
wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher
la feuille Individuel"
End If
End Sub
Bonsoir à toutes et à tous
Soit un classeur accessible en lecture seule à plusieurs utilisateurs.
Il contient une dizaine de feuilles visibles et une onzième complètement cachée (nommée INDIViDUEL).
Le tout verrouillé par mot de passe empêchant les accès non souhaités.
Mon problème est le suivant.
Un seul utilisateur doit pouvoir accéder automatiquement à la feuille INDIVIDUEL
Je souhaite que ceci se fasse à l'ouverture du fichier où une macro lit le Username fourni par Windows et affiche la feuille si ce username est "WXY" sinon il laisse la feuille cachée.
Précaution intéressante supplémentaire avant une sauvegarde éventuelle (enregistrement d'une copie) une autre macro pourrait recacher la feuille (on ne sait jamais...)
Mon gros souci, c'est la récupération du Username...
Sub test_user() Set wshnetwork = CreateObject("WScript.Network") If wshnetwork.UserName = "WXY" Then Sheets("Individuel").Visible = True Else MsgBox "Vous êtes connectés sur cette station en tant que " & wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher la feuille Individuel" End If End Sub
Bonsoir à toutes et à tous
Soit un classeur accessible en lecture seule à plusieurs utilisateurs. Il contient une dizaine de feuilles visibles et une onzième complètement cachée (nommée INDIViDUEL). Le tout verrouillé par mot de passe empêchant les accès non souhaités.
Mon problème est le suivant. Un seul utilisateur doit pouvoir accéder automatiquement à la feuille INDIVIDUEL Je souhaite que ceci se fasse à l'ouverture du fichier où une macro lit le Username fourni par Windows et affiche la feuille si ce username est "WXY" sinon il laisse la feuille cachée.
Précaution intéressante supplémentaire avant une sauvegarde éventuelle (enregistrement d'une copie) une autre macro pourrait recacher la feuille (on ne sait jamais...)
Mon gros souci, c'est la récupération du Username...
Merci de votre aide.
Ricky
Bonjour *OnE*
Superbe. Plus qu'un mot à ajouter : MERCI
--- Rick
| Bonjour, | | Sub test_user() | Set wshnetwork = CreateObject("WScript.Network") | If wshnetwork.UserName = "WXY" Then | Sheets("Individuel").Visible = True | Else | MsgBox "Vous êtes connectés sur cette station en tant que " & | wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher | la feuille Individuel" | End If | End Sub
Bonjour *OnE*
Superbe.
Plus qu'un mot à ajouter : MERCI
---
Rick
| Bonjour,
|
| Sub test_user()
| Set wshnetwork = CreateObject("WScript.Network")
| If wshnetwork.UserName = "WXY" Then
| Sheets("Individuel").Visible = True
| Else
| MsgBox "Vous êtes connectés sur cette station en tant que " &
| wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher
| la feuille Individuel"
| End If
| End Sub
| Bonjour, | | Sub test_user() | Set wshnetwork = CreateObject("WScript.Network") | If wshnetwork.UserName = "WXY" Then | Sheets("Individuel").Visible = True | Else | MsgBox "Vous êtes connectés sur cette station en tant que " & | wshnetwork.UserName & vbCrLf & "Reconnectez vous pour pouvoir afficher | la feuille Individuel" | End If | End Sub
