Note: The other languages of the website are Google-translated. Back to English
Connexion S'inscrire

Comment définir un mot de passe pour protéger la feuille masquée dans Excel?

Si vous disposez d'un classeur qui contient des feuilles de calcul masquées importantes et que vous ne permettez pas à d'autres de les afficher. Maintenant, vous devez définir un mot de passe pour protéger complètement les feuilles de calcul masquées, lorsque d'autres utilisateurs les affichent, ils doivent entrer le mot de passe. Avez-vous des moyens de gérer cette tâche rapidement et facilement dans Excel?

Définir un mot de passe pour protéger les feuilles cachées avec la fonction VeryHidden

Définir un mot de passe pour protéger la feuille cachée avec le code VBA

Protégez plusieurs feuilles de calcul à la fois avec Kutools for Excel

Définir un mot de passe pour protéger les feuilles cachées avec la fonction VeryHidden

Normalement, vous pouvez utiliser la fonction VeryHidden pour masquer d'abord les feuilles de calcul, puis définir un mot de passe pour celles-ci, procédez comme suit:

1. Ouvrez votre classeur et maintenez Alt + F11clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2. Dans le Fenêtre Microsoft Visual Basic pour Applicationscliquez Voir > Explorateur de projets et de la Fenêtre Propriétés to afficher leurs volets.

doc-protect-caché-feuilles-01

3. Et puis dans le Projet-VBAProjet volet, choisissez la feuille de calcul que vous souhaitez masquer, et dans le Propriétés volet, cliquez sur la liste déroulante dans le Visible section à sélectionner xlFeuilleTrèsCaché option, voir capture d'écran:

doc-protect-caché-feuilles-02

4. Après avoir rendu la feuille de calcul très cachée, vous pouvez définir un mot de passe pour la protéger. dans le Fenêtre Microsoft Visual Basic pour Applicationscliquez insérer > Module pour ouvrir un module vide, puis cliquez sur outils > Propriétés de VBAProject, voir capture d'écran:

doc-protect-caché-feuilles-03

5. Puis dans le sauté Propriétés du projet VBAProject boîte de dialogue, cliquez sur Protection onglet, puis vérifiez Verrouiller le projet pour l'affichage , enfin, entrez et confirmez le mot de passe dans le Mot de passe pour afficher les propriétés du projet section, voir capture d'écran:

doc-protect-caché-feuilles-04

6. Puis clique OK pour quitter cette boîte de dialogue et fermer le Fenêtre Microsoft Visual Basic pour Applications.

7. Enregistrez le classeur sous Cahier de travail Excel avec macro-activé formatez-le et fermez-le pour que la protection par mot de passe prenne effet.

doc-protect-caché-feuilles-05

8. La prochaine fois que vous ouvrirez ce classeur et que vous souhaitez rendre visibles les feuilles très masquées, vous êtes invité à entrer un mot de passe. Voir la capture d'écran:

doc-protect-caché-feuilles-06

Démo: définir un mot de passe pour protéger les feuilles masquées

Définir un mot de passe pour protéger la feuille cachée avec le code VBA

Pour définir un mot de passe pour protéger les feuilles cachées, je peux également parler d'un code VBA pour vous.

1. Masquez une feuille de calcul que vous souhaitez protéger.

2. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

3. Alors choisi Ce classeur à partir de la gauche Explorateur de projets, double-cliquez dessus pour ouvrir le Module, puis copiez et collez le code VBA suivant dans le module vide:

Code VBA: définir le mot de passe pour protéger la feuille cachée

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protect-caché-feuilles-07

Notes: Dans le code ci-dessus, Sheet1 de xSheetName = "Sheet1" script est le nom de la feuille de calcul masquée que vous souhaitez protéger, et 123456 à l' Si réponse = "123456" Alors script est le mot de passe que vous définissez pour la feuille masquée. Vous pouvez les modifier selon vos besoins.

4. Désormais, lorsque vous souhaitez afficher la feuille masquée, une boîte de dialogue apparaîtra pour vous permettre de saisir le mot de passe. Et cette boîte de dialogue apparaîtra à chaque fois, lorsque vous cliquez pour afficher la feuille masquée.

doc-protect-caché-feuilles-08

Protégez plusieurs feuilles de calcul à la fois avec Kutools for Excel

Si vous souhaitez protéger plusieurs feuilles de calcul sélectionnées ou toutes les feuilles de calcul d'un classeur à la fois, vous devez normalement protéger une par une manuellement dans Excel. Mais, si vous avez Kutools pour Excel, Avec son Protéger la feuille de travail utilitaire, vous pouvez les protéger en un seul clic.

Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 
Aller au téléchargement
Essai gratuit 30 joursJe m'abonne!
PayPal / Mon commerce

Après l'installation de Kutools pour Excel, procédez comme suit:

1. Cliquez Kutools Plus > Protéger la feuille de travail, voir capture d'écran:

2. Dans le Protéger la feuille de travail boîte de dialogue, toutes les feuilles de calcul du classeur sont répertoriées dans la zone de liste, veuillez choisir les feuilles de calcul que vous souhaitez protéger. Voir la capture d'écran:

doc-protect-caché-feuilles-010

