Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Re
Par exemple :
Worksheets("G").range("L5").Value = Environ("username") & " " &
format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera
le précédent ?
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 130402B6-2146-4A93-A7D6-ADD12AA6F759@microsoft.com...
Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la
date,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot
de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
JB
Bonjour,
Sheets("feuil1").[L5] = Environ("username") & " " & Date
JB
On 17 avr, 17:38, Sunburn wrote:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la d ate, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title: ="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Bonjour,
Sheets("feuil1").[L5] = Environ("username") & " " & Date
JB
On 17 avr, 17:38, Sunburn <Sunb...@discussions.microsoft.com> wrote:
Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la d ate,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title: ="Mot de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Sheets("feuil1").[L5] = Environ("username") & " " & Date
JB
On 17 avr, 17:38, Sunburn wrote:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la d ate, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title: ="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Sunburn
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Re,
merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la
celulle soit vide. Comment faire?
Worksheets("G").range("L5").Value = Environ(" ") ??
merci.
YANN
Re
Par exemple :
Worksheets("G").range("L5").Value = Environ("username") & " " &
format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera
le précédent ?
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 130402B6-2146-4A93-A7D6-ADD12AA6F759@microsoft.com...
Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la
date,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot
de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: C6255739-500E-46C0-B298-5E24B0532CC2@microsoft.com...
Re,
merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la
celulle soit vide. Comment faire?
Worksheets("G").range("L5").Value = Environ(" ") ??
merci.
YANN
Re
Par exemple :
Worksheets("G").range("L5").Value = Environ("username") & " " &
format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur
écrasera
le précédent ?
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 130402B6-2146-4A93-A7D6-ADD12AA6F759@microsoft.com...
Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la
date,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe",
Title:="Mot
de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: C6255739-500E-46C0-B298-5E24B0532CC2@microsoft.com...
Re,
merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la
celulle soit vide. Comment faire?
Worksheets("G").range("L5").Value = Environ(" ") ??
merci.
YANN
Re
Par exemple :
Worksheets("G").range("L5").Value = Environ("username") & " " &
format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur
écrasera
le précédent ?
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 130402B6-2146-4A93-A7D6-ADD12AA6F759@microsoft.com...
Bonjour,
j'ai une macro pour vérouiller le classeur.
Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon
onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la
date,
dans la meme cellule. Comment faire?
Merci. Yann
-----
Sub PROTEGER()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe",
Title:="Mot
de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Re, merci, ça marche impecable. Mais lorsque je dévérouille, je veux que la celulle soit vide. Comment faire? Worksheets("G").range("L5").Value = Environ(" ") ?? merci. YANN
Re Par exemple : Worksheets("G").range("L5").Value = Environ("username") & " " & format(date,"DD/MM/YY")
Par contre tu noteras qu'à chaque fois le nom du nouvel utilisateur écrasera le précédent ?
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, j'ai une macro pour vérouiller le classeur. Je voudrais, que lorque cette macro est lancée, Excel conserve sur mon onglet "G", cellule "L5" le nom de l'utilisateur réseau, ainsi que la date, dans la meme cellule. Comment faire? Merci. Yann ----- Sub PROTEGER() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function