Créer un logiciel de présence

je ne comprends pas votre question.

On peut le faire aintenant mais j'aimerais que ce soit actif seulement vec certain usagers (rajouter une rubrique ?)

je ne comprends pas votre question.
On peut le faire maintenant mais j'aimerais que ce soit actif seulement vec certain usagers (rajouter une rubrique ?)

Quand je dis à quel moment, je veux dire à l'ouverture du fichier ou dès que l'on a mis le mot de passe dans la feuille Bienvenue ?
Rajouter une rubrique peut être intéressant oui

Attention que l'on peut faire cela de manière simple en mettant la feuille en plein écran mais le fait d'appuyer sur la touche ESC peut annuler le plein écran et donc tous les menus sont visibles à nouveau


Rem : Au fait je reviens sur mon post ici --> https://forum.excel-pratique.com/s/goto/1207719 rubrique Feuille enregistrement. Il y a plus simple....
Modifiez la cellule J3 comme ceci --> =MAINTENANT()
Après allez dans le menu Format de nombre et choisir HEURE et prendre le format correct dans la rubrique Type

si possible des l'ouverture pour plus de sécurité.

Du coup je rajoute une rubrique.

Merci pour le conseil de J3

Du coup je rajoute une rubrique.

le plus simple est que si c'est le login est l'admin tous les menus sont accessibles et visible
Pour les utilisateurs autres tous les menus sont masqués
là pas besoin de rubrique en sus

Je vous ai parlé de la touche ESC aussi, là j'ai besoin d'avoir votre avis. Soit la touche ESC permet de re-visualiser remet le menu ou on ne permet rien.

Plutot ne rien permettre : seul ladmin peut voir les menuzs, rubans, etc ...

Il y a des changements à faire un peu partout...

Est-ce que vous avez bien 2 modules dans l'éditeur ?
- module1 avec les codes connecter et deconnecter (modification à prévoir)
- module2 avec les codes enregistrement et Effacer (pas de modification à prévoir)

Si ok je vous donne ce qu'il faut modifier

dans le module 1 : masquer / connecter/ deconnecter

dans le module 2 : enregistrement / effacer/ suivant

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"

Merci beaucoup.

Cependant, lorsque j'ouvre le fichier, j'ai bien mes menus qui disparaissent, si je me connecte, ils restent disparus quelque soit l'utilisateur (même l'admin!) et, si j'appuis sur déconnecter, ils apparaissent (avec l'utilisateur aucun) et lis restent affichés, même si je change d'utilisateur .....

Ok.
1. dans le
module 1
- Ajoutez le code ci-dessous

Sub MasquerMenu()
With Application
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    .DisplayFormulaBar = False
End With
End Sub

- Dans le code Sub deconnecter(), remplacez la ligne CALL AfficherMenu par celle-ci

Call MasquerMenu

2. Allez dans Thisworkbook
- Remplacez le code Private Sub Workbook_Activate() par celui ci-dessous

Private Sub Workbook_Activate()
If UCase(Range("utilisateur")) = "ADMIN" Then Exit Sub
Call MasquerMenu
End Sub

Merci, mais même l'admin n'a plus accès aux menus ...

non absolument pas.
loguer vous en admin et les menus sont affichés. Ou alors vous avez modifié quelque chose qu'il ne fallait pas
En admin vous devez avoir ceci

image

j'ai beau être logé comme admin...

capture d ecran 2024 06 28 115027

je vien de réussir à faire tout apparaitre :

j'ai fait comme pour fermer le document puis j'ai ciquer sur annuler : la barre de formule est réapparue.

J'ai ensuite cliquer sur le bouton "replier la berre de formule" : tout est réapparue !

capture d ecran 2024 06 28 115529
capture d ecran 2024 06 28 115534

Tout est bon là
Mais allez dans l'usf je pense que dans le code Private Sub CommandButton_Valider_Click(), juste en dessous de la ligne CALL AFFICHE, vous n'avez pas cette ligne. J'ai omis de vous la donner

If UCase(TextBox_utilisateur) = "ADMIN" Then Call AfficherMenu

toujours pas ...

capture d ecran 2024 06 28 120825
capture d ecran 2024 06 28 121022

Le code Commandbutton Valider --> mais c'est pas bon çà ce que vous avez là
je ne vous ai jamais dit de placer Call affiche à la fin du code !

Cf --> https://forum.excel-pratique.com/s/goto/1207750

Rechercher des sujets similaires à "creer logiciel presence"