3. Et puis cliquez OK, dans la boîte de dialogue suivante, entrez votre mot de passe et retapez-le, puis cliquez sur OK, une autre boîte de dialogue apparaîtra pour vous rappeler combien de feuilles de calcul ont été protégées.

doc-protect-caché-feuilles-011

4. Puis clique OK pour fermer les boîtes de dialogue, et toutes les feuilles de calcul du classeur ont été protégées par le même mot de passe.

Remarque : Si vous souhaitez déprotéger toutes les feuilles de calcul à la fois, il vous suffit de cliquer sur Kutools Plus > Déprotéger la feuille de travailet saisissez votre mot de passe pour annuler la protection.

 Téléchargez et essayez gratuitement Kutools for Excel Now!

Articles Liés:

Comment protéger plusieurs feuilles de calcul à la fois dans Excel?

Comment définir un mot de passe pour protéger le classeur?

Comment protéger / verrouiller le code VBA dans Excel?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Darren
Darren
Ce commentaire a été minimisé par le modérateur sur le site
J'ai une question concernant votre code de feuille de travail restreint par mot de passe. Vous avez posté le code suivant qui fonctionne .... ce que je recherche, c'est un code qui le fera avec plusieurs feuilles de calcul et plusieurs mots de passe dans le même classeur. Est-ce possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application .InputBox("Password", xTitleId, "", Type :=2) Si réponse = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets( xSheetName).Visible = True Application.EnableEvents = True End Sub
Répondre
Severin
Severin     Darren
Ce commentaire a été minimisé par le modérateur sur le site
Vous avez déjà trouvé une solution ?

J'ai le même problème
Répondre
Rexamillien
Rexamillien     Severin
Ce commentaire a été minimisé par le modérateur sur le site
Private Sub Workbook_SheetActivate (ByVal Sh As Object)
Dim xSheetName en tant que chaîne
aSheetName = "sheet1"
bNomFeuille = "feuille2"
cSheetName = "feuille3"

Si Application.ActiveSheet.Name = aSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "1234" Alors
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
autre
Application.Sheets(aSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

Si Application.ActiveSheet.Name = bSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "2345" Alors
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
autre
Application.Sheets(bSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

Si Application.ActiveSheet.Name = cSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "3456" Alors
Application.Sheets(cSheetName).Visible = Vrai
Application.Sheets(cSheetName).Select
autre
Application.Sheets(cSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

End Sub
Répondre
Richard
Richard     Severin
Ce commentaire a été minimisé par le modérateur sur le site
Private Sub Workbook_SheetActivate (ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName en tant que chaîne
aSheetName = "sheet1"
bNomFeuille = "feuille2"
cSheetName = "feuille3"

Si Application.ActiveSheet.Name = aSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "123" Alors
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
autre
Application.Sheets(aSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

Si Application.ActiveSheet.Name = bSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "456" Alors
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
autre
Application.Sheets(bSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

Si Application.ActiveSheet.Name = cSheetName Alors
Application.EnableEvents = False
Application.ActiveSheet.Visible=Faux
xTitleId = "KutoolsforExcel"
réponse = Application.InputBox("Mot de passe", xTitleId, "", Type :=2)
Si réponse = "789" Alors
Application.Sheets(cSheetName).Visible = Vrai
Application.Sheets(cSheetName).Select
autre
Application.Sheets(cSheetName).Visible = False
Si fin
Si fin
Application.EnableEvents = True

End Sub
Répondre
Rapport
Tomas
Tomas     Richard
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le code, juste une question. Lorsque vous ouvrez la feuille, on vous demande une question, puis vous la saisissez et la feuille est visible, mais lorsque vous passez à la feuille suivante et essayez de rouvrir la feuille précédente, on vous demande à nouveau le même mot de passe à chaque fois. Ma question est la suivante: pouvez-vous contourner cela et faire en sorte qu'Excel demande un mot de passe une fois?
Répondre
Jeremy
Jeremy
Ce commentaire a été minimisé par le modérateur sur le site
Votre code permet aux utilisateurs d'afficher la feuille tant qu'ils maintiennent le bouton gauche de la souris enfoncé pendant que le pointeur de la souris se trouve sur l'onglet. Essayez ceci pour garder la feuille cachée jusqu'à ce que le mot de passe correct soit entré : Si la réponse = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/ b][/b] Fin Si Fin Si Application.EnableEvents = True End Sub
Répondre
David
David
Ce commentaire a été minimisé par le modérateur sur le site
C'est élégant. SI la personne qui ouvre la feuille de calcul n'active pas les macros (c'est-à-dire VBA), que se passe-t-il ? La feuille cachée est-elle un canard assis? Ou est-il tout à fait impossible à trouver?
Répondre
skyyang
skyyang     David
Ce commentaire a été minimisé par le modérateur sur le site
Salut David,
Si vous ouvrez le classeur sans activer la macro, la feuille masquée s'affiche normalement. Dans ce cas, je vous recommande d'appliquer la première méthode pour résoudre ce travail.
Merci !
Répondre
Rapport
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
GUEST
Publier en tant qu'invité
Connexion
×
Évaluez cet article:
Réinitialiser
0  Personnages
Emplacements suggérés