按ALT+F11——双击THISWORKBOOK,粘贴如下代码，保存，重新打开即可。确保宏安全设置为低。2007以上版本确保启用所有宏。
Private Sub Workbook_Open()Sheets(1).SelectSheets(1).[a1].SelectEnd Sub
