Setting Zoom according to User on a network

[Corey]

Is it possible to set a Zoom level when opening a workbook, but the user on
a network?

How can i code it if able?

 

[Gary Keramidas]

this may work:

Private Sub Worksheet_Activate()
If UCase(Environ("UserName")) = "COREY" Then ' put the login name here
ActiveWindow.Zoom = 85
Else

ActiveWindow.Zoom = 100
End If

End Sub

 

[Corey]

Thanks for the reply Gary.

I placed that code in a worksheet with the user name as placed in the
excel - Tools - Options - General Tab - User "xxx xxxx",
but it seems to not register the name as the user.

Is that how you can diplay the user name ?

Corey
--
Regards

Corey

this may work:

Private Sub Worksheet_Activate()
If UCase(Environ("UserName")) = "COREY" Then ' put the login name here
ActiveWindow.Zoom = 85
Else

ActiveWindow.Zoom = 100
End If

End Sub

 

[Gary Keramidas]

Environ("UserName") is the login name the person used to login to the network,
not the excel username. try that and see what happens

--


Gary

Thanks for the reply Gary.

I placed that code in a worksheet with the user name as placed in the excel -
Tools - Options - General Tab - User "xxx xxxx",
but it seems to not register the name as the user.

Is that how you can diplay the user name ?

Corey