XL 2016 Autorisation du triage des colonnes avec protection de la feuille activé

sousou

XLDnaute Barbatruc

• 13 Février 2019

• #2

Bonjour
1/ ajouter
AllowSorting:=True la ligne de protection pou autoriser le tri ( pour voir les options utilise l'enregistreur de macro..)
Sheets("RD").Protect "Atelier6", AllowSorting:=True
2/ tu peux toujours faire ceci, et tu affecte un ctr(secret)l pour la lancée
Sub ouvre()
activesheets.unprotect("Atelier6")
End Sub

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 15 Février 2019

• #3

Bonjour,
Merci de t'occuper de mon cas
Cependant je suis vraiment novice de chez novice en programmation excel (et même excel tout court d’ailleurs)
J'ai tenter de copier coller les macros que tu me propose :

Sheets("RD").Protect "Atelier6", AllowSorting:=True

et

Sub ouvre()
activesheets.unprotect("Atelier6")
End Sub

Malheureusement aucune des 2 fonctionne dans le cas présent... ?
Une idée ?

Merci d'avance

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 16 Février 2019

• #4

Bonjour
Avec le fichier exempt de données privée ce serais plus facile

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 18 Février 2019

• #5

Bonjour,
Voici le fichier en question
Merci d'avance

 

Pièces jointes

• PLANNING PMN-TOLERIEold.xlsm

  136.1 KB · Affichages: 7

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Février 2019

• #6

bonjour
je suppose que lorsque tu parles de tri tu parles plutôt de filtre? alors:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Pour la deprotection 'auto', tou dépend de la façon dont ton réseau et surtout la manière dont excel est installé, il faudrait pouvoir récupérer le nom de la personne qu'il l'ouvre du genre application.username, mais je serais étonné qu cela fonctionne
Peut _être l'ouvrir à partir d'un autre fichier qui ne serait que sur les postes concernés je regarde

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Février 2019

• #7

Avec ceci à positionner dans le même dossier

 

Pièces jointes

• ouverture planning.xlsm

  14.1 KB · Affichages: 12

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 18 Février 2019

• #8

Effectivement je parle de filtre et non de tri...
après essai ça fonctionne ! plus besoin de libérer le document pour filtrer les colonnes
Cependant le mot de passe à sauté, il suffit de cliquer sur Ôter la protection pour que le document soit libéré.

En plaçant ton fichier ouverture planning dans le dossier ou ce trouve le tableau : cela fonctionne mais le problème c'est que rien n’empêche une personne n'étant pas censé travailler sur le document déverrouiller d'utiliser ce lien pour le faire librement

J'ai récupérer ce type de formule dans une ancienne version du fichier qui ne fonctionne plus.... j'ai essayer de faire un copier coller de la fonction mais ça ne fonctionne pas...

Private Sub Workbook_Open()

Colonne_STM = Array(14, 8, 14, 14, 15, 12, 12, 12, 12, 0, 0, 0, 0, 0, 0, 46, 18, 24, 15, 60, 50, 7, 14, 7, 16, 30)
Colonne_RD = Array(14, 8, 14, 14, 15, 12, 12, 12, 12, 6, 8, 8, 14, 10, 14, 46, 18, 24, 15, 60, 50, 7, 14, 7, 16, 30)

User = Get_Login
Select Case User
Case "pupitre", "NSoudain", "mverheecke"
Entreprise_RD = True
Call liberer
Call Init_Colonne
Case Else
Entreprise_RD = False
Call liberer
Call Init_Colonne
Call proteger
End Select

End Sub


Merci SOUSOU !

 

Pièces jointes

• PLANNING PMN-TOLERIEold.xlsm

  136.6 KB · Affichages: 6

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Février 2019

• #9

Effectivement pas dans le dossier!
ouvre le fichier ouverture planning
n'autorise pas les marcos
déprotège la feuille
entre en a1 le chemin du fichier par rapport au poste utilisateur
modifie la macro comme ceci
Private Sub Workbook_Open()
Set f = Workbooks.Open(ThisWorkbook.Path.Sheets(1).Range("a1") & "PLANNING PMN-TOLERIEold.xlsm")
f.Sheets("rd").Unprotect ("Atelier6")
ThisWorkbook.Close
End Sub
enregistre et ferme le fichier

Dans le fichier planning:
ActiveSheet.Protect "Atelier6", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 18 Février 2019

• #10

Ok ca deviens pas mal du tout !!!!
du coter du fichier planning c'est tout bon
du coter du fichier ouverture il me stipule un problème de compilation (Qualificateur incorrect)

Private Sub Workbook_Open()
Set f = Workbooks.Open(ThisWorkbook.Path.Sheets(1).Range("a1") & "PLANNING PMN-TOLERIEold.xlsm")
f.Sheets("rd").Unprotect ("Atelier6")
ThisWorkbook.Close
End Sub

Au niveau du .Path semble t'il

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 18 Février 2019

• #11

voici le fichier avec avec en A1 le chemin d'accès entré

 

Pièces jointes

• ouverture planning.xlsm

  12.7 KB · Affichages: 4

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Février 2019

• #12

je vais un peu vite
.path & "\" &

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 18 Février 2019

• #13

il me fait la même avec le .sheets(1).

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 18 Février 2019

• #14

Bon reprenons.!
çà doit être ceci, sinon envoi moi les deux fichiers
Set f = Workbooks.Open(ThisWorkbook.Sheets(1).Range("a1") & "PLANNING PMN-TOLERIEold.xlsm")
vérifie ce que tu as dans 'a1'

 

Vote positif 0 Vote négatif

C

Charles Sion

XLDnaute Nouveau

• 19 Février 2019

• #15

Bonjour SOUSOU,
A première vue cela fonctionne parfaitement !
Mille merci
je met tout ça en service d'ici ce soir et croise les doigts pour que cela continue de fonctionner
Bonne journée

 

Pièces jointes

• ouverture planning.xlsm

  14.2 KB · Affichages: 8
• PLANNING PMN-TOLERIEold.xlsm

  136.7 KB · Affichages: 6

Vote positif 0 Vote négatif