Classeur multi utilisateur protégé vba

papy 73 ans

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

ThomasR

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • Bonjour Job.zip
    15 KB · Affichages: 31

cathodique

XLDnaute Barbatruc
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.
 

cathodique

XLDnaute Barbatruc
Bonjour à tous,

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

@ cathodique :

VB:
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.
 

Romain31

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib