Bonjour,
Je suis en train de finaliser mon userform, il ne me manque que quelques ajustement de protection ici et là.
J'ai ajouter une macro ("Actualiser" sur la feuille 2 ("Résumé") pour actualiser via un clic la page qui reprend en plus simplifiés les données de ma feuille1 (dans laquelle le userform est saisi). Comme tout doit être verrouillé, j'ajoute des codes à cet effet dans chaque macro avec mon mot de passe (avec le code, la feuille se déverrouille pour actualiser et se reverrouille automatiquement). Le problème est que sur cette feuille, les utilisateurs doivent pouvoir conserver la fonction Tri même avec la protection. En verrouillant la feuille manuellement il suffirait de cocher cette option lors du verrouillage, mais en terme de code, je ne sais pas comment l'exprimer... Il doit y avoir quelque chose à ajouter à la suite de la ligne : .Unprotect Password:="MDP".
Merci par avance !
Voici le code:
Sub Actualiser()
'
' Actualiser Macro
'
'
With Sheets("Résumé")
.Unprotect Password:="MDP"
Range("A4:L4").Select
Selection.AutoFill Destination:=Range("A4:L1507"), Type:=xlFillDefault
Range("A4:L1507").Select
Range("C15").Select
.Protect Password:="MDP"
End With
End Sub
Je suis en train de finaliser mon userform, il ne me manque que quelques ajustement de protection ici et là.
J'ai ajouter une macro ("Actualiser" sur la feuille 2 ("Résumé") pour actualiser via un clic la page qui reprend en plus simplifiés les données de ma feuille1 (dans laquelle le userform est saisi). Comme tout doit être verrouillé, j'ajoute des codes à cet effet dans chaque macro avec mon mot de passe (avec le code, la feuille se déverrouille pour actualiser et se reverrouille automatiquement). Le problème est que sur cette feuille, les utilisateurs doivent pouvoir conserver la fonction Tri même avec la protection. En verrouillant la feuille manuellement il suffirait de cocher cette option lors du verrouillage, mais en terme de code, je ne sais pas comment l'exprimer... Il doit y avoir quelque chose à ajouter à la suite de la ligne : .Unprotect Password:="MDP".
Merci par avance !
Voici le code:
Sub Actualiser()
'
' Actualiser Macro
'
'
With Sheets("Résumé")
.Unprotect Password:="MDP"
Range("A4:L4").Select
Selection.AutoFill Destination:=Range("A4:L1507"), Type:=xlFillDefault
Range("A4:L1507").Select
Range("C15").Select
.Protect Password:="MDP"
End With
End Sub