Excelワークブックで常に表示されるようにシートの位置をロックするにはどうすればよいですか？

ワークブックに複数のシートがある場合、最後のシートに移動すると、最初のシートはシートタブバーで非表示になります（下図参照）。ここで、特定のマスターシートの位置をロックして常に表示された状態にしたい場合、どのように対処すればよいでしょうか？

VBAでシートの位置をロックする

VBAでシートの位置をロックする

ここでは、この作業を行うための2つのVBAコードを紹介します。

ショートカットを使用して特定のシートにジャンプする

1. Alt + F11キーを押して、Microsoft Visual Basic for Windowsを有効にします。

2. 「挿入」>「モジュール」をクリックし、以下のコードをコピーしてスクリプトに貼り付けます。

VBA: マスターシートにジャンプする

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

注釈: Sheets("Master").Activate のコード部分では、必要に応じて Master を任意のシート名に変更できます。

3. その後、このコードを保存し、ワークブックに戻って、「開発」タブをクリックします。 開発 > マクロ.

4. マクロ ダイアログで、先ほど挿入したコード名を選択し、「オプション」をクリックします。 オプションこのコードを実行するためのショートカットを作成します。

5. 「OK」をクリックしてマクロダイアログを閉じます。

これで、作成したショートカットを押すと、現在使用中のシートに関係なく、マスターシートがアクティブになります。

特定のシートを常に手前に表示させる

1. Alt + F11キーを押して、Microsoft Visual Basic for Windowsを有効にします。

2. Project-VBAProjectペインから ThisWorkbookをダブルクリックし、以下のコードをコピーしてスクリプトに貼り付けます。

VBA: シートを常に手前に表示させる

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

3. コードを保存してVBAウィンドウを閉じます。これで、どのシートを選択しても、マスターシートは常にタブバーの一番前に表示されます。

注釈: 上記のコードでは、“master”は表示させたいシート名です。必要に応じて変更してください。