Bonjour
1)Peut-on par mot de passe protéger un classeur de manière à ce qu'une seule
feuille soit affichée après la saisie de ce mot de passe.
2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option
masquer-afficher.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 07:51:54
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
JB
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce qu' une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe
Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Dans un Module:
Sub auto_open()
UserForm1.Show
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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas
affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour
1)Peut-on par mot de passe protéger un classeur de manière à ce qu' une seule
feuille soit affichée après la saisie de ce mot de passe.
2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option
masquer-afficher.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 07:51:54
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce qu' une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Pascal
Merci, Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je n'arrive plus a changer le VeryHidden Pascal "JB" a écrit dans le message de news:
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce qu'une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:15:58 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:45:57 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Merci,
Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je
n'arrive plus a changer le VeryHidden
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1172217698.309260.174850@h3g2000cwc.googlegroups.com...
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe
Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Dans un Module:
Sub auto_open()
UserForm1.Show
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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas
affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour
1)Peut-on par mot de passe protéger un classeur de manière à ce qu'une
seule
feuille soit affichée après la saisie de ce mot de passe.
2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option
masquer-afficher.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 07:51:54
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 09:15:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 09:45:57
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Merci, Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je n'arrive plus a changer le VeryHidden Pascal "JB" a écrit dans le message de news:
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce qu'une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:15:58 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:45:57 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
JB
Pour afficher tous les onglets:
Sub AfficheTousOnglets() For Each s In ActiveWorkbook.Sheets s.Visible = True Next s End Sub
JB
On 23 fév, 09:45, "Pascal" wrote:
Merci, Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je n'arrive plus a changer le VeryHidden Pascal "JB" a écrit dans le message de news:
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce q u'une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:15:58 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:45:57 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Pour afficher tous les onglets:
Sub AfficheTousOnglets()
For Each s In ActiveWorkbook.Sheets
s.Visible = True
Next s
End Sub
JB
On 23 fév, 09:45, "Pascal" <lapl...@wanadoo.fr> wrote:
Merci,
Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je
n'arrive plus a changer le VeryHidden
Pascal
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1172217698.309260.174...@h3g2000cwc.googlegroups.com...
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de
passe
Dans la feuille Admin
Mot passe Feuille
Jacques Boisgontier
Jacques Boisgontier2
Jean Dupont
Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Dans un Module:
Sub auto_open()
UserForm1.Show
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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas
affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour
1)Peut-on par mot de passe protéger un classeur de manière à ce q u'une
seule
feuille soit affichée après la saisie de ce mot de passe.
2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option
masquer-afficher.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 07:51:54
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 09:15:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-1, 22/02/2007
Analyse le : 23/02/2007 09:45:57
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Sub AfficheTousOnglets() For Each s In ActiveWorkbook.Sheets s.Visible = True Next s End Sub
JB
On 23 fév, 09:45, "Pascal" wrote:
Merci, Mais j'ai du faire une grosse connerie je n'ai plus qu'un feuille et je n'arrive plus a changer le VeryHidden Pascal "JB" a écrit dans le message de news:
Bonjour,
Visualise la(les) feuille(s) de l'utilisateur en fonction du mot de passe
Dans la feuille Admin
Mot passe Feuille Jacques Boisgontier Jacques Boisgontier2 Jean Dupont Invité TouLeMonde
Dans le UserForm
Private Sub B_ok_Click() If Me.motpasse <> "" Then For i = 1 To Range("MotPasse").Count If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then temp = Range("feuille")(i) Sheets(temp).Visible = True End If Next i End If Unload Me End Sub
Dans un Module:
Sub auto_open() UserForm1.Show 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
http://cjoint.com/?cxjbmnh2tV
Les feuilles étant masquées avec xlVeryHidden, elles ne sont pas affichables par l'utilisateur.
JB
On 23 fév, 07:40, "Pascal" wrote:
Bonjour 1)Peut-on par mot de passe protéger un classeur de manière à ce q u'une seule feuille soit affichée après la saisie de ce mot de passe. 2)Lorsqu'on clique du droit sur un onglet, peut-on enlever l'option masquer-afficher.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 07:51:54 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:15:58 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000716-1, 22/02/2007 Analyse le : 23/02/2007 09:45:57 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
