Discussion :

[Ellouubab]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

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.

[don_pets]

Hello,

Voilà le code que j'utilise pour bloquer des zones

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez la plage à verrouiller", "Sélection de cellules", Type:=8)
 
MsgBox ("La plage que vous avez sélectionnée est :" & Plage.Address)
 
    If MsgBox("êtes-vous certain de valider ?" & Chr(13) & _
   "Vous ne pourrez plus modifier les entrées.", vbQuestion + vbYesNo) = vbYes Then
        ActiveSheet.Unprotect
        ActiveSheet.Cells.Locked = False
        Plage.Copy
        Plage.Locked = True
        ActiveSheet.Protect
    End If

Enjoy

[Ellouubab]

Hello don_pets,

Honnêtement je suis nul à utiliser et modifier des codes comme ça, tu peux m'aider ?

je veux bloquer toute la feuille après plusieurs modification, donc la plage est A1:I109 !

comment je dois modifier le code svp?
et a propos le mot de passe !!

[Niagala]

Bonjour

Voulez-vous protéger la feuille après avoir fini toutes vos modifications ou après chaque écrire dans une cellule ?

La méthode simple ne vous intéresse-t-elle pas au lieu de protéger par code VBA ?

• Protéger la feuille
• Autoriser la modification des plages concernés (Indiquer un mot de passe de modification)

Alors Excel vous demande un mot de passe si vous voulez modifier une des plages concernées.
Après la saisie quand vous fermez le classeur, à la réouverture, Excel vous demandera encore le mot de passe si vous voulez modifier une des plages concernées.

[Ellouubab]

Salut Niagala,

Le problème c’est que je veux partager le fichier avec des collègues, alors ce que je veux c’est protéger la feuille après saisie, donc le fichier doit être ouvert sans mote de passe la 1ère fois, quand quelqu’un insère des informations je veux que la feuille se bloque automatiquement sans qu’ils connaissent le mote de passe pour interdire les modifications par tous les collègues.
J’es que mon message soit clair pour vous.

[Ellouubab]

Merci a tous, j'ai trouvé la solution qui me convient sur cette video :