Microsoft 365 Proteger des lignes sous excel au fur et a mesure de la saisie

Sherpa11 · 4 Février 2021

Bonjour,
Étant novice sur VBA (ou plutôt nul !) je m'en remet aux spécialistes !
Je souhaite protéger un fichier Excel partagé de manière à ce que je soit le seul à le remettre à zéro.(ça je sais faire)
Mais ce fichier doit impérativement lorsqu'une personne saisie une date, l'intitulé et le montant se verrouiller pour que les sommes soient impossible à modifier aprés la fonction [entrée] (le mieux serait même la ligne)
Je n'arrive pas à trouver mon bonheur sur les différents forum.
Si quelqu'un peut m'aider ?

sylvanu · 4 Février 2021

Bonjour Sherpa,
Une méthode simple et peut être suffisante en PJ avec :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If [PWD] = "Sherpa11" Then Exit Sub
    If Not Intersect(Target, Range("A1:E1000")) Is Nothing Then
        If Target.Column = 3 And Cells(Target.Row, 4) <> "" Or _
           Target.Column = 4 And Cells(Target.Row, 3) <> "" Or _
            Target <> "" Or Target.Column = 5 Then
                Cells(1 + Range("A65500").End(xlUp).Row, "A").Select
        End If
    End If
Fin:
End Sub

Si la cellule sélectionnée n'est pas vide ou si la ligne est déjà remplie alors le curseur se place à la fin de la colonne A.
Si la cellule jaune contient Sherpa11, la macro est invalidée.

Sherpa11 · 4 Février 2021

Impressionnant !!! 😲 de rapidité , de fonctionnalité.
Vous êtes un génie du VBA !! 👍

Microsoft 365 Proteger des lignes sous excel au fur et a mesure de la saisie

Sherpa11

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Sherpa11

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Proteger des lignes sous excel au fur et a mesure de la saisie

Sherpa11

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Sherpa11

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency