base de données excel et interdiction de modification
1 réponse
Bertrand
Bonjour,
Voila j'ai une base de données Excel et j'aimerais pouvoir interdir a mes
utilisateurs de modifier toute fiche saisie et valider.
uniquement la possibilité d'en rajouter une en dernière ligne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Une petite bidouille comme ceci peut-être.. Dans le module de la feuille en question. '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo err dercol = Cells.Find("*", , 1, , 2, 2).Column derlg = Cells.Find("*", , 1, , 1, 2).Row If Not Intersect(Target, Range(Cells(1, 1), Cells(derlg, dercol))) Is Nothing Then MsgBox "Modification interdite" Exit Sub err: MsgBox "Aucune cellule renseignée" End Sub '----- Salutations JJ
"Bertrand" a écrit dans le message de news:
Bonjour,
Voila j'ai une base de données Excel et j'aimerais pouvoir interdir a mes utilisateurs de modifier toute fiche saisie et valider. uniquement la possibilité d'en rajouter une en dernière ligne.
Comment puis-je faire ?
Merci a tous. Bien Cordialement.
Bonjour,
Une petite bidouille comme ceci peut-être..
Dans le module de la feuille en question.
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo err
dercol = Cells.Find("*", , 1, , 2, 2).Column
derlg = Cells.Find("*", , 1, , 1, 2).Row
If Not Intersect(Target, Range(Cells(1, 1), Cells(derlg, dercol))) Is
Nothing Then MsgBox "Modification interdite"
Exit Sub
err:
MsgBox "Aucune cellule renseignée"
End Sub
'-----
Salutations
JJ
"Bertrand" <Bertrand@discussions.microsoft.com> a écrit dans le message de
news:9530C80F-A8BC-4704-9A68-CA006C2EFE45@microsoft.com...
Bonjour,
Voila j'ai une base de données Excel et j'aimerais pouvoir interdir a mes
utilisateurs de modifier toute fiche saisie et valider.
uniquement la possibilité d'en rajouter une en dernière ligne.
Une petite bidouille comme ceci peut-être.. Dans le module de la feuille en question. '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo err dercol = Cells.Find("*", , 1, , 2, 2).Column derlg = Cells.Find("*", , 1, , 1, 2).Row If Not Intersect(Target, Range(Cells(1, 1), Cells(derlg, dercol))) Is Nothing Then MsgBox "Modification interdite" Exit Sub err: MsgBox "Aucune cellule renseignée" End Sub '----- Salutations JJ
"Bertrand" a écrit dans le message de news:
Bonjour,
Voila j'ai une base de données Excel et j'aimerais pouvoir interdir a mes utilisateurs de modifier toute fiche saisie et valider. uniquement la possibilité d'en rajouter une en dernière ligne.
