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