Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Bonjour job75, Yaloo, le forum,

J'ai un peu plus de mal à comprendre ton code job75. Ce n'est pas du tout péjoratif, mais je suis vraiment débutant en VBA.


J'ai essayé de modifié le code de Yaloo pour apporter une autre condition aux signataires.

Je souhaiterai que S. WERHLE (signataire) ne puisse modifier que les cellules de la colonne J où il est écrit "A signer/S. WEHRLE". De même pour F. DEMAY (signataire) qui ne doit avoir accès qu'aux cellules où est renseigné A signer/F. DEMAY" de la colonne J.

Pour cela j'ai essayé d'adapter le code, mais plus aucune autorisation ne fonctionne, la feuille est complètement verrouillée quelque soit l'utilisateur.

Private Sub CommandButton1_Click() 'Valider
Dim Ws As Worksheet, i&
Application.ScreenUpdating = 0
If ComboBox1 = "" Or TextBox2 = "" Then
MsgBox "Merci de rentrer vos noms et mot de passe"
Exit Sub
End If
For Each Ws In Worksheets
If Ws.Name <> "suivi des cdes MDA V2" And Ws.Name <> "Modèle_BDC V1" Then Sheets(Ws.Name).Visible = 2
Next
If TextBox2 = ComboBox1.Column(1) Then
ActiveSheet.Unprotect "citedia"
If ComboBox1.Column(2) = "Acheteur" Then
For i = 17 To [A65536].End(3).Row
If Cells(i, 1) = ComboBox1.Column(0) Then Cells(i, 7).Resize(, 8).Locked = 0
Next
If ComboBox1.Column(2) = "A signer/F. DEMAY" Then
For i = 17 To [A65536].End(3).Row
If Cells(i, 10) = ComboBox1.Column(2) Then Cells(i, 10).Locked = 0
Next
If ComboBox1.Column(2) = "A signer/S. WEHRLE" Then
For i = 17 To [A65536].End(3).Row
If Cells(i, 10) = ComboBox1.Column(2) Then Cells(i, 10).Locked = 0
Next
ElseIf ComboBox1.Column(2) = "Comptable" Then
Range("I17:I" & [A65536].End(3).Row).Locked = 0
' ElseIf ComboBox1.Column(2) = "Signataire" Then
' Range("J17:J" & [A65536].End(3).Row).Locked = 0
ElseIf ComboBox1.Column(2) = "DAF" Then
Range("K17:K" & [A65536].End(3).Row).Locked = 0
ElseIf ComboBox1.Column(2) = "Admin" Then
Call Affiche_tt_Feuilles
ActiveSheet.Unprotect "citedia"
GoTo Suite


' If ComboBox1.Column(2) = "Comptable" Then
' For i = 17 To [A65536].End(3).Row
' If Cells(i, 9) = ComboBox1.Column(2) Then Cells(i, 9).Locked = 0
' Next
' If ComboBox1.Column(2) = "DAF" Then
' For i = 17 To [A65536].End(3).Row
' If Cells(i, 11) = ComboBox1.Column(2) Then Cells(i, 11).Locked = 0
' Next
' If ComboBox1.Column(2) = "Admin" Then
' Call Affiche_tt_Feuilles

End If
End If
End If
End If


Merci à vous.

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

J'ai remplacé les 2 "If" par "Elseif" et ça fonctionne!!

En tout cas c'est vraiment bien car en 3 jours j'ai pas mal progressé grace à vous!

Je continue de tester le fichier.

Merci

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re,

Je me suis rendu compte que mes fichiers .xls sont vérolés (illisibles en .xlsm), sans doute à cause de mon convertisseur sur Excel 2003.

J'ai donc mis mes codes dans votre fichier .xlsm du post #29, voir pièce jointe.

Apparemment pas de problème avec la cellule D6 une fois déverrouillée manuellement.

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re,

Si l'on veut des astérisques * quand on tape le mot de passe il faut un UserForm.

Il est chargé par la Workbook_Open.

Fichier (2).

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Bonjour à tous,

