Het is een goede gewoonte Select te vermijden, echter heb wat hulp nodig.
Waarom is eigenlijk Select taboe? In de VBA doet het precies wat ik wil.
Toelichting op de titel:
Het bestand wordt gebruikt door 2 personen (1 met toetsenbord + numeriek - breder en groter beeldscherm; de ander zonder numeriek - kleiner beeldscherm).
Als ik het bestand terugkrijg is de Zoom op diverse bladen aangepast (te klein voor mij) en moet ik alles weer aanpassen. Idem omgekeerd, zij moet bij diverse bladen de zoom weer verkleinen. Nogal stompzinnig.
Uiteindelijk wil ik in een Private Sub Workbook_Open() laten constateren wie opent en dan de zooms aanpassen.
(If Username = "ADMIN" Then) heb ik al gevonden incl. de Function Environ("USERNAME"). Moet lukken.
Beide Subs doen het Maar: hoe krijg ik die SELECT eruit?
Groeten,
Trainers
Waarom is eigenlijk Select taboe? In de VBA doet het precies wat ik wil.
Toelichting op de titel:
Het bestand wordt gebruikt door 2 personen (1 met toetsenbord + numeriek - breder en groter beeldscherm; de ander zonder numeriek - kleiner beeldscherm).
Als ik het bestand terugkrijg is de Zoom op diverse bladen aangepast (te klein voor mij) en moet ik alles weer aanpassen. Idem omgekeerd, zij moet bij diverse bladen de zoom weer verkleinen. Nogal stompzinnig.
Uiteindelijk wil ik in een Private Sub Workbook_Open() laten constateren wie opent en dan de zooms aanpassen.
(If Username = "ADMIN" Then) heb ik al gevonden incl. de Function Environ("USERNAME"). Moet lukken.
Code:
Sub Macro1()
Sheets("Blad1").Select
ActiveWindow.Zoom = 100
End Sub
Sub Macro2()
Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4", "Blad5", "Blad6")).Select
Sheets("Blad1").Activate
ActiveWindow.Zoom = 90
Application.Goto Reference:="start", Scroll:=True
End Sub
Groeten,
Trainers