Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$ba4acef3@reader.news.orange.fr...
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$ba4acef3@reader.news.orange.fr...
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Essaie ceci :
A ) Choisis le mot de passe que tu veux
B ) Adapte le nom de la feuille. "Feuil1" est le nom de la propriété
"Name" de
la feuille visible seulement dans l'interface de l'éditeur de code où
tu
exécutes le filtre et non le nom de l'onglet.
'--------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1 'Modifie le nom de la propriété Name de ladite feuille
.Unprotect "toto"
.EnableSelection = xlUnlockedCells
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
With .Range("K:K")
.AutoFilter
.AutoFilter field:=1, Criteria1:="107", VisibleDropDown:úlse
End With
.Protect "toto"
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0da30c$0$5698$
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni taper
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour
remettre
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité ,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" a écrit dans le message de news:
jekkfd$tta$
> J'ai omis cette ligne de code comme "dernière ligne" de la procédur e
> "Workbook_Open" dans le ThisWorkbook
>
> Juste avant End Sub, inscrire : Me.Saved=true
>
>
>
> MichD
> ------------------------------------------
>
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité ,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" <mich...@hotmail.com> a écrit dans le message de news:
jekkfd$tta$1@speranza.aioe.org...
> J'ai omis cette ligne de code comme "dernière ligne" de la procédur e
> "Workbook_Open" dans le ThisWorkbook
>
> Juste avant End Sub, inscrire : Me.Saved=true
>
>
>
> MichD
> ------------------------------------------
>
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité ,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" a écrit dans le message de news:
jekkfd$tta$
> J'ai omis cette ligne de code comme "dernière ligne" de la procédur e
> "Workbook_Open" dans le ThisWorkbook
>
> Juste avant End Sub, inscrire : Me.Saved=true
>
>
>
> MichD
> ------------------------------------------
>
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture d u
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni tap er
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour remett re
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture d u
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni tap er
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour remett re
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
Bonjour,
Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture d u
fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
filtre immediatement sur la colonne K avec le critere "107" (en texte) et
qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni tap er
dans aucunes des cellules pleines, mais avec le droit de taper dans des
cellules vides. Puis quand on quitte qu'il enleve les filtres pour remett re
tout en normal.
Ca m'à l'air assez compliqué...
Merci de votre aide
Manu
bonjour,
voici une modification du code de MichD, qui devrait permettre de gérer des utilisateurs différents (jusqu'à 10 dans le cas présent).
non-testé.
Private Sub Workbook_Open()
Dim MotDePasse(10) As String, colcritère(10) As String, critère(10) A s String, x As Variant, i As Integer, utilisateur As Integer
Static Compteur As Integer
Call ThisWorkbook.Enable_Macro
MotDePasse(1) = "MichD": colcritère(1) = "K:K": critère(1) = "1 07": 'Mot de passe pour ouvrir le fichier
MotDePasse(2) = "Manu": colcritère(2) = "K:K": critère(2) = "25 0": '
MotDePasse(3) = "Nico": colcritère(3) = "B:B": critère(3) = "66 ":
Do
x = ""
x = Application.InputBox(Prompt:="Saisir le mot de passe.", Type: =2)
If TypeName(x) = "Boolean" Then
ThisWorkbook.Close
Else
If Compteur = 3 Then
MsgBox "Le classeur doit fermer.", _
vbCritical + vbokok, "attention"
ThisWorkbook.Close
End If
Compteur = Compteur + 1
End If
For i = 1 To 10
If x = MotDePasse(i) Then utilisateur = i: x = "trouvé": Exi t For
Next i
Loop Until x = "trouvé"
> Bonjour,
>
> Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
> fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
> filtre immediatement sur la colonne K avec le critere "107" (en texte) et
> qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni t aper
> dans aucunes des cellules pleines, mais avec le droit de taper dans des
> cellules vides. Puis quand on quitte qu'il enleve les filtres pour reme ttre
> tout en normal.
> Ca m'à l'air assez compliqué...
>
> Merci de votre aide
>
> Manu
bonjour,
voici une modification du code de MichD, qui devrait permettre de gérer des utilisateurs différents (jusqu'à 10 dans le cas présent).
non-testé.
Private Sub Workbook_Open()
Dim MotDePasse(10) As String, colcritère(10) As String, critère(10) A s String, x As Variant, i As Integer, utilisateur As Integer
Static Compteur As Integer
Call ThisWorkbook.Enable_Macro
MotDePasse(1) = "MichD": colcritère(1) = "K:K": critère(1) = "1 07": 'Mot de passe pour ouvrir le fichier
MotDePasse(2) = "Manu": colcritère(2) = "K:K": critère(2) = "25 0": '
MotDePasse(3) = "Nico": colcritère(3) = "B:B": critère(3) = "66 ":
Do
x = ""
x = Application.InputBox(Prompt:="Saisir le mot de passe.", Type: =2)
If TypeName(x) = "Boolean" Then
ThisWorkbook.Close
Else
If Compteur = 3 Then
MsgBox "Le classeur doit fermer.", _
vbCritical + vbokok, "attention"
ThisWorkbook.Close
End If
Compteur = Compteur + 1
End If
For i = 1 To 10
If x = MotDePasse(i) Then utilisateur = i: x = "trouvé": Exi t For
Next i
Loop Until x = "trouvé"
> Bonjour,
>
> Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
> fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
> filtre immediatement sur la colonne K avec le critere "107" (en texte) et
> qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni t aper
> dans aucunes des cellules pleines, mais avec le droit de taper dans des
> cellules vides. Puis quand on quitte qu'il enleve les filtres pour reme ttre
> tout en normal.
> Ca m'à l'air assez compliqué...
>
> Merci de votre aide
>
> Manu
bonjour,
voici une modification du code de MichD, qui devrait permettre de gérer des utilisateurs différents (jusqu'à 10 dans le cas présent).
non-testé.
Private Sub Workbook_Open()
Dim MotDePasse(10) As String, colcritère(10) As String, critère(10) A s String, x As Variant, i As Integer, utilisateur As Integer
Static Compteur As Integer
Call ThisWorkbook.Enable_Macro
MotDePasse(1) = "MichD": colcritère(1) = "K:K": critère(1) = "1 07": 'Mot de passe pour ouvrir le fichier
MotDePasse(2) = "Manu": colcritère(2) = "K:K": critère(2) = "25 0": '
MotDePasse(3) = "Nico": colcritère(3) = "B:B": critère(3) = "66 ":
Do
x = ""
x = Application.InputBox(Prompt:="Saisir le mot de passe.", Type: =2)
If TypeName(x) = "Boolean" Then
ThisWorkbook.Close
Else
If Compteur = 3 Then
MsgBox "Le classeur doit fermer.", _
vbCritical + vbokok, "attention"
ThisWorkbook.Close
End If
Compteur = Compteur + 1
End If
For i = 1 To 10
If x = MotDePasse(i) Then utilisateur = i: x = "trouvé": Exi t For
Next i
Loop Until x = "trouvé"
> Bonjour,
>
> Je souahiterais qu'en fonction d'un mot de passe "titi" à l'ouverture du
> fichier test.xlsm de la feuil1 que mon tableau (qui commence en A1) se
> filtre immediatement sur la colonne K avec le critere "107" (en texte) et
> qu'une fois filtré, on ne puisse plus defiltrer , copier coller, ni t aper
> dans aucunes des cellules pleines, mais avec le droit de taper dans des
> cellules vides. Puis quand on quitte qu'il enleve les filtres pour reme ttre
> tout en normal.
> Ca m'à l'air assez compliqué...
>
> Merci de votre aide
>
> Manu
| surtout ce que viens faire cette feuil4 invisible...
**** Si l'usager maintient enfoncée la touche "Maj" pendant l'ouverture du
fichier, la macro "Workbook_Open" ne s'exécutera
pas. La conséquence c'est que le fichier va s'ouvrir sans mot de passe et
sans filtre. Pour éviter que la chose arrive, si
l'usager fait cela, la feuil4 masquée s'affiche et toutes les autres
feuilles du classeur sont masquées. Il est donc
impossible à l'usager de modifier ou d'accéder aux feuilles de données du
classeur. Voilà!
| Mais il me faut plusieurs mot de passe qui me filtrera differentes
choses.
**** Dis, qu'est-ce qui t'empêcha d'énoncer clairement ta demande lors de
ton premier message?
**** Comment savoir dans ta demande nouvelle, quel filtre doit s'exécuter
à l'ouverture du classeur?
À partir de quel critère doit-on choisir un filtre ou un autre? Une
feuille de calcul ne peut afficher que
le résultat d'un filtre à la fois...En conséquence, je ne comprends pas ta
question.
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0ea7e0$0$5698$
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe
qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" a écrit dans le message de news:
jekkfd$tta$J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
| surtout ce que viens faire cette feuil4 invisible...
**** Si l'usager maintient enfoncée la touche "Maj" pendant l'ouverture du
fichier, la macro "Workbook_Open" ne s'exécutera
pas. La conséquence c'est que le fichier va s'ouvrir sans mot de passe et
sans filtre. Pour éviter que la chose arrive, si
l'usager fait cela, la feuil4 masquée s'affiche et toutes les autres
feuilles du classeur sont masquées. Il est donc
impossible à l'usager de modifier ou d'accéder aux feuilles de données du
classeur. Voilà!
| Mais il me faut plusieurs mot de passe qui me filtrera differentes
choses.
**** Dis, qu'est-ce qui t'empêcha d'énoncer clairement ta demande lors de
ton premier message?
**** Comment savoir dans ta demande nouvelle, quel filtre doit s'exécuter
à l'ouverture du classeur?
À partir de quel critère doit-on choisir un filtre ou un autre? Une
feuille de calcul ne peut afficher que
le résultat d'un filtre à la fois...En conséquence, je ne comprends pas ta
question.
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0ea7e0$0$5698$ba4acef3@reader.news.orange.fr...
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe
qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
jekkfd$tta$1@speranza.aioe.org...
J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
| surtout ce que viens faire cette feuil4 invisible...
**** Si l'usager maintient enfoncée la touche "Maj" pendant l'ouverture du
fichier, la macro "Workbook_Open" ne s'exécutera
pas. La conséquence c'est que le fichier va s'ouvrir sans mot de passe et
sans filtre. Pour éviter que la chose arrive, si
l'usager fait cela, la feuil4 masquée s'affiche et toutes les autres
feuilles du classeur sont masquées. Il est donc
impossible à l'usager de modifier ou d'accéder aux feuilles de données du
classeur. Voilà!
| Mais il me faut plusieurs mot de passe qui me filtrera differentes
choses.
**** Dis, qu'est-ce qui t'empêcha d'énoncer clairement ta demande lors de
ton premier message?
**** Comment savoir dans ta demande nouvelle, quel filtre doit s'exécuter
à l'ouverture du classeur?
À partir de quel critère doit-on choisir un filtre ou un autre? Une
feuille de calcul ne peut afficher que
le résultat d'un filtre à la fois...En conséquence, je ne comprends pas ta
question.
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion :
4f0ea7e0$0$5698$
Genial Mich, je ne comprend pas grand chose, surtout ce que viens faire
cette feuil4 invisible...
J'essaie d'adapter ce que tu m'as donner pour faire evoluer ma finalité,
mais je n'arrive pas à adapter, je m'explique, j'ai un mot de passe qui me
filtre les 107 dans la colonne K, Mais il me faut plusieurs mot de passe
qui
me filtrera differentes choses.
Exemple
Password MichD doit filtrer les 107 de la colonne K
Password Manu doit filtrer 250 de la colonne K
Password Nico doit filtrer les 66 de la colonne B
...... etc.... et j'en ais bcp ainsi
Je ne peux pas faire autant de Private Sub Workbook_Open() que de
password....
Merci encore
Manu
"MichD" a écrit dans le message de news:
jekkfd$tta$J'ai omis cette ligne de code comme "dernière ligne" de la procédure
"Workbook_Open" dans le ThisWorkbook
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------