@ Job , ton premier fichier fonctionnait correctement, ton code est beaucoup plus concis que le mien. Par contre, en l'état, il faut mettre les utilisateurs et leurs mots de passe en dur dans la macro

Pour le verrouillage de la cellule D6, c'est que j'utilisais

Cells.Locked = -1

Cliquez pour agrandir...

, alors qu'il vaut mieux prendre

Range("A17:I" & [A65536].End(3).Row).Locked = -1

Cliquez pour agrandir...

Cela ne touche que les cellules sous la barre d'entête.

Pourquoi séparer S. WERHLE et S. WEHRLE (Signataire) dans l'onglet "Employés", c'est bien la même personne ?
Quand l'utilisateur va se connecter, choisir entre les 2 risque d'être pénible pour lui.

A te relire

Martial

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re,

Yaloo à dit:

@ Job (...) en l'état, il faut mettre les utilisateurs et leurs mots de passe en dur dans la macro

Cliquez pour agrandir...

A priori ce n'est pas du tout gênant puisque c'est l'administrateur du fichier qui les modifiera si nécessaire.

Et normalement les modifications seront rares non ?

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Yaloo à dit:

Pourquoi séparer S. WERHLE et S. WEHRLE (Signataire) dans l'onglet "Employés", c'est bien la même personne ?
Quand l'utilisateur va se connecter, choisir entre les 2 risque d'être pénible pour lui.

A te relire

Martial

Cliquez pour agrandir...

En fait j'ai différencié les 2 car je ne savais pas comment faire pour que S. WEHRLE ai le même profil pour pouvoir à la fois modifier la colonne H des commandes où son nom figure dans la colonne A, et en même temps qu'il puisse modifier la colonne J uniquement dans les cellules où figurent "A signer/S. WEHRLE".

J'ai donc bricolé à ma façon en tant que néophyte.

Je vous joins le dernier fichier à jour.

Merci

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

job75 à dit:

Re,



A priori ce n'est pas du tout gênant puisque c'est l'administrateur du fichier qui les modifiera si nécessaire.

Et normalement les modifications seront rares non ?

A+

Cliquez pour agrandir...

Oui les modifications seront normalement rares je pense.

En pensant à cela, Y a t-il un code pour que l'administrateur et uniquement l'administrateur puisse avoir accès au VBA?

Merci

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re,

Il suffit de protéger le projet VBA avec le mot de passe de l'administrateur.

Dans VBA menu Outils => Propriétés de VBAProject.

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Merci, c'était plus simple que je ne le pensais...

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

job75,

J'ai rajouté quelques infos dans mon formulaire, notamment une combobox avec les différents taux de TVA.

Seulement ces taux s'affichent dans la combobox en 0,2 ou 0,1 ou 0,055.

Comment puis-je faire pour modifier le format en 20%, 10% et 5,5%?

Voici mon code de base qui remplit ma combobox:

For i = 17 To 20
ComboBox_TVA1.AddItem Sheets("Table").Cells(i, 1)
Next



Autrement, j'ai également rajouté des PT TTC par ligne pour les 12 lignes dans le formulaire. Et j'ai essayé de les lier avec les PT HT et les taux de TVA, mais ça coince. Je me suis inspiré du code du dessus avec les 3 variables x,y,z mais je ne suis pas doué.

Pouvez vous me dire où je pêche?

Merci d'avance

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Re,

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Je ne peux pas joindre le fichier car il dépasse le poids autorisé.

Le code donne cela:

'calculs automatiques des textbox de Prix Total HT
Function pv(a): pv = Replace(Replace(a, ".", ","), " ", ""): End Function
Function vp(a): vp = Replace(Replace(Replace(a, ",", "."), " ", ""), Chr(160), ""): End Function
Function fo(a): fo = Format(a, "#,##0.00"): End Function

Sub TextBox_PuHT_1_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_1_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_2_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_2_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_3_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_3_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_4_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_4_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_5_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_5_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_6_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_6_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_7_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_7_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_8_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_8_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_9_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_9_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_10_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_10_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_11_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_11_AfterUpdate(): valeurs: End Sub
Sub TextBox_PuHT_12_AfterUpdate(): valeurs: End Sub
Sub TextBox_Qté_12_AfterUpdate(): valeurs: End Sub

