Excel2010ワークシートの挿入タブを消したい

質問

Excel2010のシート見出しの末尾に、ワークシートの挿入のタブがありますが、
よく押し間違えて新しいシートを作ってしまい、削除の手間がかかることに
なってしまいます。

このタブのみ削除または表示しないようにする方法はありますか？
シート見出し全体を消すと作業に支障が出ますので、それ以外の方法が
ありましたら御教授ください。

回答No.2

nag0720 · ベストアンサー

＞新規シートを削除した後に直前まで作業していたシートに戻るマクロがありましたら、教えていただけますか。

直前のシートを記憶しておけば戻ることができます。
ちょっと長くなりますが、次のコードを記述してください。

Dim NewSheetFlag As Boolean
Dim PreSheet As String

Private Sub Workbook_Open()
NewSheetFlag = False
PreSheet = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not NewSheetFlag Then
PreSheet = ActiveSheet.Name
End If
End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
NewSheetFlag = True
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
If PreSheet <> "" Then
Worksheets(PreSheet).Activate
End If
NewSheetFlag = False
End Sub

挿入タブ押下以外でもシートが削除されるのは、どこで挿入したかを認識することはできないのでしかたありません。
コードで対応するとしたら、マクロに「シートの挿入」を作成して、そこからシートを作成した場合は自動削除しないという方法をとるしかないでしょう。

お礼

ご回答ありがとうございました。
非常に助かりました。

これでもう、シートを探してタブの列をうろうろして挿入タブをクリックしてしまってシートを消して…という、一連のイライラ作業から解放されます。

本当にありがとうございました。

回答No.1

nag0720

タブを消すことはできませんが、
新しいシートを作っても自動で削除するようにしておけば、見かけ上、挿入タブの機能を無効にできます。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

補足

週末を挟みお礼が遅くなってしまいました。
ご回答ありがとうございました。

教えていただいた方法で自動削除ができました。
ですが二つ、作業上少々都合のよくない動きとなってしまいました。

１）ワークシートの挿入タブの直前のシート（シートタブの末尾）にアクティブなシートが移動してしまう

２）ワークシートの挿入タブ押下以外の方法でシートを挿入した場合も自動削除が実行される

新規にシートを挿入すること自体ほとんど無いので（２）は問題無いのですが、直前に作業していたシートへ戻れないとなるとまたシートを探す必要が出てきてしまいます。

新規シートを削除した後に直前まで作業していたシートに戻るマクロがありましたら、教えていただけますか。
よろしくお願いいたします。