Problème macro et protection feuille

[Noemy]

Bonjour,
Encore besoin de votre aide pour quelques problèmes...
Mes macros N° devis - N° étude - N° cde ne s'appliquent plus lorsque je protège la feuille. Comment faire pour qu'elles s'appliquent même avec la protection?
Merci et bonne journée à tous.

 

[PascalXLD]

Re : Problème macro et protection feuille

Bonjour

Il faut protéger ta feuille à l'ouverture avec userinterfaceonly à true

Fais uen petite recherche sur le forum avec ce mot clé "userinterfaceonly" et tu auras même des démos

 

[Noemy]

Re : Problème macro et protection feuille

Merci pour l'info., j'ai essayé mais je n'y arrive pas 🙁 , des messages d'erreur s'affichent. Peux tu essayer de regarder stp?

 

[PascalXLD]

Re : Problème macro et protection feuille

Re

Tu utilises quel excel ???

 

[PascalXLD]

Re : Problème macro et protection feuille

Re

Oh la la il faudrait faire un peu de ménage dans ton code jeune fille 😀

Exemple

Sub Commande_Click()
ActiveSheet.Unprotect "castex"

Sub n°devis()
    Application.ScreenUpdating = False
        Sheets("Feuil1").Select
ActiveSheet.UsedRange.Rows("8:" & ActiveSheet.UsedRange.Rows.Count).Select
    Selection.Sort Key1:=Range("D9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("D9").Select
        Application.ScreenUpdating = True
        
        ActiveSheet.Protect "castex"
        
End Sub

Là tu as une première procédure sans fin de procédure et une autre qui s'ouvre

Tu as plein de modules vides tu as même des modules de classe

Il faudrait faire une peu de vide et reverifier ton code si il ne manque pas des end sub ou des sub en trop

 

[Gorfael]

Re : Problème macro et protection feuille

Bonjour,
Encore besoin de votre aide pour quelques problèmes...
Mes macros N° devis - N° étude - N° cde ne s'appliquent plus lorsque je protège la feuille. Comment faire pour qu'elles s'appliquent même avec la protection?
Merci et bonne journée à tous.

salut
tu remplaces

    Application.ScreenUpdating = False
        Sheets("Feuil1").Select
              ..........................
 
        Range("D9").Select
        Application.ScreenUpdating = True

par

    Application.ScreenUpdating = False
        Sheets("Feuil1").Select
        ActiveSheet.Unprotect "toto"
              ..........................
 
        Range("D9").Select
        ActiveSheet.Protect "toto"
        Application.ScreenUpdating = True

A+

 

[Noemy]

Re : Problème macro et protection feuille

J'ai remplacer mon code par ce que tu m'a indiquer mais c'est cette partie là qui a un problème apparament...

Selection.Sort Key1:=Range("D9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal = 0

??

 

[Noemy]

Re : Problème macro et protection feuille

Bon le ménage est fait mais toujours le problème de code...

 

[PascalXLD]

Re : Problème macro et protection feuille

Re

Bon je n'ai plus d'erreur

A toi de voir

 

[Noemy]

Re : Problème macro et protection feuille

D'accord, merci beaucoup.
Je n'arrive plus à éxécuter la macro des boutons (mes boutons N° cde, N° étude et N° Devis doivent se classer par ordre alphabétique lorsqu'on clique sur l'un d'eux). Cela a déja fonctionné mais là apparament ca ne marche plus... Merci beaucoup pour ton aide, pas facile d'être débutante!😱

 

[Foufoudora]

Re : Problème macro et protection feuille

salut Noemy,
Bonjour tout le monde.
juste un petit truc, mets un MDP sur VBA pour que personne a part toi puisse visualiser tes codes VBA et voir le MDP.

Salutations

Foufoudora

 

[Noemy]

Re : Problème macro et protection feuille

Salut Foufoudora,
Merci mais comment fait on cela??

 

[Foufoudora]

Re : Problème macro et protection feuille

Salut Noemy

tu fait ALT+F11.
clic droit sur VBAprojet(nom de ton classeur)/propriétés du projet
onglet protection
tu coches verouiller à l'affichage et tu mets ton MDP

Cordialement

Foufoudora

 

[Noemy]

Re : Problème macro et protection feuille

Autre problème, maintenant lorsque ma page n'est plus protégée j ai un message d'erreur me disant que la macro ne peut être réaliser en mode arrêt. Qu'est ce que cela signifie??

Je n'arrive toujours pas à exécuter mes boutons de tri N° Devis - N° Cde - N° étude quand la feuille est protégée.

Si quelqu'un veut bien m'aider, ca serait super

 

[PascalXLD]

Re : Problème macro et protection feuille

RE

Dis ton dernier fichier n'as rien à voir avec ce que je t'ai envoyé

J'avais rajouté du code dans le thisworkbook et le module 4 a changé

Il faudrait peut-être expliquer ce que tu desires que fassent ts macros car là j'ai du mal à suivre