Ok. Suivez bien les étapes ci-après
Attention à ne pas fermer votre fichier sans avoir procédé à tous les changements ci-après
Etape 1 - Module 1
- Ajoutez le code suivant
Sub AfficherMenu()
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
.DisplayFormulaBar = True
End With
End Sub
- remplacez le code deconnecter
Sub deconnecter()
Range("utilisateur") = "aucun"
Call masquer
Call AfficherMenu
MsgBox "Vous avez été deconnecté avec succès !", vbInformation, "Deconnexion"
End Sub
Etape 2 - Thisworkbook
- remplacez tous les codes par les 4 codes ci-dessous
Private Sub Workbook_Open()
Range("utilisateur") = "aucun"
Call Workbook_Activate
MsgBox "Bonjour, afin d'acceder à ce document, connectez-vous" & vbLf & _
"(vous êtes actuellement déconnecté et vous ne pouvez pas utiliser les fonctions de ce document)", vbInformation, "Information"
Call connecter
End Sub
Private Sub Workbook_Activate()
If UCase(Range("utilisateur")) = "ADMIN" Then Exit Sub
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
.DisplayFormulaBar = False
End With
End Sub
Private Sub Workbook_Deactivate()
Call AfficherMenu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call masquer
Call Workbook_Deactivate
End Sub
Reste à tester
NB :
- N'oubliez pas les deux lignes Option ....en entete de chaque module. je vous en ai parlé précédemment
- Seul l'admin verra les menus dans ce fichier. Donc veillez à ne pas changez le login ou tout au moins si vous le modifiez, il faudra modifier aussi dans le code "workbook Activate"