Supprimer une plage dans une feuille protégée

[apt]

Bonsoir à tous,

J'aimerais supprimer une plage dans la feuille2 qui est protégée par un mot de passe.

Mais j'ai un message d'erreur que la feuille est protégée si cette ligne est exécutée :

.Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents

Et je n'ai rien si cette ligne est exécutée :

MsgBox "Delete main plage : " & .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address

Voila le code :

Private Sub CommandButton1_Click()
    With Sheets("Feuil2")
        .Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents
        'MsgBox "Delete main plage : " & .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
    End With
End Sub

Merci.

 

[JCGL]

Re : Supprimer une plage dans une feuille protégée

Bonjour à tous,

Peut-être en enlevant la protection avant l'effacement et en la remettant après l'action.

Option Explicit

Private Sub CommandButton1_Click()
    With Sheets("Feuil2")
        .Unprotect
        .Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents
        .Protect
    End With
End Sub

.Unprotect "apt" si tu as mis un MdP

A + à tous

 

[apt]

Re : Supprimer une plage dans une feuille protégée

Bonsoir JCGL,

Ca marche.

Mais dans ce cas, le bouton de suppression est accessible par n'importe qui.

Ce qui rend la protection sans effet.

 

[JCGL]

Re : Supprimer une plage dans une feuille protégée

Bonjour à tous,

Pas facile de tenter d'aider sans support...

A + à tous

 

[apt]

Re : Supprimer une plage dans une feuille protégée

Un exemple en PJ

 

[JCGL]

Re : Supprimer une plage dans une feuille protégée

Bonjour à tous,

Tu souhaites protéger le bouton ?
Si Oui, comment lanceras-tu la macro.

A + à tous

 

[Yaloo]

Re : Supprimer une plage dans une feuille protégée

Bonsoir à tous les 2,

Protéger le bouton : non
mais mettre un mot de passe sur le code : oui

Private Sub CommandButton1_Click()
Dim mp
mp = InputBox("Mettre un mot de passe", "entrer mot de passe")
    If mp = "123" Then
    With Sheets("Feuil2")
        .Unprotect "123"
        .Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents
        .Protect
        'MsgBox "Delete main plage : " & .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
    End With
    End If
End Sub

A+

 

[apt]

Re : Supprimer une plage dans une feuille protégée

Bonsoit Yaloo,

Ca marche et c'est plus fiable maintenant.

Merci.

 

[JCGL]

Re : Supprimer une plage dans une feuille protégée

Bonjour à tous,

Dans le code fourni par Yaloo, le MdP n'est pas renseigné à la re protection de la feuille.

A+ à tous

 

[Yaloo]

Re : Supprimer une plage dans une feuille protégée

Bonjour Apt, JCGL, le forum,

Oui en effet, j'ai juste repris le code qui était sur le fichier.

Puis j'ai adapté l'inputbox, sans regarder plus que ça le code existant. Donc il faut le compléter.

Sachant qu'il s'agit juste d'une première protection, car qui connait un peu les macros pourra contourner le mot de passe.

A+

Yaloo

 

[apt]

Re : Supprimer une plage dans une feuille protégée

Bonsoir à tous,

Dans le code fourni par Yaloo, le MdP n'est pas renseigné à la re protection de la feuille.

Donc il faut le compléter

Comment ???

Merci.

 

[Yaloo]

Re : Supprimer une plage dans une feuille protégée

Bonjour apt, le forum,

Comme ça :

Private Sub CommandButton1_Click()
Dim mp
 mp = InputBox("Mettre un mot de passe", "entrer mot de passe")
     If mp = "123" Then
     With Sheets("Feuil2")
         .Unprotect "123"
         .Range("A2:A" & .Range("A65536").End(xlUp).Row).ClearContents
         .Protect "123"
         'MsgBox "Delete main plage : " & .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
    End With
     End If
End Sub

Il suffit de rajouter ton mot de passe entre guillemets.

A+

 

[apt]

Re : Supprimer une plage dans une feuille protégée

Bonsoir Yaloo,

Merci infinement.

Cordialement.