Récupérer une ligne dans une feuille protégée

[zephir94]

Bonsoir à tous,

J'ai un soucis, voici mon problème :
Je récupère une ligne dans une feuille qui peut être protégée ou pas selon le moment.
Si ma feuille n'est pas protégée il n'y a pas de soucis, par contre si elle est protégée la il y a problème !
J'ai donc pensée à mettre une vérification de l'état de la feuille au niveau de son état.
comme ceci :

If Sheets("synoptique").Protect Then
Sheets("synoptique").Unprotect password:="blabla"
Sheets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
UserForm5.OptionButton1.Value = True
Application.ScreenUpdating = True
Sheets("agent").Protect password:="dédé"
Sheets("synoptique").Protect password:="blabla"
Else
End If
End Sub

évidement cela ne fonctionne pas, il faut que si la feuille est protégée je la déprotège pour écrire dedans et la re protéger, et si elle n'est pas protégée et bien ne rien faire car cela fonctionne bien !
J'espères avoir était claire !
Merci par avance à vous tous

 

[camarchepas]

Re : Récupérer une ligne dans une feuille protégée

Bonsoir ,

Comme cela peut être

Sub ff()
If Sheets("synoptique").ProtectContents Then
  Sheets("synoptique").Unprotect Password:="blabla"
  heets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
  UserForm5.OptionButton1.Value = True
  Application.ScreenUpdating = True
  Sheets("agent").Protect Password:="dédé"
  Sheets("synoptique").Protect Password:="blabla"
End If
End Sub

 

[zephir94]

Re : Récupérer une ligne dans une feuille protégée

Merci camarchepas,

je viens d'apprendre ProtectContents et je t'en remercie mais je protège à la fin du compte la feuille après, ce que je voudrais
si elle est protégée je la déprotège j'écris dedans et je la re protège par contre si elle n'est pas protégée je ne la re protège pas !
j'espères avoir été claire !
Merci à toi

 

[zephir94]

Re : Récupérer une ligne dans une feuille protégée

j'ai essayé de re penser la chose comme ceci :

Application.ScreenUpdating = False
Sheets("agent").Unprotect password:="sdis77"
If Sheets("synoptique").ProtectContents Then
   Sheets("synoptique").Unprotect password:="bigboss"
   Sheets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
   UserForm5.OptionButton1.Value = True
   Application.ScreenUpdating = True
   Sheets("agent").Protect password:="dede"
   Sheets("synoptique").Protect password:="bigboss"
 Else

   Sheets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
   UserForm5.OptionButton1.Value = True
   Application.ScreenUpdating = True
   Sheets("agent").Protect password:="dede"
End If
End Sub

mais ma ligne ne se copie pas ni quand la feuille est ou pas protégée !

 

[camarchepas]

Re : Récupérer une ligne dans une feuille protégée

Et comme ceci peut être

Sub ff()
Dim Protegé As Boolean

With Sheets("synoptique")
  Do
  If Protegé Then
    .Unprotect Password:="blabla"
   Else
    Protegé = IIf(Protegé, False, True)
    End If
  On Error Resume Next
  .Range("F4:DZ4").Copy Destination:=.Range("F5:DZ5")
  Loop Until .Range("F4") = .Range("F5") And Err.Number = 0
  On Error GoTo 0
  UserForm5.OptionButton1.Value = True
  Application.ScreenUpdating = True
  Sheets("agent").Protect Password:="dédé"
  If Protegé Then .Protect Password:="blabla"
End With

 

[zephir94]

Re : Récupérer une ligne dans une feuille protégée

Je te remercie, je vais essayer cela demain matin et reviens vers toi pour te tenir au courant.
Encore merci à demain.

 

[zephir94]

Re : Récupérer une ligne dans une feuille protégée

Bonjour camarchepas,

Après moultes tests ça ne marche pas snif

 

[camarchepas]

Re : Récupérer une ligne dans une feuille protégée

Tu peux détailler ce qui ne marche pas ,
si tu joignais un petit fichier exemple, juste avec une ou 2 lignes en mettant dans le fichier ce que tu veux.

car je pense ne pas avoir tous compris , malheureusement , l'age des neurones peut être ....

 

[zephir94]

Re : Récupérer une ligne dans une feuille protégée

Youpiiii j'ai trouvé en repartant de ma première idée, à savoir

If ThisWorkbook.Sheets("synoptique").ProtectContents = True Then
  Sheets("synoptique").Unprotect password:="big"
 Sheets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
 UserForm5.OptionButton1.Value = True
 Application.ScreenUpdating = True
  Sheets("synoptique").Protect password:="big"
 Sheets("agent").Protect password:="dede"
Else
 Sheets("agent").Unprotect password:="dede"
  Sheets("synoptique").Range("F4:DZ4").Copy Destination:=Sheets("synoptique").Range("F5:DZ5")
 UserForm5.OptionButton1.Value = True
 Application.ScreenUpdating = True
End If

j'avais oublié le = true , mais je te remercie camarchepas car je pense que sans ProtectContents je serais très certainement entrain de m'arracher les cheveux.

Un grand merci à toi pour ton aide