Verrouiller un document excel avec Macro
vleverne
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai créer un document Excel avec Macro. Le but de ce fichier est de permettre l'entrée de données par plusieurs utilisateurs, mais que personne ne puisse changer les données des autres.
J'ai donc créer un bouton de macro pour remplir les différentes colonnes dans mon tableau, mais je ne trouve pas le moyen de sécuriser ces données par la suite.
De plus, j'ai dû faire une erreur dans ma programmation, parce que à chaque fois que je veux entrer une donnée, elle écrase la précédente.
Merci à l'avance de votre grande aide!
J'ai créer un document Excel avec Macro. Le but de ce fichier est de permettre l'entrée de données par plusieurs utilisateurs, mais que personne ne puisse changer les données des autres.
J'ai donc créer un bouton de macro pour remplir les différentes colonnes dans mon tableau, mais je ne trouve pas le moyen de sécuriser ces données par la suite.
De plus, j'ai dû faire une erreur dans ma programmation, parce que à chaque fois que je veux entrer une donnée, elle écrase la précédente.
Merci à l'avance de votre grande aide!
A voir également:
- Verrouiller un document excel avec Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Verrouiller cellule excel - Guide
- Liste déroulante excel - Guide
- Comment reduire la taille d'un document - Guide
- Word et excel gratuit - Guide
1 réponse
Bonjour
Code VBA a tester
Public x As Integer
Public x1 As Integer
Public y As String
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "" Then
x = Target.Row
x1 = Target.Column
y1 = Target.Address
ActiveSheet.Unprotect
Range(y).Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
y = Target.Address
End Sub
Cordialement
Code VBA a tester
Public x As Integer
Public x1 As Integer
Public y As String
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "" Then
x = Target.Row
x1 = Target.Column
y1 = Target.Address
ActiveSheet.Unprotect
Range(y).Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
y = Target.Address
End Sub
Cordialement