Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel mot de passe au demarage

mot de passe au demarage

3 réponses
Avatar
cliffburton57
Rebonjour à tous!
J'ai un autre probleme !
Voilà j'ai un feuille classeur protégé.
J'aimerais que lorsque j'ouvre le fichier .XLS il me demande un mot de passe.
Si je tape RIT par exemple il me deverouille la feuille si je tape EXPLOIT
il ne me la deverouille pas et sinon il n'ouvre pas la feuille.
Est-ce Possible ??? merci.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Mets les macros suivantes dans "ThisWorkBook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("NomDeLaFeuille").Protect "toto"
Sheets("NomDeLaFeuille").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Dim MDP As String
MDP = InputBox("Entrez le mot de passe")
If MDP = "RIT" Then
Sheets("NomDeLaFeuille").Visible = True
Sheets("NomDeLaFeuille").Select
Sheets("NomDeLaFeuille").Unprotect "toto"
ElseIf MDP = "EXPLOIT" Then
Sheets("NomDeLaFeuille").Visible = True
Sheets("NomDeLaFeuille").Select
End If
End Sub

Cordialement.
Daniel
"cliffburton57" a écrit dans le
message de news:
Rebonjour à tous!
J'ai un autre probleme !
Voilà j'ai un feuille classeur protégé.
J'aimerais que lorsque j'ouvre le fichier .XLS il me demande un mot de
passe.
Si je tape RIT par exemple il me deverouille la feuille si je tape EXPLOIT
il ne me la deverouille pas et sinon il n'ouvre pas la feuille.
Est-ce Possible ??? merci.


Avatar
docm
Bonjour.

Pour verrouiller la feuille, voir le menu Outils/Protection et mettre un mot
de passe.
Pour exiger un mot de passe pour l'ouverture du classeur, voir le menu
Fichier/Sauvegarder sous/Options.

docm



"cliffburton57" wrote in message
news:
Rebonjour à tous!
J'ai un autre probleme !
Voilà j'ai un feuille classeur protégé.
J'aimerais que lorsque j'ouvre le fichier .XLS il me demande un mot de
passe.

Si je tape RIT par exemple il me deverouille la feuille si je tape EXPLOIT
il ne me la deverouille pas et sinon il n'ouvre pas la feuille.
Est-ce Possible ??? merci.


Avatar
JB
Bonjour,

http://cjoint.com/?hiexATqZcM

Mot de passe pour afficher une feuille:
Un champ nommé MotPasse (onglet Admin) contient les mots de passe et
les noms des onglets

Mot passe Nom onglet
xxx Admin
aaa pierre
bbb paul
ccc chantale

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub B_ok_Click()
f = Application.VLookup(Me.motpasse, Range("motPasse"), 2, False)
If Not IsError(f) Then
Sheets(f).Visible = True
Unload Me
Else
MsgBox "Erreur"
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

Cordialement JB


Rebonjour à tous!
J'ai un autre probleme !
Voilà j'ai un feuille classeur protégé.
J'aimerais que lorsque j'ouvre le fichier .XLS il me demande un mot de pa sse.
Si je tape RIT par exemple il me deverouille la feuille si je tape EXPLOIT
il ne me la deverouille pas et sinon il n'ouvre pas la feuille.
Est-ce Possible ??? merci.