Code VBA pour fichier création modification dans base de données

Private Sub CommandButton1_Click()

Dim Feuil As Worksheet

Dim MDP

On Error Resume Next

If Me.TextBox1.Value = "" Then

MsgBox "Veuillez saisir votre Login", vbOKOnly + vbExclamation, "Erreur Login!"

Exit Sub

End If

If Me.TextBox2.Value = "" Then

MsgBox "Veuillez saisir votre N° de clé!", vbOKOnly + vbExclamation, "Erreur N° de clé!"

Exit Sub

End If

MDP = Application.WorksheetFunction.Index(Range("Motdepasse"), Application.WorksheetFunction.Match(Me.TextBox1.Value, _

Range("utilisateur"), 0), 1)

If Me.TextBox2.Value <> MDP Then

MsgBox "Votre N° de clé est incorrecte!", vbOKOnly + vbCritical, "Erreur"

Else

For Each Feuil In Sheets

If Feuil.Name <> "Connexion" Then

If Application.WorksheetFunction.Index(Range("plage"), Application.WorksheetFunction.Match( _

Me.TextBox1.Value, Range("utilisateur"), 0), Application.WorksheetFunction.Match(Feuil.Name, Range("entete"), 0)) = "Oui" Then

Feuil.Visible = xlSheetVisible

Else

Feuil.Visible = xlSheetVeryHidden

End If

End If

Next

End If

End Sub

Quel est l'erreur dans ce code ?? car quand je click sur mon bouton rien ne se passe

Bonjour à tous,

@lulu > tu serais bien aimable de toujours placer ton code sous balises > en haut, le bouton " </> " ...

Question de lisibilité ...

Merci ...

ric

Bonjour, ok je ne connaissais pas cette démarche, désolé.

Bonjour voici le lien de la vidéo sécuriser un classeur avec multi utilisateurs

Classeur joint:

Voici le code:

Private Sub CommandButton1_Click()
Dim Feuil As Worksheet
Dim MDP
On Error Resume Next
If Me.TextBox1.Value = "" Then
MsgBox "Veuillez saisir votre Login", vbOKOnly + vbExclamation, "Erreur Login!"
Exit Sub
End If

If Me.TextBox2.Value = "" Then
MsgBox "Veuillez saisir votre N° de clé!", vbOKOnly + vbExclamation, "Erreur N° de clé!"
Exit Sub
End If

MDP = Application.WorksheetFunction.Index(Range("Motdepasse"), Application.WorksheetFunction.Match(Me.TextBox1.Value, _
Range("utilisateur"), 0), 1)

If Me.TextBox2.Value <> MDP Then

MsgBox "Votre N° de clé est incorrecte!", vbOKOnly + vbCritical, "Erreur"

Else

For Each Feuil In Sheets
If Feuil.Name <> "Connexion" Then

 If Application.WorksheetFunction.Index(Range("plage"), Application.WorksheetFunction.Match( _
Me.TextBox1.Value, Range("utilisateur"), 0), Application.WorksheetFunction.Match(Feuil.Name, Range("entete"), 0)) = "Oui" Then

Feuil.Visible = xlSheetVisible

Else

Feuil.Visible = xlSheetVeryHidden

End If

End If

Next

End If

End Sub

Bonjour toutes et tous bonne semaine

@Lulu

je te laisses le remodeler à ta convenance ce code vient de Daniel merci à lui

-définir dans l'onglet Members ^{(être en ADMIN pour effectuer cette tâche)}

- pour les accès (onglet Members) , colonne H (nommé ROLE) pour ajouter U14, U8, Baby etc. par exemple, surtout il faudra modifier le code et les ajouter et aussi ne pas oublier les NAMEUSER colonne I (onglet Members)

u14(id) | 444 (mdp) | Mu14 (rôle) |

je te laisses t'y familiarisé

ci-joint (voir ci-dessus)

Note: @Lulu ton post précédent, il me bug

un exemple ci-joint

crdlt,

André

Bonjour merci pour votre réponse.

Le gros inconvénient c'est qu'il faut forcément par du code pour ajouter des droits et des rôles.

Je réfléchi à la méthode trouvé sur le net mais pas de solution pour l'instant.

Je médite comme diraient les sages !!!

Merci beaucoup pour votre investissement.

Bonjour, Meilleurs vœux a vous.

C'est reparti j'ai mis la tête dans le dernier fichier joint je maitrise la protection que vous avez fourni grâce à Daniel.

Par contre il y a un gros soucis dès qu'on ajoute une fiche ca bug ???

En attendant votre retour.

Cordialement.

Bonjour,

Je ne comprends plus rien les macros ne fonctionnent plus !!!

Qu'est ce qui fait tout buguer ???

J'ai besoin de votre aide.

Cordialement.

Bonjour toutes et tous

@Lulu

pas de panique, quel est le dernier classeur ?

après si çà bug,

1/il faut voir dans un premier temps lors de l'ajout d'un nouvel onglet si le classeur le Rôle est bien sur mode Admin (exemple lulu et mot de passe 123) exemple sur le classeur lulu-v4-final03-copie5 lulu-v4-final03-copie5.zip

2/ et peut être ajouter au classeur à la liste du tableau le futur nom du nouvel onglet avec les accès (rôle, Admin, Modo et User)

crdlt,

André

Bonsoir,

Merci pour votre retour voici le fichier joint.

Login Admin Andre13 / MDP: 1

Ca fonctionne nickel la protection, merci à vous et à Daniel.

Je n'ai pas avancer sur la feuille Relance.

J'ai remarqué d'autres détails qui gêne le fonctionnement:

1) Comment obliger à se déconnecter "bouton logout" avant de fermer le fichier avec si possible un message d'erreur

"Veuillez vous déconnecter avant de fermer"

2) Si je modifie une date de naissance avec l'USF2 que je valide, est il possible d'automatiser la modification du N°de licence.

3) Comment afficher toutes les pages en plein écran (sans aucune barre ni quadrillage) "style logiciel"

Encore merci pour toute l'aide que vous m'apportez je ne vous remercierai jamais assez.

Cordialement.

Bonjour toutes et tous

@Lulu

j'ai un peu commencé tes requêtes 1 et 3

j'ai ajouté en Admin Ric avec mot de passe 1

- il faut regarder le ThisWorkbook close lors de la fermeture du classeur pour un message si oui fermeture du classeur se déconnecte et va directemebnt sur la macro logout (donc la feuille de connexion)

- mis en plein écran voir le Workbook code inclus

@tester des petites imperfections encore subsiste,..

ci-joint

crdlt,

André

Bonsoir ça fonctionne bien. Il reste juste les barres de titres.

Merci de votre aide.

Bonjour toutes et tous

@Lulu

rectifié toujours pour 1 et 3

j'ai rajouté lors de l'ouverture du classeur (Workbook)

 Application.DisplayFullScreen = True
 Application.DisplayFormulaBar = False
 ActiveWindow.DisplayHeadings = False
 ActiveWindow.DisplayGridlines = False

Alt+F11 pour y accéder au VBE

Note: j'pense après, il faudrait utiliser des Apis , mais là, c'est une autre histoire

ci-joint,

crdlt,

André