modif macro

kiki29

XLDnaute Barbatruc

• 18 Juin 2011

• #2

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")

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 18 Juin 2011

• #3

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

 

Pièces jointes

• Classeur.xls

  30 KB · Affichages: 36
• Classeur.xls

  30 KB · Affichages: 41
• Classeur.xls

  30 KB · Affichages: 38

Dernière édition: 21 Juin 2011

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 18 Juin 2011

• #4

re,voir du coté de Time , Format

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 21 Juin 2011

• #5

Re : modif macro sur classeur partagé

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

 

Vote positif 0 Vote négatif

U

unrender

Guest

• 21 Juin 2011

• #6

Re : modif macro sur classeur partagé

MASSJIPE à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 21 Juin 2011

• #7

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 22 Juin 2011

• #8

Re : modif macro sur classeur partagé

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Juin 2011

• #9

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é...

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 22 Juin 2011

• #10

Re : modif macro

Bonsoir
Non ca fonctionne sur classeur partagé
merci

 

Vote positif 0 Vote négatif