Bonjour,
Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à
donner un mot de passe.
J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du
classeur et principalement uniquement de la feuille "Saisie" toutes les
autres feuilles étant cachées.
Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec
toutes les feuilles et toutes les fonctionnalités
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-0, 22/02/2007
Analyse le : 22/02/2007 14:23:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
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
Stéphan DuQuébec
Allez, un minimum d'effort mon ami....tout est déjà dans ce site....... Cherche mot clé : xlveryhidden Consulte alors la ficelle de zimou le 29/11/2006 10:36 PST Salutations !
Allez, un minimum d'effort mon ami....tout est déjà dans ce site.......
Cherche mot clé : xlveryhidden
Consulte alors la ficelle de zimou le 29/11/2006 10:36 PST
Salutations !
Allez, un minimum d'effort mon ami....tout est déjà dans ce site....... Cherche mot clé : xlveryhidden Consulte alors la ficelle de zimou le 29/11/2006 10:36 PST Salutations !
Thierry Euzenot
Bonjour,
Si tu t'y connais en programmation VBA c'est faisable à mon sens, sinon je ne sais pas.
En VBA, mettre une macro dans le ThisWorkbook avec l'évènement Workbook_Open() Tu fais apparaitre une InputBox demandant le mot de passe, si le mot rentré est toto tu mets une variable publique à 1, si Tata, la variable à 2, ensuite traiter les cas suivant cette variable.
Sans VBA, à part mettre un mot de passe général sur le classeur et/ou protéger chaque page séparément, je ne vois pas...
Bon courage, Thierry
"Pascal" a écrit dans le message de news: 45dd996e$0$25934$
Bonjour, Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à donner un mot de passe. J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du classeur et principalement uniquement de la feuille "Saisie" toutes les autres feuilles étant cachées. Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec toutes les feuilles et toutes les fonctionnalités
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-0, 22/02/2007 Analyse le : 22/02/2007 14:23:58 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour,
Si tu t'y connais en programmation VBA c'est faisable à mon sens, sinon je
ne sais pas.
En VBA, mettre une macro dans le ThisWorkbook avec l'évènement
Workbook_Open()
Tu fais apparaitre une InputBox demandant le mot de passe, si le mot rentré
est toto tu mets une variable publique à 1, si Tata, la variable à 2,
ensuite traiter les cas suivant cette variable.
Sans VBA, à part mettre un mot de passe général sur le classeur et/ou
protéger chaque page séparément, je ne vois pas...
Bon courage,
Thierry
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
45dd996e$0$25934$ba4acef3@news.orange.fr...
Bonjour,
Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à
donner un mot de passe.
J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du
classeur et principalement uniquement de la feuille "Saisie" toutes les
autres feuilles étant cachées.
Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec
toutes les feuilles et toutes les fonctionnalités
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-0, 22/02/2007
Analyse le : 22/02/2007 14:23:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Si tu t'y connais en programmation VBA c'est faisable à mon sens, sinon je ne sais pas.
En VBA, mettre une macro dans le ThisWorkbook avec l'évènement Workbook_Open() Tu fais apparaitre une InputBox demandant le mot de passe, si le mot rentré est toto tu mets une variable publique à 1, si Tata, la variable à 2, ensuite traiter les cas suivant cette variable.
Sans VBA, à part mettre un mot de passe général sur le classeur et/ou protéger chaque page séparément, je ne vois pas...
Bon courage, Thierry
"Pascal" a écrit dans le message de news: 45dd996e$0$25934$
Bonjour, Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à donner un mot de passe. J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du classeur et principalement uniquement de la feuille "Saisie" toutes les autres feuilles étant cachées. Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec toutes les feuilles et toutes les fonctionnalités
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-0, 22/02/2007 Analyse le : 22/02/2007 14:23:58 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
JB
Bonjour,
Version 1: Visualise la feuille de l'utilisateur(nom réseau)
On ne saisit pas de dmot de passe. Si les noms d'utilisateurs réseau sont Dupont,Martin,Charlie les noms des feuilles doivent être Dupont,Martin,Charlie.
Private Sub Workbook_Open() Sheets(Environ("username")).Visible = True End Sub
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
Visualise les feuilles de l'utilisateur(nom réseau)
Un onglet Admin contient les droits d'accès:
User Feuille jboisgon xxxxxxx jboisgon yyyyyyy stagiaire zzzzzzz
Private Sub Workbook_Open() For i = 1 To Range("user").Count If UCase(Environ("username")) = UCase(Range("user")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End Sub
Sub AfficheTousOnglets() For Each s In ActiveWorkbook.Sheets s.Visible = True Next s End Sub
Bonjour, Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à donner un mot de passe. J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du classeur et principalement uniquement de la feuille "Saisie" toutes les autres feuilles étant cachées. Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec toutes les feuilles et toutes les fonctionnalités
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-0, 22/02/2007 Analyse le : 22/02/2007 14:23:58 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Version 1:
Visualise la feuille de l'utilisateur(nom réseau)
On ne saisit pas de dmot de passe.
Si les noms d'utilisateurs réseau sont Dupont,Martin,Charlie les noms
des feuilles doivent être Dupont,Martin,Charlie.
Private Sub Workbook_Open()
Sheets(Environ("username")).Visible = True
End Sub
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
Visualise les feuilles de l'utilisateur(nom réseau)
Un onglet Admin contient les droits d'accès:
User Feuille
jboisgon xxxxxxx
jboisgon yyyyyyy
stagiaire zzzzzzz
Private Sub Workbook_Open()
For i = 1 To Range("user").Count
If UCase(Environ("username")) = UCase(Range("user")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End Sub
Sub AfficheTousOnglets()
For Each s In ActiveWorkbook.Sheets
s.Visible = True
Next s
End Sub
On 22 fév, 14:23, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à
donner un mot de passe.
J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du
classeur et principalement uniquement de la feuille "Saisie" toutes les
autres feuilles étant cachées.
Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec
toutes les feuilles et toutes les fonctionnalités
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-0, 22/02/2007
Analyse le : 22/02/2007 14:23:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Version 1: Visualise la feuille de l'utilisateur(nom réseau)
On ne saisit pas de dmot de passe. Si les noms d'utilisateurs réseau sont Dupont,Martin,Charlie les noms des feuilles doivent être Dupont,Martin,Charlie.
Private Sub Workbook_Open() Sheets(Environ("username")).Visible = True End Sub
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
Visualise les feuilles de l'utilisateur(nom réseau)
Un onglet Admin contient les droits d'accès:
User Feuille jboisgon xxxxxxx jboisgon yyyyyyy stagiaire zzzzzzz
Private Sub Workbook_Open() For i = 1 To Range("user").Count If UCase(Environ("username")) = UCase(Range("user")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End Sub
Sub AfficheTousOnglets() For Each s In ActiveWorkbook.Sheets s.Visible = True Next s End Sub
Bonjour, Est-il possible à l'ouverture d'un classeur d'obliger les utilisateurs à donner un mot de passe. J'explique Utilisateur 1 mot de passe = Toto Utilisation restreinte du classeur et principalement uniquement de la feuille "Saisie" toutes les autres feuilles étant cachées. Utilisateur 2 mot de passe =Tata Utilisation compléte du classeur avec toutes les feuilles et toutes les fonctionnalités
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-0, 22/02/2007 Analyse le : 22/02/2007 14:23:58 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
