Zoomen tijdens openen per gebruiker

[Norman Scheuter]

Hallo,

Mijn collega wil graag een Excelsheet meer ingezoomd openen dan de rest.
Is het mogelijk om dit per gebruiker in een vba in te stellen?

Gr. Norman

 

[edmoor]

Dit in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    If Environ("Username") = "Collega" Then ActiveWindow.Zoom = 200
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWindow.Zoom = 100
End Sub

 

[Norman Scheuter]

Hoi Edmoor,

Dat is snel
Ben al de hele ochtend aan het zoeken op het internet...kon niks vinden hierover.

We gaan het proberen.

Dank je wel.

Gr. Norman

 

[edmoor]

Tip:
Eerst Helpmij, dan pas de rest van het internet

 

[snb]

@Edm

lijkt me overbodig:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWindow.Zoom = 100
End Sub

 

[edmoor]

Mij niet.
Die is om het weer terug te zetten voor andere gebruikers als de gebruiker met een grotere zoom het document heeft opgeslagen.

Edit:
Ok, moet het wel nog een keer worden opgeslagen uiteraard

 

[Norman Scheuter]

Hoi Edmoor,

Super het werkt
Dank je wel.

Gr. Norman

 

[Norman Scheuter]

Is er ook een manier om een gebruiker alleen leesrechten te geven dmv een vba?

 

[snb]

Dan lijkt me dit voldoende

Private Sub Workbook_Open()
  ActiveWindow.Zoom = 100 - 100*(Environ("Username") = "Collega")
End Sub