Classeur multi utilisateur protégé vba

[papy 73 ans]

Bonjour,
Je sollicite votre aide pour un classeur multi utilisateur dont chaque utilisateur à une protection différente
Ma demande : est-il possible d'avoir un Mdp du genre BackupDisplayCode = "MotDePasse"
Si oui merci de me dire comment procéder Svp Un exemple ?

 

[papy 73 ans]

Bonjour pascal
Je te remercie de me répondre, c'est ce type de classeur que j'ai dont les accès sont déterminés dans la feuille Paramètres
J'aimerai obtenir la possibilité d'un mot de passe de secours qui ne figurerait pas justement dans cette feuille
S'agissant d'un fichier pour une église j'avais pensé au Mdp "seigle" camouflé dans une macro mais je ne sais pas faire

 

[job75]

Bonjour papy 73 ans, Modeste geedee, Patrick, pascal21 (heureux de te revoir),

Le fichier de mon post #10 n'est pourtant pas très difficile à comprendre, qu'est-ce qui vous bloque ?

A+

 

[ThomasR]

Bonjour,

Je trouve ta solution avec les noms très astucieuse.

Je pense qu'il lui manque un userForm d'administration pour créer des nom et des mots de passe et de les associer à ses feuilles.
avec de ce fait un update du code pour la prise en compte des nom <> de x donc non admin pour n'afficher que la feuille en relation avec le password saisie, donc il faut dans le nom masquer inclure la feuille ce qui implique de devoir spliter la valeur du type "name|sheet|password => ce qui implique l'interdiction d'utiliser le pipe dans la saisie sinon il ne reconnaîtra plus le mot de passe.

Bref tu m'as compris.

Cordialement,
Thomas

 

[papy 73 ans]

Bonjour job
Bonjour Job
Je me permets de te mettre ceci en MP en espérant que cela ne te dérangepas
Je ne vois pas comment insérer tes codes dans ceux de mon application.
Veux-tu m’y aider Stp.
En te remerciant.
Jean

 

[cathodique]

Bonjour papy 73 ans, Modeste geedee, Patrick, pascal21 (heureux de te revoir),

Le fichier de mon post #10 n'est pourtant pas très difficile à comprendre, qu'est-ce qui vous bloque ?

A+

Bonjour Job75, papy 73 ans, Modeste geedee, Patrick, pascal21,

Excusez mon intrusion. Je pense que notre ami est comme moi. En effet, personnellement je n'ai pas compris comment mon cher Job75 tu t'es pris pour masquer le nom défini X. Merci pour ta réponse.

Bonne journée.

 

[job75]

Bonjour à tous,

@ papy 73 ans : que vient faire ici un fichier Word ???

@ cathodique :

En effet, personnellement je n'ai pas compris comment mon cher Job75 tu t'es pris pour masquer le nom défini X.

Sub a()
ThisWorkbook.Names("x").Visible = False 'masque le nom
'ThisWorkbook.Names("x").Visible = True 'affiche le nom
End Sub

Bonne journée.

 

[cathodique]

Bonjour à tous,

@ papy 73 ans : que vient faire ici un fichier Word ???

@ cathodique :

Sub a()
ThisWorkbook.Names("x").Visible = False 'masque le nom
'ThisWorkbook.Names("x").Visible = True 'affiche le nom
End Sub

Bonne journée.

Merci pour ton code qui est similaire à celui de Victor21.
Ce qui m'a dérouté, c'est que dans ton fichier joint il n'y avait pas de code pour masquer le nom défini.
En l'absence de ce code, j'avais pensé qu'il existait une façon de faire sous excel pour masquer un nom défini.

Encore merci.

 

[papy 73 ans]

Re
Désolé de t'avoir froissé avec un fichier Word job
Ne comprenant pas je préfère laisser tomber que vous ennuyer

 

[job75]

Une fois le nom "x" affiché qu'est-ce que vous ne comprenez pas dans mes codes ?

 

[Romain31]

Bonjour à toutes et à tous,

Pour répondre à Papy 73, j'ai retrouvé ce code qui permet d'affecter certains comportements (select case à paramétrer) selon le mot de passe indiqué.

Private Sub Workbook_Open()
Mots_De_Passe
End Sub
'---------------------------------------------
'OUVERTURE DU CLASSEUR - MOT DE PASSE
'---------------------------------------------
Sub Mots_De_Passe()
Dim Password As String
Dim feuille As Object

Password = LCase(InputBox("Tapez votre mot de passe, ou exit pour sortir :", _
"MotPasse"))
Select Case Password
Case "admin"
'MsgBox "Vous avez accès à toutes les feuilles en lecture/écriture."

Case "exit"
Application.DisplayAlerts = False
Workbooks("EXEMPLE.XLSM").Close
'Aucun message proposant d'enregistrer les modifications
Application.DisplayAlerts = True
'On ferme le classeur, mais Excel reste ouvert
Application.Quit

Case Else
MsgBox "Mot de passe incorrect. Recommencez."
'On boucle
Mots_De_Passe
End Select
End Sub

La procédure de Job75 est très intéressante. Je me demande s'il est possible dans Excel, de masquer les noms autrement que par une procédure VBA du style Nom.visible = False qui serait supprimée par la suite.

Bonne journée