macro pour mot de passe pour ouvrir un classeur composé de plusierurs onglets

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 !

DIGGERJACK

XLDnaute Occasionnel
Bonsoir

Me revoici sur le site après quelques mois d'absences (voire années peut être)

Le site a bien changé mais a su gardé son essence première et j'en suis ravi

Je reviens donc vers vous pour une macro qui propose la saisie d'un mot de passe dès l'ouverture du classeur ( classeur qui va comprendre plusieurs onglets). La macro doit fonctionner sur excel version 2003, 2007 et 2010

Est ce quelqu'un a une piste sur le sujet

Merci d'avance et bonne soirée
 
Re : macro pour mot de passe pour ouvrir un classeur composé de plusierurs onglets

Bonsoir DIGGERJACK et le forum,


Une solution :


Private Sub Workbook_Open()
Dim MDP As String, Mot As String
' Création du mot de passe
MDP = "***"
' Message pour la saisie du numéro de passe
'Mot = InputBox("Entrer le mot de passe, merci", "Saisie mot de passe")
'If Mot <> MDP Or Mot = "" Then
'MsgBox "Mot de passe erroné, le classeur va être refermé !"
'ThisWorkbook.Close
'End If
End Sub

Macro à placer dans le module Thisworkbook
 
Re : macro pour mot de passe pour ouvrir un classeur composé de plusierurs onglets

Bonsoir CBernardT et JCGL

Merci pour vos réponses à tous les deux.
Je pense adopter la seconde solution qui utilise les fonctions basiques d'excel et garde en stock la macro au cas où

Pour JCGL : nous avons la même passion votre frère et moi à savoir le chantournage

Bonne soirée à tous et merci
 
Re : macro pour mot de passe pour ouvrir un classeur composé de plusierurs onglets

Bonjour à tous,
Salut Bernard,
Salut l'Excavateur...,

Il est toujours préférable d’utiliser les possibilités natives de l'application...
Mon frère en a fait son métier et ses sacs personnalisables font un malheur...

PS : David... C'est de la pub... Mais non concurrentielle... Arf et Niark...

A++
A + à tous
 
- 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éponses
25
Affichages
2 K
Retour