Pb deverouiller plage cellules

**clem92500** · 27/07/2007, 13h39

Bonjour,

Je recherche activement une personne plus doué que moi, pouvant repondre à ma question.
En effet, je cherche a deverouiller par une macro une plage de cellule d'une feuille protegée...Dans la logique de mon programme, la macro demande a l'utilisateur un mot de passe(ca j'ai reussit) qui lui ouvre l'acces à une feuille deverouillée dans certaines plages de cellules...

Les lignes de codes qui me resistent sont les suivantes:

Code :

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

1
2
3
4
ActiveSheet.Unprotect
    ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Rows( _
        "22:22")
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'dans ce cas precis, je cherche a deverouiller une ligne

Please help me....

Clement

**Plateforme3** · 27/07/2007, 14h08

Bonjour
As tu essayé de remplacer:

Code :

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

1
2
ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Rows( _
"22:22")

par

Code :

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

1
2
Rows("22:22").Select
    Selection.Locked = False

Slts

**clem92500** · 27/07/2007, 14h41

Oui j'ai essayé, malheuresement ce ne fonctionne pas...

Le message d'erreur est le suivant:

'Erreur d'execution 1004
'Impossible de définir la proporiété Locked dans la classe Range

je t'envoie toutes les lignes des programme, ca pourra peu etre d'aider...

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
Private Sub CommandButton3_Click()
Sheets("Recherche").Select
 
'Sauvegarde des fichiers modifiers
Dim reponse As String
 
 
reponse = InputBox("Donner numero de la ligne à modifier", "Identification", "")
 
If IsNumeric(reponse) Then Range("A" & reponse).Select
 
 
Rows("22:22").Select
    Selection.Locked = False
 
 
End Sub

MErci beaucoup de ton aide....

**clem92500** · 27/07/2007, 15h06

Rebonjour,

J'ai essayé ce que tu m'a dis sur une nouvelle feuille excel et cela foctionne...
Je ne sais pas pourquoi ca ne fonctionne pas sur ma feuille....
As tu une idée?

Merci