Bonjour,
je voudrais savoir comment faire pour que lorsque je tape mon mot de passe
via un userform, celà s'écrive en étoile?
Merci. YANN
Voici mon code :
--------------
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
-----------------
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
TextBox1.PasswordChar = "*"
Bonjour,
je voudrais savoir comment faire pour que lorsque je tape mon mot de passe
via un userform, celà s'écrive en étoile?
Merci. YANN
Voici mon code :
--------------
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
-----------------
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
TextBox1.PasswordChar = "*"
Pierre Fauconnier
Bonjour Yann,
La propriété Passwordchar permet cela. Il faut simplement la définir avec le caractère que tu souhaites voir apparaître ( généralement l'étoile ).
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
Bonjour Yann,
La propriété Passwordchar permet cela. Il faut simplement la définir avec le
caractère que tu souhaites voir apparaître ( généralement l'étoile ).
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
0069791C-21D4-4B26-ABCB-14B10868CB89@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour que lorsque je tape mon mot de passe
via un userform, celà s'écrive en étoile?
Merci. YANN
Voici mon code :
--------------
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
-----------------
La propriété Passwordchar permet cela. Il faut simplement la définir avec le caractère que tu souhaites voir apparaître ( généralement l'étoile ).
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
anonymousA
bojour,
propriété passwordchar de l'objet textbox : mettre ce que tu veux dans cette propriété et en particulier une *.
A+
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
bojour,
propriété passwordchar de l'objet textbox : mettre ce que tu veux dans cette
propriété et en particulier une *.
A+
Bonjour,
je voudrais savoir comment faire pour que lorsque je tape mon mot de passe
via un userform, celà s'écrive en étoile?
Merci. YANN
Voici mon code :
--------------
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
-----------------
propriété passwordchar de l'objet textbox : mettre ce que tu veux dans cette propriété et en particulier une *.
A+
Bonjour, je voudrais savoir comment faire pour que lorsque je tape mon mot de passe via un userform, celà s'écrive en étoile? Merci. YANN Voici mon code : -------------- Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function -----------------
YANN24
Re, OK, j'ai mis "*" à la propiété de passwordchar de mon textbox. merci. et pour un mot de passe qu'on demande sur excel? on fait comment? Merci; YANN : ---------- Sub MontrerFeuille() pw = InputBox("Entrer le mot de passe") If pw = "code" Then ActiveWorkbook.Unprotect For I = 1 To 36 Sheets(I).Visible = True Next Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If ActiveWorkbook.Protect End Sub
Re,
OK, j'ai mis "*" à la propiété de passwordchar de mon textbox.
merci.
et pour un mot de passe qu'on demande sur excel? on fait comment?
Merci; YANN :
----------
Sub MontrerFeuille()
pw = InputBox("Entrer le mot de passe")
If pw = "code" Then
ActiveWorkbook.Unprotect
For I = 1 To 36
Sheets(I).Visible = True
Next
Else
MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe"
End If
ActiveWorkbook.Protect
End Sub
Re, OK, j'ai mis "*" à la propiété de passwordchar de mon textbox. merci. et pour un mot de passe qu'on demande sur excel? on fait comment? Merci; YANN : ---------- Sub MontrerFeuille() pw = InputBox("Entrer le mot de passe") If pw = "code" Then ActiveWorkbook.Unprotect For I = 1 To 36 Sheets(I).Visible = True Next Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If ActiveWorkbook.Protect End Sub
Pierre Fauconnier
Demande le mot de passe via un userform. Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" a écrit dans le message de news:
Re, OK, j'ai mis "*" à la propiété de passwordchar de mon textbox. merci. et pour un mot de passe qu'on demande sur excel? on fait comment? Merci; YANN : ---------- Sub MontrerFeuille() pw = InputBox("Entrer le mot de passe") If pw = "code" Then ActiveWorkbook.Unprotect For I = 1 To 36 Sheets(I).Visible = True Next Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If ActiveWorkbook.Protect End Sub
Demande le mot de passe via un userform.
Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
3989DD65-620E-4CAA-8F6F-AAC23F961E69@microsoft.com...
Re,
OK, j'ai mis "*" à la propiété de passwordchar de mon textbox.
merci.
et pour un mot de passe qu'on demande sur excel? on fait comment?
Merci; YANN :
----------
Sub MontrerFeuille()
pw = InputBox("Entrer le mot de passe")
If pw = "code" Then
ActiveWorkbook.Unprotect
For I = 1 To 36
Sheets(I).Visible = True
Next
Else
MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe"
End If
ActiveWorkbook.Protect
End Sub
Demande le mot de passe via un userform. Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"YANN24" a écrit dans le message de news:
Re, OK, j'ai mis "*" à la propiété de passwordchar de mon textbox. merci. et pour un mot de passe qu'on demande sur excel? on fait comment? Merci; YANN : ---------- Sub MontrerFeuille() pw = InputBox("Entrer le mot de passe") If pw = "code" Then ActiveWorkbook.Unprotect For I = 1 To 36 Sheets(I).Visible = True Next Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If ActiveWorkbook.Protect End Sub
OnE
Demande le mot de passe via un userform. Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
Ou alors tu mets un mot de passe à l'ouverture de ton classeur
Fichier -> Enregister sous ...
Dans la boite de dialogue d'enregistrement tu vas dans le menu Outils, tu choisis Options générales
Dans la seconde boite de dialogue tu mets un mot de passe dans la case "Mot de passe protégeant le document"
Demande le mot de passe via un userform.
Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
Ou alors tu mets un mot de passe à l'ouverture de ton classeur
Fichier -> Enregister sous ...
Dans la boite de dialogue d'enregistrement tu vas dans le menu Outils,
tu choisis Options générales
Dans la seconde boite de dialogue tu mets un mot de passe dans la case
"Mot de passe protégeant le document"
Demande le mot de passe via un userform. Si tu le demandes dans une cellule, autant le donner sur le net... ;-)
Ok?
Ou alors tu mets un mot de passe à l'ouverture de ton classeur
Fichier -> Enregister sous ...
Dans la boite de dialogue d'enregistrement tu vas dans le menu Outils, tu choisis Options générales
Dans la seconde boite de dialogue tu mets un mot de passe dans la case "Mot de passe protégeant le document"
YANN24
Ouais, je comprend. Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
En fait il faut que je cré un second userform du style : -------------------------------- Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True Me.Label1.Visible = True End Sub
Private Sub combobox2_Click() End Sub Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox2.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox2.Value) = True Then ThisWorkbook.IsAddin = False ActiveWorkbook.Unprotect For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next ActiveWorkbook.Protect Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
Ouais, je comprend.
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est
ça?
En fait il faut que je cré un second userform du style :
--------------------------------
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click()
'si l'utilisateur clique sur Annuler, on quitte.
Unload Me
ThisWorkbook.Close
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize()
'empêche l'affichage de la croix de fermeture en utilisant les API
'déclarées en début de module
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D")
& "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True
Me.Label1.Visible = True
End Sub
Private Sub combobox2_Click()
End Sub
Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then
MsgBox "vous n'avez rien saisi"
Me.ComboBox2.SetFocus
Else
If TextBox1.Value = "" Then
Else
If controlmdp(TextBox2.Value) = True Then
ThisWorkbook.IsAddin = False
ActiveWorkbook.Unprotect
For I = 1 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = True
Next
ActiveWorkbook.Protect
Unload Me
End If
End If
End If
End Sub
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
Ouais, je comprend. Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
En fait il faut que je cré un second userform du style : -------------------------------- Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True Me.Label1.Visible = True End Sub
Private Sub combobox2_Click() End Sub Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox2.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox2.Value) = True Then ThisWorkbook.IsAddin = False ActiveWorkbook.Unprotect For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next ActiveWorkbook.Protect Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
AV
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
Si avec une boite de dial XL5 (et une zone d'édition)
AV
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est
ça?
Si avec une boite de dial XL5 (et une zone d'édition)
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
Si avec une boite de dial XL5 (et une zone d'édition)
AV
anonymousA
re,
il est possible aussi de faire un Inputbox avec des étoiles, mais il faut bricoler des API. Il existe un exemple sur le site de Ivan Moala.
A+
Ouais, je comprend. Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
En fait il faut que je cré un second userform du style : -------------------------------- Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True Me.Label1.Visible = True End Sub
Private Sub combobox2_Click() End Sub Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox2.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox2.Value) = True Then ThisWorkbook.IsAddin = False ActiveWorkbook.Unprotect For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next ActiveWorkbook.Protect Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
re,
il est possible aussi de faire un Inputbox avec des étoiles, mais il faut
bricoler des API. Il existe un exemple sur le site de Ivan Moala.
A+
Ouais, je comprend.
Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est
ça?
En fait il faut que je cré un second userform du style :
--------------------------------
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click()
'si l'utilisateur clique sur Annuler, on quitte.
Unload Me
ThisWorkbook.Close
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize()
'empêche l'affichage de la croix de fermeture en utilisant les API
'déclarées en début de module
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D")
& "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True
Me.Label1.Visible = True
End Sub
Private Sub combobox2_Click()
End Sub
Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then
MsgBox "vous n'avez rien saisi"
Me.ComboBox2.SetFocus
Else
If TextBox1.Value = "" Then
Else
If controlmdp(TextBox2.Value) = True Then
ThisWorkbook.IsAddin = False
ActiveWorkbook.Unprotect
For I = 1 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = True
Next
ActiveWorkbook.Protect
Unload Me
End If
End If
End If
End Sub
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("code")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
il est possible aussi de faire un Inputbox avec des étoiles, mais il faut bricoler des API. Il existe un exemple sur le site de Ivan Moala.
A+
Ouais, je comprend. Donc vu d'une macro sans userform, tu ne peux pas mettre des étoiles, c'est ça?
En fait il faut que je cré un second userform du style : -------------------------------- Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton22_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
Me.TextBox1.Visible = True Me.Label1.Visible = True End Sub
Private Sub combobox2_Click() End Sub Private Sub commandbutton21_Click()
If Me.ComboBox2.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox2.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox2.Value) = True Then ThisWorkbook.IsAddin = False ActiveWorkbook.Unprotect For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next ActiveWorkbook.Protect Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("code") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
YANN24
re, oui mais non. je ne veux pas bloquer mon classeur. je vais refaire un userform. merci. YANN
Ou alors tu mets un mot de passe à l'ouverture de ton classeur
Fichier -> Enregister sous ...
Dans la boite de dialogue d'enregistrement tu vas dans le menu Outils, tu choisis Options générales
Dans la seconde boite de dialogue tu mets un mot de passe dans la case "Mot de passe protégeant le document"
re,
oui mais non. je ne veux pas bloquer mon classeur.
je vais refaire un userform.
merci. YANN
Ou alors tu mets un mot de passe à l'ouverture de ton classeur
Fichier -> Enregister sous ...
Dans la boite de dialogue d'enregistrement tu vas dans le menu Outils,
tu choisis Options générales
Dans la seconde boite de dialogue tu mets un mot de passe dans la case
"Mot de passe protégeant le document"
