Base de donnée identifiants!

mutzik

XLDnaute Barbatruc

• 5 Mars 2009

• #2

Re : Base de donnée identifiants!

bonjour,

tu t'y connais en VBA ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Mars 2009

• #3

Re : Base de donnée identifiants!

Bonjour Demax 🙂,
Si je comprends bien, c'est du style réservation du cours de tennis, et tu en a qui remplacent les noms des autres par le leur...
Au plus simple, je mettrais juste une macro événementielle qui testerais si la cellule est vide : si oui, je dévérouille juste le temps de saisir dans cette cellule, si non, j'interdit la modification. Et pour t'autoriser à toi les modifs, un petit test sur une variable booléenne, qui désactive l'événementielle dès que tu as entré ton mot de passe.
Bonne journée 😎
Bonjour Mutzik le lorrain

 

Dernière édition: 5 Mars 2009

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #4

Re : Base de donnée identifiants!

bonjour jnp
tu as bien compris mon prob.
Pour la cellule vide et deverouillage d'accord mais si la personne se desiste elle doit avoir son mot de passe qu'il aura enregistré au prealable
et donc il faut une base avec nom et MdP et C'est là que je pioche!
surtout qu'il y a environ 300 presonnes😱
merci🙂

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Mars 2009

• #5

Re : Base de donnée identifiants!

Re 🙂,
Toujours pour faire simple, si tu prévois une case désistement... Qui t'enverra juste sur une autre feuille le nom, la date, et éventuellement une signature individuelle pour être sûr que c'est bien le bon...
Les accès par MdP, c'est bien, mais c'est de la vrai usine à gaz... Je ne trouve plus le post, il y avait un fichier bien fait, de base, il faut que tu protèges pour obliger à activer les macros, que tu protèges ton programme VBA, que tu joue sur le masquage des feuilles, bref, que du plaisir 😀.
Bon courage 😎

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #6

Re : Base de donnée identifiants!

ok jnp
tu as raison ca va etre une usine à gaz.
Si il se desiste il telephone 😀
Donc pour verouiller les feuilles je fais proteger la feuille
puis avec je crois target je test si la cellule est vide

if target.count > 1 then target.unprotect

Cliquez pour agrandir...

mais je sais pas quelle evenement il faut inserer le code

Private Sub Worksheet_Change(ByVal Target As Range)

Cliquez pour agrandir...

😕ou autre chose en sachant qu'il y a plusieurs feuilles (4-5)
C un peu l'usine à gaz dans ma tete😱
merci de m'avoir dirigé dans quelques chose de simple😉

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 5 Mars 2009

• #7

Re : Base de donnée identifiants!

Bonjour



Plus de :

surtout qu'il y a environ 300 presonnes

Cliquez pour agrandir...

ont accès au PC ou est stockée ta feuille Excel? 😕😕

 

Dernière édition: 5 Mars 2009

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #8

Re : Base de donnée identifiants!

Bonjour vbacrumble
la feuille est sur un reseau interne
mais on a des petits malins qui s'amuse à effacer les autres🙁
++

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Mars 2009

• #9

Re : Base de donnée identifiants!

Re 🙂,
Teste déjà ce simple code dans le code de feille, en ayant préalablement protégé la feuille

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nom As String
If Target <> "" Then Exit Sub
Nom = InputBox("Nom à inscrire ?", "Inscription")
Me.Unprotect
Cells(Target.Row, Target.Column) = Nom
Me.Protect
End Sub

A + 😎

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #10

Re : Base de donnée identifiants!

re jnp🙂
alors j'ai fais comme tu as dis j'ai protegé la feuille au prealable
puis quand tu selectinne une cellule vide la inputbox s'ouvre mais une autre boite en me demandant d'oter la protection avec le MdP
par contre je l'est fais sans mettre la protection au depart cela fonctionne mais un petit malin peut oter la protection sans MdP😕
et comment l'appliquer à plusieurs feuilles il faut copier simplement le code?🙄
merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Mars 2009

• #11

Re : Base de donnée identifiants!

Re 🙂,
C'était juste pour tester, la base étant sans mot de passe... Avec mot de passe, ça donne ça,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nom As String
If Intersect(Target, Range("B2:F30")) Is Nothing Then Exit Sub
If Target <> "" Then Exit Sub
Nom = InputBox("Nom à inscrire ?", "Inscription")
Me.Unprotect "MdP"
Cells(Target.Row, Target.Column) = Nom
Me.Protect "MdP"
End Sub

le mot de passe à rentrer est "MdP" pour protéger ta feuille. J'ai limité la surface d'action à B2:F30, à adapter.
Oui, comme j'utilise Me, chaque feuille sera protégée en mettant le même code pour chaque feuille.
J'avance encore un peu et je te mets un fichier test.
A + 😎

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #12

Re : Base de donnée identifiants!

ouah JNP C genial!🙂
fonctionne tres bien parcontre si je dois faire des modifs en tant qu'administrateur j'ote la protection pas de probleme mais si je veux remplir une cellule pour mettre un message il me verouille automatiquement
alors peux etre en mettant une condition si le MdP est vrai Me.Unprotect
mais pour traduire ca je vais essayer🙄
en tout cas merci beaucoup pour ta patiente 😉

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Mars 2009

• #13

Re : Base de donnée identifiants!

Re 🙂,
En pièce jointe, un fichier test à 3 feuilles. A l'ouverture, toutes les feuilles sont protégées avec la même zone que tout à l'heure. Si tu veux faire des modifications : Ctrl + Maj + d. Il te demande le mot de passe (MdP) et tout est déverrouillé. Quand tu fermes, tout se reverrouille.
Reste 2 détails : il faut obliger l'utilisateur à activer les macros (j'ai déjà fait, donc pas de problème) et verrouiller les macros pour empêcher le petit futé de venir tout regarder (mot de passe sur le projet).
Après, on est tranquille, au moins pour les blondes 😀...
A + 😎

 

Pièces jointes

• Réservations.xls

  49.5 KB · Affichages: 71
• Réservations.xls

  49.5 KB · Affichages: 68
• Réservations.xls

  49.5 KB · Affichages: 68

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 5 Mars 2009

• #14

Re : Base de donnée identifiants!

Re à tous


Une précision

Tu disais

mais on a des petits malins qui s'amuse à effacer les autres

Cliquez pour agrandir...

Les petits malins en question sauront donc pour inhiber la protection
(en n'activant pas les macros à l'ouverture ... )

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 5 Mars 2009

• #15

Re : Base de donnée identifiants!

oui petit malins mais pas escrocs non plus enfin j'espere 🙄
il faut vraiment connaitre excel pour rentrer dans les options et autres!
++

 

Vote positif 0 Vote négatif