シートを非表示にし手動再表示を出来なくする
'シートを非表示にするには、Visibleのプロパティに「xlSheetHidden」としますが、この方法では通常操作の[ホーム]→[書式]→[非表示/再表示]→[シートの再表示]から再表示できてしまいます。このVisibleのプロパティに「xlSheetVeryHidden」とすると通常操作での再表示はできなくなります。
Sub Sample36()
Worksheets("Sheet1").Visible = xlSheetVeryHidden
End Sub