Autres Exécution Macro avec cellule vérouillée/feuille protégée

GRI84

XLDnaute Nouveau
Bonjour au Forum,
Je suis nouveau sur le site et débutant en VBA (pour info: j'utilise Excel 2007 chez moi pour préparer mes fichiers et Excel 2010 ou 2016 au bureau).
J'avais posé cette question sur une autre discussion sans voir que le forum était "RESOLU", donc je la repose ici.
Je n'arrive pas à trouver où est l'erreur de cette macro si c'est de là que vient le PB suivant.
j'ai créé la macro ci-dessous mais lorsque je "verrouille " la cellule puis protège la feuille avec un PW, l'affichage automatique ne se fait plus et la fenêtre débogage apparait.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Columns(1)) Is Nothing Then
If Target <> "" Then
Target.Offset(0, 3).Value = Format(Now, "dd hh:mm")
End If
If Target = "" Then
Target.Offset(0, 3).Value = ""

End If

End If

End Sub

Comment y remédier?
Merci de votre aide.
je joins le fichier en question.
PS j'aurai deux autres questions sur l'emploi de cette "feuille" et des mises en formes conditionnelles, mais je ne vais pas mélanger les sujets :))
 

Pièces jointes

  • MCC-ED_V3_V-PERSO.xlsm
    43.9 KB · Affichages: 11
Solution
Bonjour Le Forum, GRI84,

J'ai préalablement effectué le parcours suivant :
Révision - Protéger la feuille - choix du MDP : mer24 - Confirmer - Valider
... puis ajouté deux lignes de code dans ceci :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "mer24"
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        If Target <> "" Then
        Target.Offset(0, 3).Value = Format(Now, "dd hh:mm")
        End If
        If Target = "" Then
        Target.Offset(0, 3).Value = ""
             
        End If
    End If
Protect "mer24"
End Sub
Ainsi le format des cellules du pavé A5-N462 peut être conservé,
Webperegrino

Webperegrino

XLDnaute Impliqué
Supporter XLD
Bonjour Le Forum, GRI84,

J'ai préalablement effectué le parcours suivant :
Révision - Protéger la feuille - choix du MDP : mer24 - Confirmer - Valider
... puis ajouté deux lignes de code dans ceci :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "mer24"
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        If Target <> "" Then
        Target.Offset(0, 3).Value = Format(Now, "dd hh:mm")
        End If
        If Target = "" Then
        Target.Offset(0, 3).Value = ""
             
        End If
    End If
Protect "mer24"
End Sub
Ainsi le format des cellules du pavé A5-N462 peut être conservé,
Webperegrino
 

GRI84

XLDnaute Nouveau
Bonjour et un grand Merci "Webperegrino",
Cela fonctionne super, j’apprends jour après jour mais il y a toujours des astuces.
Je vais pouvoir continuer ma quête pour résoudre deux autres aménagement à mon tableau mais je posterai un nouveau sujet et clôturerai celui-ci.
Juste une question, quel livre me conseiller pour comprendre le VBA et avoir accès à tous ces codes. J'ai lu celui-ci (Le programmeur VBA de Mikael Bidaut aux éditions Pearson) mais pas complet et pas très clair pour un débutant.
Merci.
Du coup est ce que je clôture la discussion ou bien j’attends la réponse à ce dernier mail?
 

Webperegrino

XLDnaute Impliqué
Supporter XLD
GRI84,
Je laisse les Experts du Site vous orienter vers le bon document.
Vous vous apercevrez qu'ils sont tous de très bons compagnons et pédagogues pour avancer dans vos projets de programmation vba Excel.
Comme vous, je me suis inscrit sur LE FORUM en 2008 : je ne savais pas du tout développer en VBA.
Puis, en furetant ici et là dans les différentes discussions ou en demandant des précisions lors de ma progression j'ai réussi à acquérir le B.A. BA en vba grâce à tous les bons conseils que l'on trouve ici.
Persévérez ! c'est le seul conseil que je peux vous donner et faites comme moi : créez un petit carnet de codifications vba au fur et à mesure des lectures ou de vos conceptions personnelles.
Cordialement,
Webperegrino
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11