個人用マクロブックのPERSONAL.XLSBのThisWorkbookモジュールに書くだけで勝手にA1にカーソルが配置されるVBA

ThisWorkbook.cls.vba

Rem 個人用マクロブックのPERSONAL.XLSBのThisWorkbookモジュールに書くだけで、
Rem 勝手にA1にカーソルが配置されるVBA
Option Explicit

Private WithEvents app As Excel.Application

Private Sub Workbook_Open()
    Set app = Excel.Application
End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    If Wb.IsAddin Then Exit Sub
    If Wb Is Me Then Exit Sub
    If Wb.Windows(1).Visible = False Then Exit Sub
    Dim defWs As Worksheet
    Set defWs = Wb.ActiveSheet
    Dim ws As Worksheet
    For Each ws In Wb.Worksheets
        If ws.Visible = xlSheetVisible Then
            ws.Parent.Activate
            ws.Select
            ws.Range("A1").Select
            Wb.Windows(1).ScrollRow = 1
            Wb.Windows(1).ScrollColumn = 1
            Wb.Windows(1).Zoom = 100
        End If
    Next
    defWs.Activate
End Sub

マナーにうるさい人のパソコンにコッソリ仕込むのがオススメです。

PERSONAL.XLSBの作り方は↓記事参照
https://excel-chunchun.com/entry/20211230-excel-personal-addin

分かってると思うけど、いつものネタマクロだからね‼️一応動くけど真っ当な対策するなら自分がA1マクロ動かして保存する方が良いよ‼️