Afficher ou cacher des botons

Bonjour

petite question qui peut paraître facile :

J'aimerais choisir le nom désiré Du mot de passe (ADMINISTRATEUR OU UTILISATEUR)j'ai une USFVisualisation dans laquelle j'ai des boton avec des noms. J'aimerais choisir si le nom désiré (ADMININISTRATEUR) les botons (SUPPRIMER et MODIFIER ) s'affiche sinon CACHER

je n'arrive pas a utiliser les commandes en condition:

Button_Suppr.Visible = False

Button_Modifier.Visible = False

Merci.

33mot-de-passe.xlsm (47.32 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bnjour

il me donne un message de debogage

Option Explicit

Function VerifMDP(Utilisateur As String, MdP As String) As Boolean
Dim rngTrouve As Range
VerifMDP = False

With Sheets("parametrage")
    Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, LookAt:=xlWhole)
    If rngTrouve Is Nothing Then 'si il ne trouve pas
        VerifMDP = False
    Else
        If rngTrouve.Offset(0, 1) <> MdP Then
            VerifMDP = False
        Else
            VerifMDP = True
        End If
    End If
End With
End Function

merci de votre aide

C’est curieux.

Je ne sais pas que te dire.

Pour corriger un bug, il faudrait que je puisse le reproduire.

Or, sur mon PC, tout se passe bien.

Quand j’ouvre le fichier, j’obtiens une boite de dialogue qui m’invite à m’identifier et à donner mon mot de passe. Ce que je fais :

capture 1

Quand je valide, le fichier s’ouvre et me donne accès aux seules feuilles autorisées :

capture 2

Et quand j’active la feuille ‘’STOCK’’, les boutons Modifier et Supprimer ne figurent pas sur la boite de dialogue.

capture 3

Je ne vois pas comment t’aider davantage.

Désolé …

Bye !

BONJOUR

tu peux essaye avec le mot de passe : NOM1 ANA1

Je fais l'essai avec : NOM2 NOM3 Ca marche bien

merci de votre aide

Avec NOM1 pour utilisateur et ANA1 comme mot de passe, le fichier s'ouvre sans bug.

Bye !

Bonjour

je t'envoyer le fichier d'origine et tu m’excuse pour le derangement

merci bien de votre aide

cordialement


bonjour

http://www.cjoint.com/14nv/DKDudDoyUjV.htm

merci


BONJOUR

PARDON

Le code et: ADMIN

BONJOUR

JE trouve que mon probleme se trouve ici

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim f
    For Each f In Worksheets
        If f.Name <> "GESTION" Then
            f.Visible = xlVeryHidden
        End If
    Next f
End Sub

a l'ouverture de l'application aucun probleme ca marche tres bien

mais a la fermeture il ya un message de debug

merci de votre comprehension

BONJOUR

122
richi2casa a écrit :

mais a la fermeture il ya un message de debug

Normal.

Tu ne donnes accès à la page Menu qu’à ADMIN : voir ton tableau de paramétrage, il n’y a que lui qui a une croix.

Quand tu ouvres le fichier avec un autre nom, la page Menu reste donc caché.

Or, tu as une macro à la fermeture qui te cache toutes les feuilles sauf la page Menu. Mais si la page Menu est déjà cachée, un bug se produit quand il ne reste plus qu’une feuille à cacher car, pour Excel il doit toujours y en avoir une de visible.

Tu n'as pas ce problème avec ADMIN puisque pour lui, la feuille Menu est affichée.

OK ?

Bonjour

ok je comprend mnt

Merci bien

Rechercher des sujets similaires à "afficher cacher botons"