Zoom

[Dupi]

Can somebody help me : to set zoom at 80% and the user
can't change the zoom (disabled zoom with macro).

Thanks
..

 

[Guest]

i'm not sure if you can diable the zoom without rebuilding a custom standard toolbar (No Zoom). Maybe someone else knows
But you can create a workaround:
Try putting this code in the Workbook _open and Workbook_SheetChange event of 'ThisWorkbook' in your project Window

ActiveWindow.Zoom = 8

that way any changes made anywhere in the worksheet will trigger the zoom if its changed, they'll just get the hint and leave it alone


----- Dupi wrote: ----

Can somebody help me : to set zoom at 80% and the user
can't change the zoom (disabled zoom with macro)

Thank

 

[Guest]

Thanks Cris,
this is what I try...

Sub test()
Private Sub DATA_SheetChange(ByVal DATA As Object, ByVal
DATA As Areas ("A1:Z1000")
ActiveWindow.Zoom = 80
End Sub

still not working..

-----Original Message-----
i'm not sure if you can diable the zoom without

rebuilding a custom standard toolbar (No Zoom). Maybe
someone else knows,

But you can create a workaround:
Try putting this code in the Workbook _open and

Workbook_SheetChange event of 'ThisWorkbook' in your
project Window.

ActiveWindow.Zoom = 80

that way any changes made anywhere in the worksheet will

trigger the zoom if its changed, they'll just get the hint
and leave it alone.

 

[Guest]

You didn't follw the directions correctly: You can't create your own event...not like that anyway. You have to use the events generated by Excel. Do you understand what an Event is

read them again, it should look like this

sub workbook_open(
activewindow.zoom = 8
end sub

sub Workbook_SheetChange ("dont mess with these"
activewindow.zoom = 8
end sub