planning gestion temps protection des feuilles sans affecter les macros

sourcier08

XLDnaute Occasionnel

• 21 Avril 2014

• #2

Re : planning gestion temps protection des feuilles sans affecter les macros

Salut à tous,

khephrens, en désactivant la protection en début de macro et en la réactivant à la fin, ça devrait aller.

avec en début de macro :

ActiveSheet.Unprotect ("ton mot de passe")

et en fin de macro :

ActiveSheet.protect ("ton mot de passe")

Dans la mesure où tu ne quittes pas la feuille.

 

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #3

Re : planning gestion temps protection des feuilles sans affecter les macros

bonjour et merci sourcier
je l'avais tester, ca fonctionne en effet mais ce n'est pas très sur car je dois changer de feuille ...et là ca bug
je n'arrive pas a m'en sortir d'une manière fiable
si quelqu’un a une autre idée
🙂
khephrens

 

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 21 Avril 2014

• #4

Re : planning gestion temps protection des feuilles sans affecter les macros

Je viens de tester en le plaçant dans la boucle, et je n'ai rencontré aucun problème.
J'avais bien sûr protégé la feuille avec mdp: "1234" avant d'utiliser la macro.

Code:

Sub statut()
If Intersect(ActiveCell, Range("d8:e38")) Is Nothing Then
    MsgBox "Vous n'êtes pas dans la bonne zone de sélection"
Else
    For Each cellule In Selection
        nom = ActiveSheet.Shapes(Application.Caller).Name
        
        
    ActiveSheet.Unprotect ("1234")
        
        
        Select Case nom
        
        Case "recup" 'si bouton absent cliqué (regarde dans la "zone nom" sur la feuille,
                        ' c'est cette info que la macro cherche et non ce qui est écrit sur le bouton
            cellule.Interior.ColorIndex = 3 'applique le code couleur
            cellule.Value = "recup" 'je pense que c'est clair
        Case "present" 'si bouton present cliqué" etc ....
            cellule.Interior.ColorIndex = 0
            cellule.Value = ""
        Case "arrettravail"
           cellule.Interior.ColorIndex = 43
            cellule.Value = "arret"
        Case "ca"
            cellule.Interior.ColorIndex = 42
            cellule.Value = "ca"
        Case "abs"
            cellule.Interior.ColorIndex = 3
            cellule.Value = "abs"
     
        Case "forma"
            cellule.Interior.ColorIndex = 7
            cellule.Value = "F"
        
        End Select
        
        
    ActiveSheet.Protect ("1234")
        
        
    Next
End If
End Sub

Peux-tu être plus précis en disant que la macro bug? Car chez moi, tout va bien.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Avril 2014

• #5

Re : planning gestion temps protection des feuilles sans affecter les macros

Bonjour à tous,

Peux-tu essayer ceci dans le module ThisWorkBook ?

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Protect UserInterfaceOnly:=True
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #6

Re : planning gestion temps protection des feuilles sans affecter les macros

re 🙂
je vais ressayer car j'avais placé le code juste après "sub" et avant "end sub" c'est peut être pour çà que çà "buguait".
il y a deux autres macros sur le fichier puis je mettre le code de la meme facon ??
pardonne moi mon coté novice!! 🙂
merci bcp

 

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #7

Re : planning gestion temps protection des feuilles sans affecter les macros

bonjour jcgl
j'ai essayé ta solution ma ça ne fonctionne pas 🙁

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 21 Avril 2014

• #8

Re : planning gestion temps protection des feuilles sans affecter les macros

Bonsoir, khephrens, bonsoir à tous 🙂

Je ne vais pas rater l'occasion de saluer JC, que je croise si peu ces derniers temps 🙂

khephrens à dit:

bonjour jcgl
j'ai essayé ta solution ma ça ne fonctionne pas 🙁

Cliquez pour agrandir...

Si, si...
C'est même spécialement étudié pour.
L'argument UserInterfaceOnly de la méthode Protect lors de la protection de la feuille autorise l'action des macros, en maintenant l'interdiction des action de l'utilisateur.

 

Dernière édition: 21 Avril 2014

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #9

Re : planning gestion temps protection des feuilles sans affecter les macros

je dois m'y prendre mal .. désolé victor je suis novice en vba ..

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 21 Avril 2014

• #10

Re : planning gestion temps protection des feuilles sans affecter les macros

Re,

Suivez les conseils de JCGL sur le #5, vérifiez que certaines cellules d'au moins l'une de vos feuilles sont protégées, déprotégez cette feuille, passez sur une autre, puis revenez-y. Les cellules en question ne sont-elles pas à nouveau protégées ?
Maintenant, faites tourner votre macro. Qu'observez-vous ?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Avril 2014

• #11

Re : planning gestion temps protection des feuilles sans affecter les macros

Bonjour à tous,
Salut mon Patrick,

Le bout de code se place dans ce module :



A+ à tous

 

Pièces jointes

• Modules_ThisWorkBook.JPG

  8.3 KB · Affichages: 56
• Modules_ThisWorkBook.JPG

  8.3 KB · Affichages: 54

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #12

Re : planning gestion temps protection des feuilles sans affecter les macros

c'est ce que j'ai fait JCGL mais c'est peut etre que je n'avais pas protégé le classeur avant !!?

 

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 21 Avril 2014

• #13

Re : planning gestion temps protection des feuilles sans affecter les macros

je vais essayer victor 🙂 merci je vais diner et apres je m'y mets
vous etes cool et patient merci

 

Vote positif 0 Vote négatif

K

khephrens

XLDnaute Occasionnel

• 22 Avril 2014

• #14

Re : planning gestion temps protection des feuilles sans affecter les macros

bonsoir le forum
a priori la solution de victor fonctionne
merci a tous pour votre contribution 🙂
bonne semaine

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2014

• #15

Re : planning gestion temps protection des feuilles sans affecter les macros

Re,

khephrens à dit:

a priori la solution de victor fonctionne

Cliquez pour agrandir...

Laissez à Khafrê ce qui appartient au pharaon, et rendons à JCGL ce qui appartient à Jean-Claude !
😉 😉

 

Vote positif 0 Vote négatif