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

ligne de code excel 2010

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion boucse79000
  • Date de début Date de début

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
B

boucse79000

Guest
bonjour
j ai cette ligne de code dans une macro

Sub bouton_01()
If Intersect(ActiveCell, Range("planning")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect (pwd)
ActiveCell = Sheets("Accueil").Range("B8").Value '
ActiveCell.Interior.Color = RGB(255, 255, 255)
ActiveCell.Font.Color = RGB(0, 0, 0)
ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect (pwd)

Ma question est :

que ce passera t il si je supprim la ligne

ActiveSheet.Unprotect (pwd)
et la ligne
ActiveSheet.Protect (pwd)
merci pour vos reponses
 
Trier par date Trier par votes
Re : ligne de code excel 2010

Bonjour,

ces deux lignes permettent de déprotéger et de protéger votre feuille ceci afin de faire les modifications de la cellule B8

pour faire un test il n'y a pas besoin de supprimer les lignes placez juste une ' devant chaque ligne qui aura pour but de mettre les lignes en commentaires vous verrez bien ce qu'il se produit après le lancement de la macro
 
Dernière édition:
Vote positif 0 Vote négatif
Re : ligne de code excel 2010

je peut donc les supprimer cela ne modifiera en rien la macro mais supprime seulement la protection ?
je ne suis pas l auteur de cette macro mais je l ai recuperé
merci de votre réponse si rapide
 
Vote positif 0 Vote négatif
Re : ligne de code excel 2010

j ai ceci juste avant

Dim Barres As Collection
Public Const pwd As String = "FATAL"

fatal veut dire quoi ?merci
 

Pièces jointes

  • macro.jpg
    57.7 KB · Affichages: 26
  • macro.jpg
    57.7 KB · Affichages: 26
  • macro.jpg
    57.7 KB · Affichages: 34
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : ligne de code excel 2010

Bonjour, bourcse79000, gilbert_RGI

boucse79000 à dit:
que ce passera t il si je supprim la ligne
ActiveSheet.Unprotect (pwd)
et la ligne
ActiveSheet.Protect (pwd)
Cliquez pour agrandir...
Deux cas :
  • Si la cellule sélectionnée ne fait pas partie de la zone "planning" il ne se passe rien.
  • Si la cellule sélectionnée appartient à la zone "planning" deux sous-cas :
    • - La feuille "Accueil" n'est pas protégée : il ne se passe rien
    • - la feuille "Accueil" est protégée par mot de passe, deux sous-cas
      • - pwd n'est pas défini comme mot de passe de protection : ça plante !
      • - pwd est défini comme mot de passe de protection : la feuille est déprotégée, la cellule active prend la valeur de la feuille "Accueil, sonfond est coloré, la couleur de police est définie, la cellule de droite est sélectionnée, la protection est rétablie.
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
511
anthoYS
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
537
jalaba
J
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
411
nabilexcel2007
N
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
250
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
242
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
782
thunder23
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
284
Francky79
F
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
665
fanch55
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
776
sylvanu
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
774
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
589
Lu76Fer
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
410
AlCapone
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
1 K
Dudy
D
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
572
Francky79
F
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
682
Jacky67
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…