Sub valeurs()
Const TVA = 0.2 ' INDIQUER ICI le TAUX de TVA
Dim i&, x As Control, y As Control, z As Control, TotalHT
For i = 1 To 12
' on affecte à x,y,z les trois derniers controles de chaque ligne
Set x = Me.Controls("TextBox_Qté_" & i): Set y = Me.Controls("TextBox_PuHT_" & i)
Set z = Me.Controls("TextBox_PTHT_" & i)
' on en profite pour redéfinir les tabutations
Me.Controls("TextBox_Réf_" & i).TabIndex = 4 * (i - 1) + 0
Me.Controls("TextBox_Désignation_" & i).TabIndex = 4 * (i - 1) + 1
x.TabIndex = 4 * (i - 1) + 2: y.TabIndex = 4 * (i - 1) + 3
' on prend le controle, on remplace les virgules par des points (vp)
' on trouve la valeur numérique (VAL), si c'est un montant monétaire
' on le formate(0:00 par fo),on remplace les points par des virgules (vp)
' on réaffecte le résultat au controle
If x <> "" Then x = pv(Val(vp(x)))
If y <> "" Then y = pv(fo(Val(vp(y))))
' si x ou y ne sont pas vide, on calcule le montant de la ligne et on l'inscrit
If Trim(x & y) <> "" Then z = pv(fo(Val(vp(x)) * Val(vp(y)))) Else z = ""
' on en profite pour rajouter le montant de la ligne au total hors taxe
TotalHT = TotalHT + Val(vp(z))
Next i

Dim e&, a As Control, b As Control, c As Control, TotalTTC
For e = 1 To 12
' on affecte à a,b,c les trois derniers controles de chaque ligne
Set a = Me.Controls("TextBox_PTHT_" & e): Set b = Me.Controls("Combobox_TVA" & e)
Set c = Me.Controls("TextBox_PT_TTC" & e)
' on en profite pour redéfinir les tabutations
Me.Controls("TextBox_Réf_" & e).TabIndex = 4 * (e - 1) + 0
Me.Controls("TextBox_Désignation_" & e).TabIndex = 4 * (e - 1) + 1
x.TabIndex = 4 * (e - 1) + 2: y.TabIndex = 4 * (e - 1) + 3: b.TabIndex = 4 * (e - 1) + 4
' on prend le controle, on remplace les virgules par des points (vp)
' on trouve la valeur numérique (VAL), si c'est un montant monétaire
' on le formate(0:00 par fo),on remplace les points par des virgules (vp)
' on réaffecte le résultat au controle
If a <> "" Then a = pv(Val(vp(a)))
If b <> "" Then b = pv(fo(Val(vp(b))))
' si x ou y ne sont pas vide, on calcule le montant de la ligne et on l'inscrit
If Trim(a & b) <> "" Then c = pv(fo(Val(vp(a)) * (1 + Val(Replace(b, "%", ""))))) Else c = ""

' on en profite pour rajouter le montant de la ligne au total hors taxe
'TextBox_Mtt_TTC_commandé = Replace(TextBox_Mtt_TTC_commandé, ",", ".") + Val(vp(c))
Next e


' on inscrit le total hors taxe
'TextBox1_Mtt_total_HT = pv(fo(TotalHT))
' on inscrit le total TTC
'TextBox_Mtt_TTC_commandé = pv(fo(TotalHT * (1 + TVA)))
End Sub

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Bonjour Arnold35, bonjour le fil

Quand la taille dépasse celle autorisée, tu as des sites comme cjoint.com

A+

Re : Mettre un mot de passe sur une plage en fonction de la valeur d'une cellule

Merci BrunoM45

Voici donc le fichier, je bloque sur ce code en triangle pour calculer le Prix TTC de chaque ligne (PT HT* (1+ taux TVA), puis la somme des 12 lignes donnant le montant total TTC.

(c) CJoint.com, 2012

Je ne sais pas si c'est dans la syntaxe ou si c'est le format des combobox TVA qui pose problème