Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code pour protection complète

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cococh8

XLDnaute Junior
Bonjour à tous,

J'ai un petit souci avec un code VBA, si quelqu'un peut m'aider, ce serait super sympa! 🙂

Ma macro commence par une "unprotect..." et fini par un "protect...."

Cela me permet de lever la protection de la feuille le temps que la macro travaille.
En temps normal, la protection se passe bien mais uniquement si j'ai protégé la feuille une fois manuellement en décochant bien toutes les exceptions.

Sinon, si j'ouvre mon fichier et l'utilise directement, la protection fonctionne mais les exception de sélection (sélectionner les cellules verrouillées et non verrouillées)sont cochées; ce que je ne souhaite pas.

Avez-vous une idée de comment remédier à tout cela?

Merci beaucoup à tous d'avance et bonne matinée!

modif:


Voici le code VBA complet:

Sub droit2()
'
' droit2 Macro
' Macro enregistrée le 23/11/2009 par cochard
'

'
ActiveSheet.Unprotect
Range("O10").Select
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("K9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I7:J7").Select
ActiveSheet.Protect
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : Code pour protection complète

Bonjour cococh

Par sûr d'avoir bien saisi ton problème, mais essaye peut être en protégeant ainsi :

Code: 
With Sheets("Feuil1")
    .EnableSelection = xlNoSelection
    .Protect "toto"
End With

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Code pour protection complète

Bonjour pierrot!

Voici un petit fichier qui explique mon problème.

Je ne vois pas bien comment utiliser ta macro
 

Pièces jointes

  • expl.jpg
    50 KB · Affichages: 67
  • expl.jpg
    50 KB · Affichages: 74
  • expl.jpg
    50 KB · Affichages: 71
Vote positif 0 Vote négatif
Re : Code pour protection complète

Bonjour cococh8, Bonjour Pierrot,

As-tu fais cette manip.en utilisant l'enregistreur, ainsi tu verras ce qu'il te raconte.

Sur un classeur vierge, tu protèges ta feuille, tu coches ou décoches selon tes souhaits.

Il te suffira de reproduire son code en fin de macro et tester.

Bonne journée.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Code pour protection complète

Re, bonjour Jean-Pierre🙂

positionnes le code que je t'ais donné dans ta macro, en lieu et place de cette ligne :

Code: 
ActiveSheet.Protect

nom de la feuille à adapter...

@+
 
Vote positif 0 Vote négatif
Re : Code pour protection complète

Super, ton code marche bien.

merci beaucoup.

Par contre, j'aimerais l'intégrer dans la macro d'ouverture du classeur car elle ne fonctionne que lorsque j'ai activé au moins une fois une macro.

Savez ou se trouve la macro de démarrage?

modif:

C'est bon j'ai trouvé (this workbook....)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Code pour protection complète

Re,

placé dans l'événement "open" du module "thisworkbook" en utilisant l'argument "userinterfaceonly", tu n'as plus besoin de déprotéger / protéger lors de l'excécution de macro ...

Code: 
Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .EnableSelection = xlNoSelection
    .Protect "toto", userinterfaceonly:=True
End With
End Sub

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
XL 2016 Protection de nombreuses cellules sur plusieurs pages
Réponses
2
Affichages
834
Flo68
F
J
  • Question Question
Microsoft 365 Protection et filtres
Réponses
7
Affichages
1 K
TooFatBoy
N
  • Question Question
Autres Code macro verrouillage / déverrouillage feuille et classeur
Réponses
1
Affichages
2 K
Nonomix
N
  • Question Question
XL 2010 Résolu par Lone Wolf et Paf : Code qui s'execute quand je clique
2
Réponses
21
Affichages
2 K
Usine à gaz
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
J
  • Question Question
coup de pouce pour placer un code vba
Réponses
1
Affichages
1 K
Yaloo
Y
J
  • Question Question
Code simple qui ne marche pas
Réponses
6
Affichages
626
Jacques25
J
L
  • Question Question
Oter manuellement la protection d'une feuille effectuée à l'aide d'une macro
Réponses
2
Affichages
3 K
lomathol
L
N
  • Question Question
Protection d'une feuille dans classeur
Réponses
0
Affichages
838
Nitrog
N
  • Question Question
code qui sert pour plusieurs feuilles
Réponses
10
Affichages
2 K
Paritec
S
  • Question Question
insertion lignes+ protection feuille
Réponses
6
Affichages
1 K
stephane.quinquis
S
S
  • Question Question
bloquer les paramètres de protection feuille
Réponses
4
Affichages
1 K
stephane.quinquis
S
  • Question Question
Protection de cellules
Réponses
4
Affichages
996
jeromear
  • Question Question
PROTECTION Contents:=true
Réponses
2
Affichages
1 K
jeromear
S
  • Question Question
Problème de protection
Réponses
8
Affichages
968
Pierrot93
  • Question Question
code pour fermer fichier avec sauvegarde
Réponses
5
Affichages
18 K
MJ13
G
  • Question Question
Protection avec macro
Réponses
2
Affichages
830
gg21
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…