Macro et protection feuille

Bonsoir a tous

Dans le fichier ci-joint, une macro calcule la consommation et le cout dans les colonnes X et Y si la cellule de la colonne E est renseignée.

Cette macro devellopée pour moi par Banzai64 (encore merci a lui) fonctionne très bien, mais si je souhaite masquer les formules avec "protéger la feuille" la macro plante.

Est-il possible de remédier a cela ?

d'avance merci.

Bonjour

C'est bien ce qui me semblait, cette macro n'est pas de moi mais rendons à Dubois ce qui est à Claude

https://forum.excel-pratique.com/excel/garder-ancienne-valeure-t23014-10.html

Sinon à essayer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg%
    If Not Application.Intersect(Target, Range("e3:e33")) Is Nothing Then
      ActiveSheet.Unprotect
      If Target.Count > 1 Then Exit Sub
          Lg = Target.Row
      If Target = "" Or Range("w" & Lg) = "" Then
          Range("x" & Lg & ":y" & Lg).ClearContents
      Else
        Range("x" & Lg) = Sheets("Données").Range("c16") / 100 * Range("w" & Lg)
        Range("y" & Lg) = Range("x" & Lg) * Sheets("Données").Range("L15")
      End If
      ActiveSheet.Protect
    End If
End Sub

Bonjour Banzai64

Toutes mes excuses a Dubois

je vais essayer cela

Merci

Bonjour a tous

Aprés essais et en partant d'une feuille protégée

A la première saisie dans la colonne E, demande du mot de passe et la macro s'execute bien, sauvegarde ok.

Le souci c'est que a la réouverture du classeur par contre plus besoin de donner le mot de passe pour déprotéger la feuille.

bon week-end

Bonjour

C'est normal elle est protégé sans mot de passe

Si tu laisses

ActiveSheet.Unprotect

Il te demandera chaque fois le mot de passe

par contre

ActiveSheet.Unprotect Password:="Le mot de passe"

Il ne demandera rien

Ne pas oublier de modifier la partie protection

ActiveSheet.Protect Password:="Le mot de passe"

Bonjour et merci

Ok c'est bon, mais peux t'on empecher de visualiser le code quand la feuille est protégée ?

Bonjour

will60 a écrit :

mais peux t'on empecher de visualiser le code quand la feuille est protégée ?

Dans l'éditeur VB il faut que ton protèges le code par un mot de passe

Menu Outils ---> Propriétés de VBAProject ....

Onglet Protection ---> Coches "Verrouiller le projet pour l'affichage"

Ensuite tu tapes un mot de passe (qu'il faut confirmer)

Ok

Et tu sauves

impeccable

merci et bon week-end