サンプルマクロは、シート(Sheet1)を非表示にすることでシート(Sheet1)の
内容を見せないようにします。通常、不可視にしてコードに保護をかけただけ
では、イミディエイトウインドなどに可視にするコードを記述することでシート
内容が見られてしまいます。

 そこで、そういった場合でも、見られたくないシートがアクティブになった際に
非表示にするコードを走らせることで対応します。
見られたくないシートのコードウインドに記述してください。

Private Sub Worksheet_Activate()

    Sheets("Sheet1").Visible = xlVeryHidden

End Sub