Forcing Window Zoom to Selection?

[USNA91]

I am working on a workbook that, in part, requires multiple users to enter their data into "Form" sheets. That data is then collected and used elsewhere.

I'd like these users to see this workbook as much as an app (rather than a spreadsheet) as possible.

To that end, is there a method of having an Excel window automatically remain zoomed to Columns A through M or Rows 1 through 50 no matter what the size of the actual window is?

This is a "nice to have" in my list of desired features. Maybe I'm overthinking it (OCD again), but if it CAN be done I'm all for it.

Thanks in advance!

 

[mikerickson]

This can be done with VBA
' in ThisWorkbook code module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh
        .ScrollArea = "$A$1:$m$50"
        .Range(.ScrollArea).Select
        ActiveWindow.Zoom = True
    End With
End Sub

But, fixing zooming to 50 rows is awfuly small cells. You might want to let the use zoom to a comfortable size.

 

[USNA91]

Oh, I hear you on the cell size. In this case it wouldn't really be 50 rows, but even if it were, the display would be completely graphical (progress bars and such), so it would work.

Thanks!