[[20110525153257]]　『シート削除不可、名前変更不可にする』（tote）　ページの最後に飛ぶ

『シート削除不可、名前変更不可にする』（tote）

 特定のシート削除不可、シート名変更不可にする事は可能でしょうか？
 マクロ使用してもいいのですが
 このブックは読み書き可能シート、書込不可、非表示とか色々な
 シートがありますが、あるシートのみを削除も、名前変更も不可能に
 したいのですが、可能でしょうか？
Excel2003

 ブックの保護をかければいいけど、全シートに適用される。
 なので、ちょっとだけＶＢＡで

 ThisWorkbookモジュールに。

 Private Sub Workbook_Open()
    If ActiveSheet Is Sheets("特定のシート") Then ブック保護
 End Sub

 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh Is Sheets("特定のシート") Then
        ブック保護
    Else
        ブック保護解除
    End If
 End Sub

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ブック保護解除
 End Sub

 Private Sub ブック保護()
    ThisWorkbook.Protect Structure:=True, Windows:=False
 End Sub

 Private Sub ブック保護解除()
    ThisWorkbook.Unprotect
 End Sub

 ぶらっと立ち寄り

ぶらっと立ち寄りさんたいへんありがとうございました。
（tote）

コメント返信：