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

XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

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

chaelie2015

XLDnaute Accro
Bonjour Forum
J'ai un code qui crée des feuilles nommées 'Item N°x' (avec x variant) à partir de la feuille nommée 'Type'. Ce code copie également le contenu de la feuille 'Type' dans les nouvelles feuilles qui commencent par 'Item N°...'. La feuille 'Type' est protégée au démarrage du classeur grâce au code suivant
VB: 
Private Sub Workbook_Open()
Sheets("Type").Protect "CharBel", userinterfaceonly:=True 'PROTECTION DE LA FEUILLE QLQ SOIT LE CODE
End Sub
Maintenant, je souhaite avoir un code identique à celui de la feuille 'type' dans le `Private Sub Workbook_Open()` et que ces nouvelles feuilles soient protégées une fois créées. Est-ce possible ,pour que chaque nouvelle feuille créée soit automatiquement protégée.
--------------------------------------
Pour rappel : Ce code s'exécute automatiquement lorsque le classeur est ouvert. Il protège la feuille nommée "Type" en utilisant le mot de passe "CharBel". La protection est appliquée de manière que le code VBA puisse toujours modifier la feuille sans nécessiter de mot de passe.
Merci
 
Dernière édition:
Solution
Si l'on veut que les feuilles créées soient protégées dès leur création mettre dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub
Trier par date Trier par votes
Bonjour chaelie2015,

Pour protéger toutes les feuilles du classeur :
VB: 
Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Si l'on veut que les feuilles créées soient protégées dès leur création mettre dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub
 
Vote positif 0 Vote négatif
Solution
Bonjour tous,
ou encore dès nouvel onglet
Trés étonnant que Gérard n'y est pas pensé
Bruno
VB: 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub
 
Vote positif 0 Vote négatif
Re
Merci , c'est la meilleure proposition.
Merci
 
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

  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
616
chaelie2015
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
335
Phil69970
T
  • Question Question
Microsoft 365 Problème d'accès à des boutons ActiveX dans un classeur depuis un xlam
Réponses
10
Affichages
888
ThierryP
T
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
837
chaelie2015
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
350
sylvanu
  • Question Question
XL 2021 Problème ouverture fichier sur feuille protégée
Réponses
6
Affichages
753
treza88
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
309
MANU64360
M
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
743
job75
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
650
jeff1494
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
285
Lu76Fer
  • Résolu(e)
Microsoft 365 Actualisation automatique d'un TCD
Réponses
14
Affichages
1 K
Philippe17
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
897
telemarrk
T
A
  • Résolu(e)
XL 2010 Renomer copie de feuilles multiple
Réponses
5
Affichages
392
sylvanu
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
620
selkis
S
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
745
Corentin26270
C
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
817
Compte Supprimé 979
C
  • Question Question
Microsoft 365 Protection automatique feuilles excel
Réponses
2
Affichages
607
arpop
  • Résolu(e)
XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)
Réponses
2
Affichages
587
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…