Cell.EntireRow.Select avec une feuille protégée

[zephir94]

Bonjour à tous,

Je vous souhaites une bonne année 2015, santé, bonheur...

Je rencontre un problème dans une feuille.
La feuille étant protégée je doit faire une recherche d'une ligne et la sélectionner dans la feuille.
Si la feuille est pas protégée cela fonctionne, donc je déprotège la feuille mais à la fin de la macro je re protège la feuille et là la ligne sélectionnée n'est plus en surbrillance !
Voici mon code :

Sub rechercher_agent() 'commande menu rechercher agent
Dim Nom As String
Dim Dpt As String
Dim Cell As Range
Nom = InputBox("Veuillez Saisir le Nom")
If Nom = "" Then
    MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
    Exit Sub
End If
ThisWorkbook.Sheets("synoptique").Select
Sheets("synoptique").Unprotect Password:="dede"
Set Cell = Sheets("synoptique").Columns(5).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
Cell.EntireRow.Select
Sheets("synoptique").Protect Password:="dede"
End Sub

Par avance merci pour vos réponses et encore bonne année
Amicalement zephir

 

[JCGL]

Re : Cell.EntireRow.Select avec une feuille protégée

Bonjour à tous,

Il n'y a pas de raisons pour que la ligne ne soit plus en surbrillance...

Peux-tu joindre un fichier anonymisé et réduit ?

A+ à tous

 

[david84]

Re : Cell.EntireRow.Select avec une feuille protégée

Bonjour,
et si tu inverses ces 2 lignes

ThisWorkbook.Sheets("synoptique").Select
Sheets("synoptique").Unprotect Password:="dede"

cela règle-t-il ton problème ?
A+
Edit salut Jean-Claude

 

[zephir94]

Re : Cell.EntireRow.Select avec une feuille protégée

Merci pour ta réponse, hélas j'ai inverssé et le mystère reste entier !

 

[JCGL]

Re : Cell.EntireRow.Select avec une feuille protégée

Bonjour à tous,

Puisque tu ne daignes pas déposer un fichier...

A+ à tous

 

[zephir94]

Re : Cell.EntireRow.Select avec une feuille protégée

Bonsoir, j'ai un soucis internet avec Numericable et pour l'instant je n'ai que mon iPhone comme connection,
Dès que possible j'en mettrais une copie !