modif macro

[MASSJIPE]

Bonjour
J'ai trouvé un fichier pour enregistrer username à l'ouverture
Mais j'ai un souci avec l'heure
Private Sub Workbook_Open()
'
Sheets("Trace").Unprotect ("mdp")
a = Sheets("Trace").Cells.Find("*", [A1], , , 1, 2).Row + 1
Sheets("Trace").Range("A" & a).Value = Application.UserName
Sheets("Trace").Range("B" & a).Value = Date
Sheets("Trace").Range("C" & a).Value = heure
Sheets("Trace").Protect ("mdp")

End Sub
2) Mais comment faire pour appliquer sans enregistré le fichier
ou enregistré en automatique à l'insu de la personne qui ouvre le fichier
merci

 

[kiki29]

Salut,un rappel Application.Username donne le nom entré lors de l'installation de la suite Office
par exemple pour Excel : Menu ? / A propos de Microsoft Excel "License d'utilisation accordée à :"

Pour avoir le nom de login Windows utiliser Environ("USERNAME")

 

[MASSJIPE]

Re : modif macro sur classeur partagé

Bonjour
Comment adapter ce code sur un classeur partagé, il fonctionne quant il n'est pas partagé
Private Sub Workbook_Open()

Sheets("Trace").Unprotect ("mdp")
a = Sheets("Trace").Cells.Find("*", [A1], , , 1, 2).Row + 1
Sheets("Trace").Range("A" & a).Value = Application.UserName
Sheets("Trace").Range("B" & a).Value = Date
Sheets("Trace").Range("C" & a).Value = Time
Sheets("Trace").Protect ("mdp")
ActiveWorkbook.Save
End Sub
Cordialement

 

[kiki29]

re,voir du coté de Time , Format

 

[MASSJIPE]

Re : modif macro sur classeur partagé

Bonjour
Si quelqu'un à une idée
D'avance merci

 

[unrender]

Re : modif macro sur classeur partagé

Bonjour
Comment adapter ce code sur un classeur partagé, il fonctionne quant il n'est pas partagé
Private Sub Workbook_Open()

Sheets("Trace").Unprotect ("mdp")
a = Sheets("Trace").Cells.Find("*", [A1], , , 1, 2).Row + 1
Sheets("Trace").Range("A" & a).Value = Application.UserName
Sheets("Trace").Range("B" & a).Value = Date
Sheets("Trace").Range("C" & a).Value = Time
Sheets("Trace").Protect ("mdp")
ActiveWorkbook.Save
End Sub
Cordialement

Si je ne dis pas de bêtises, tu ne peux pas toucher à la protection sur un classeur partagé...

 

[MASSJIPE]

Re : modif macro sur classeur partagé

Bonjour
Oui mais on peut retirer la protection mais le soucis sur un classeur partagé la macro ne fonctionne pas a moins de retirer le partage et de repartager par vba mais je sais pas faire

 

[MASSJIPE]

Re : modif macro sur classeur partagé

Bonjour
Quelqu'un peut me dire si il y a une solution
Merci

 

[Pierrot93]

Re : modif macro

Bonjour,

essaye peut ceci, en protégeant la feuille via le code et en utilisant l'argument "userinterfaceonly", cela permet au code de s'exécuter sans avoir à protéger / déprotéger une feuille... A voir si cela fonctionne sur classeur partagé...

Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Protect "toto", userinterfaceonly:=True
End Sub

bon après midi
@+

 

[MASSJIPE]

Re : modif macro

Bonsoir
Non ca fonctionne sur classeur partagé
merci