即効テクニック |
サンプルマクロは、シート(Sheet1)を非表示にすることでシート(Sheet1)の内容を見せないようにします。通常、不可視にしてコードに保護をかけただけでは、イミディエイトウインドなどに可視にするコードを記述することでシート内容が見られてしまいます。そこで、そういった場合でも、見られたくないシートがアクティヴになった際に非表示にするコードを走らせることで対応します。見られたくないシートのコードウインドに記述してください。
Private Sub Worksheet_Activate()
Sheets("Sheet1").Visible = xlVeryHidden
End Sub