Désactiver calcul automatique à l'ouverture en fonction d'un username (VBA)

[nounbxl76]

Bonsoir,

Je viens vers vous car le résultat de mes recherches ne correspond pas mes attentes... En effet, je cherche à ce que les calculs ne s'effectuent pas si un username donné ouvre le fichier...
exemple simple :
Feuil1
A1=3
B1=6
C1=A1 x B1 donc 18
Si le username "toto" ouvre le fichier, il n'obtient pas 18 en C1...

j'ai tenté en vain...
Private Sub Workbook_Open()
if username = "toto"
Worksheets(1).EnableCalculation = False
end if
End Sub

Merci par avance à ceux qui se pencheront sur mon cas.

Cordialement,

 

[nounbxl76]

Re : Désactiver calcul automatique à l'ouverture en fonction d'un username (VBA)

Au cas où...

 

[sixair]

Re : Désactiver calcul automatique à l'ouverture en fonction d'un username (VBA)

Bonjour nounbxl76 ,
C'est quoi ce ... Environ(UserName) = "toto" Then
as-tu essayé ... Application.UserName = "toto" Then

Cdlt

 

[nounbxl76]

Re : Désactiver calcul automatique à l'ouverture en fonction d'un username (VBA)

Bonjour,

Dans un autre projet, j'ai mis

User = Environ("username")
If User = "toto" Then

qui marche bien également.

Cordialement