シートの切り替えができないようにするには「シート見出しを非表示」が有効

強引に切り替えできなくするよりタブの非表示が楽

ActiveWindow.DisplayWorkbookTabs = False


ネタ元