Macro sélection ne marche pas dans une feuille protégée Excel Résolu/Fermé

Question

Bonjour, 
J'ai créé une macro dont voici un extrait:
Sheets("AdmisTL").Activate
Set c = Range("B13")
Range(c, c.End(xlDown).End(xlToRight)).Select
Selection.Clearcontents
Selection.Sort key1:=Range("G13"), Order1:=xlDescending, key2:=Range("D13"), Order2:=xlAscending, key3:=Range("C13"), Order3:=xlAscending, Header:=xlGuess, Orientation:=xlTopToBottom
Range("B13").Select
Mais sur ma feuille protégée, il signale un bug (partie gras).
Aidez moi à résoudre ce problème sur une feuille protégée.
Merci

f894009 · Answer

Bonjour,

enlever protection avant le Clear et remettre apres par programme

voir Unprotect 
et Protect

ou protect userinterfaceonly qui permet d'ecrire sans deproteger

Amar · Answer

Bonjour f894009,
En fait je n'ai pas de protection par programmation, mais onglet révision puis protéger la feuille....
Une solution macro serait la bienvenue.
Merci pour la diligence quand même.

f894009 · Answer

Re,

exemple a mettre dans VBA Thisworkbook en adaptant le nom de feuille et le mot de passe
Private Sub Workbook_Open()
    Worksheets("feuil3").protect Password:="TOTO", UserInterfaceOnly:=True
End Sub

Amar · Answer

Bonjour,
La macro marche bien mais ne répond pas à mon problème.
Sur la feuille en question il y a des boutons pour "Générer","Annuler" et autres. Et ces boutons ne fonctionnent pas quand la feuille est protégée.
Mais je voudrai que ça marche même si la feuille est protégée car je dois partager le classeur.
Merci encore.

f894009 · Answer

Bonjour,

 Et ces boutons ne fonctionnent pas 
Ben si, userinterfaceonly est fait pour

Amar · Answer

Oh oui!!! Vous avez parfaitement raison. J'ai vérifié et ça marche.
Mon problème est résolu.
Merci sincèrement.

Macro sélection ne marche pas dans une feuille protégée Excel

6 réponses

Discussions similaires