hiko-blog

VBA業務改善

MENU

特定のシートを見せたくないんです。

 特定のシートを見せたくないんです

特定のシートを見せたくない時ってありませんか?

ついつい、再表示してみたくなります。

VBA上だと、エクセルシートから再表示できなくできるんです(見えなくするんです)

マジですか、是非とも知りたいです。

では、下記にコード記しますね♪

 

イメージ

f:id:hiko-blog:20200217233018p:plain

 ↓ マクロ実行後、

f:id:hiko-blog:20200217233051p:plain

右クリック上からも、再表示選択できなくなります。

非表示コード
Sub 特定のシート表示させない()
Dim sheetname
sheetname = "隠したいシート"
Worksheets(sheetname).Visible = xlSheetVeryHidden
End Sub
 
 表示コード
 Sub 特定のシート表示させる()
Dim sheetname
sheetname = "隠したいシート"
Worksheets(sheetname).Visible = xlSheetVisible
End Sub
 
おまけ

通常パターンのエクセル上表示非表示方法はこんな感じです。

ありがとうございます!

Sub シート表示させない()
Dim sheetname
sheetname = "隠したいシート"
Worksheets(sheetname).Visible = False
End Sub
 
Sub シート表示させる()
Dim sheetname
sheetname = "隠したいシート"
Worksheets(sheetname).Visible = True
End Sub