filtre par password
Le
Manu
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
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
Poser une question
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
Ca fonctionne tres bien, mais il manque le principal, c'est qu'il ne me
demande pas le mot de passe "toto" pour ouvrir le fichier. Seul le tenanteur
du mot de passe peu avoir le droit d'ouvrir le fichier. Là tout le monde
peux l'ouvrir.
Merci
Manu
"MichD" jekbeo$7nm$
Le mot de passe pour ouvrir le fichier est : MichD Sensible à la casse.
Si tu veux réussir ce que tu désires, tu dois ajouter du code afin de t'assurer que l'usager
ne désactive pas les macros à l'ouverture pas les macros à l'ouverture du fichier.
Il ne te reste plus qu'à protéger le code du fichier par mot de passe.
MichD
------------------------------------------
"Manu" a écrit dans le message de groupe de discussion : 4f0dbf8c$0$2542$
Merci Mich,
Ca fonctionne tres bien, mais il manque le principal, c'est qu'il ne me
demande pas le mot de passe "toto" pour ouvrir le fichier. Seul le tenanteur
du mot de passe peu avoir le droit d'ouvrir le fichier. Là tout le monde
peux l'ouvrir.
Merci
Manu
"MichD" jekbeo$7nm$
Juste avant End Sub, inscrire : Me.Saved=true
MichD
------------------------------------------
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" jekkfd$tta$