Salut
J'ai besoin de votre aide,
J'ai un fichier excel .. sur une feuille je veux verrouiller Ou protéger la feuille automatiquement après la saisie,
j'ai trouvé une solution par ce code VBA :
Code VBA: verrouille ou protège les cellules après la saisie ou l'entrée de données
[Surligner]Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub[/Surligner]
Note: Dans le code, "A1:F1" est la plage dont j'ai besoin de protéger et "123" est le mot de passe.
Le problème que j'ai trouvé avec ce code c'est qu'après une seule saisie ou modification la feuille devienne bloquée alors que j'ai beaucoup d'information à saisir!
Est ce que possible que je met un bouton ou quelque chose, quand je fini je clique sur le bouton est la feuille est protégée ?
Et merci.