grisé une cellule par un mot de passe

[akramenergie]

Bonjour à tous,

Mon équipe dois me saisire une date de livraison chaque semaine et je veux que une fois la date est saisie qu'ils aurent plus la main a la modiffier j'ai penssé a faire un mot de passe qui intérdit l'ecriture sur toute cellule renseigner.
j'imagine que sa devrais étre une sorte de protection pour les cellules pleine

quelqu'un peux m'aider SVP

 

[Dranreb]

Re : grisé une cellule par un mot de passe

Bonjour,
Suggestion:
Protégez votre classeur. Écrivez une macro s'exécutant avant sa sauvegarde qui verrouille les cellules renseignées et déverrouille celles qui ne le sont pas lorsqu'elles ont un style particulier.
À+

 

[akramenergie]

Re : grisé une cellule par un mot de passe

Bonjour à tous et à toutes

J'ai esseyer de protéger mes cellule dans la collone D achaque fois que l acellule contien des données avec une macro excel, j'ai enregistrer une macro et j'ai esséyer de l'appliqué sur mon cas mais j'ai un message d'erreur "Impossible de difinir la propriété Selection.Locked Range" ????😕

quelqu'un peux m'aider a faire tourner ma macro

Merci

Ci joint l efichier en question

 

[James007]

Re : grisé une cellule par un mot de passe

Bonjour,

Tu peux tester le code suivant :

Option Explicit
Private Sub Workbook_Open()
Dim i As Long
    For i = 4 To 10
        If Sheets("Feuil1").Cells(i, 4).Value <> "" Then
            Cells(i, 4).Locked = True
            Cells(i, 4).FormulaHidden = False
        End If
    Next i
Feuil1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A +
🙂

 

[Dranreb]

Re : grisé une cellule par un mot de passe

Essayer ceci

Private Sub Workbook_Open()
Dim Cel As Range
Feuil1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
For Each Cel In Feuil1.[$D4:$D10]
   Cel.Locked = Cel.Value <> ""
   Next Cel
End Sub

 

[Excel-lent]

Re : grisé une cellule par un mot de passe

Bonjour à tous,

Si je peux me permettre, Akramenergie a indiqué :

(...)une fois la date est saisie qu'ils aurent plus la main a la modiffier (...)

Donc une macro se déclenchant à la saisie :

Private Sub Worksheet_Change(ByVal Target As Range)

me semble plus indiqué qu'une macro qui se déclenche à l'ouverture du fichier :

Private Sub Workbook_Open()

Bonne après midi à tous