Supprimer ligne contenant des cellules vérouillées

**nanousik** · 11/02/2014, 11h23

Bonjour,

J'utilise un classeur partagé contenant des cellules verrouillées (contenante des formules).

Je souhaite pouvoir supprimer des lignes, mais ces lignes contiennent des cellules verrouillées donc je ne peux pas supprimer de ligne.

Pour pallier au problème, j'ai réaliser une macro qui déprotège et protège la feuille:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
 
Dim LigneClic, ColClic, Adr As String
Adr = Target.Address(True, True, xlR1C1)
ColClic = Mid(Adr, InStr(2, Adr, "C") + 1)
Adr = Mid(Adr, InStr(Adr, "R") + 1)
LigneClic = Left(Adr, InStr(Adr, "C") - 1)
 
If ColClic > 0 And ColClic < 12 Then
    reponse = MsgBox("Etes vous sûr de vouloir supprimer la ligne " & LigneClic & "?", vbYesNo)
    If reponse = vbYes Then
        Dim feuilleSource, feuilleDestination As Worksheet
        Dim ligneDeb, ligneFin As Integer
 
        Set feuilleSource = Sheets("LISTE SUIVI")
        Set feuilleDestination = Sheets("ARCHIVES")
        feuilleSource.Unprotect
        feuilleDestination.Unprotect
        'copie
        ligneDeb = 1
        While feuilleDestination.Range("A" & ligneDeb) <> ""
            ligneDeb = ligneDeb + 1
        Wend
 
        feuilleSource.Activate
        feuilleSource.Range("A" & LigneClic & ":K" & LigneClic).Copy _
                        Destination:=feuilleDestination.Range("A" & ligneDeb)
        ' suppression
        feuilleSource.Rows(LigneClic).Delete
 
        feuilleDestination.Protect
        feuilleSource.Protect
    End If
End If
 
End Sub

Le soucis est que comme le classeur est partagé, je ne peux pas protéger ni déprotéger une feuille.

Si l'un d'entre vous a une solution a mon problème, elle est bienvenue

Merci d'avance