エクセルVBA Gotoで移動！シート非表示ソフトのコード解説

エクセルVBAのIf～Gotoで処理分岐します。シート非表示VBAソフトのコードの紹介です。

コントロールのイベント処理は、間違い防止のため、条件付き実行にしています。

• 条件分岐のコードはGotoでジャンプで移動処理していきます。
• ソフトの起動にはイベントで鍵を付けます。
• 今あるエクセルファイルにも導入できるようなツール的ソフトにします。
• 多種多様なシート名にも使えるようにします。
• 「非表示解除できるタイプと出来ないタイプ」の２種類の非表示にも対応します。
• ユーザーフォームからの操作で、VBAコードの記述はフォームモジュールだけにします。
• コンパクトに納めるため、このソフト用のための、新たなシート、標準モジュールを使いません。

Dim UVS, ANSa, ANSb, ANSc, ANSd, MsUV
Dim ws As Worksheet
Dim FL As Boolean, key1 As Boolean
Dim WSN(1 To 500)
Dim i As Long, s As Long, Va As Long, Vb As Long
Dim TYPa As String, TYPb As String

Private Sub Frame1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

key1 = True

End Sub

Private Sub 強化保護_Click()

TYP = “”
If key1 = False Then
　　強化保護.Value = False
Exit Sub
Else
　　If 強化保護.Value = True Then
　　　　TYPa = xlSheetVeryHidden
　　　　TYPb = xlSheetVisible
　　Else
　　　　TYPa = xlSheetHidden
　　　　TYPb = xlSheetVisible
　　End If
End If
End Sub

Private Sub 非表示シート名_Click()
MsUV = “”
UVS = “”
For Each ws In Worksheets
If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
MsUV = ws.Name
UVS = UVS & MsUV & “　を非表示中です。” & vbCrLf
End If
Next ws
MsgBox UVS, vbOKOnly + vbInformation, “非表示チェック”
End Sub

Private Sub 表示操作_Click()

If key1 = False Then
　　Exit Sub

　　If 強化保護.Value = True Then
　　　　TYPa = xlSheetVeryHidden
　　　　TYPb = xlSheetVisible
　　Else
　　　　TYPa = xlSheetHidden
　　　　TYPb = xlSheetVisible
　　End If

　　If シート表示.表示操作 = True Then

　　　　GoTo step1
stepA:

　　　　Va = 0
　　　　Vb = 0

　　　　　　For Each ws In Worksheets
　　　　　　　　If ws.Visible = True Then
　　　　　　　　　　Va = Va + 1
　　　　　　　　ElseIf ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
　　　　　　　　　　Vb = Vb + 1
　　　　　　　　End If
　　　　　　Next ws

　　　　　　If Worksheets.Count – Vb = 1 Then
　　　　　　　　MsgBox “非表示にできる最大シート数に達しました。” & vbCrLf & “これ以上は不可能です。”, vbOKOnly + vbExclamation, “非表示警告”
　　　　　　　　シート表示.表示操作.Caption = “非表示ＯＮ”
　　　　　　　　シート表示.表示操作.BackColor = &H80000010
　　　　　　　　key1 = False
　　　　　　　　Exit Sub
　　　　　　End If

　　　　FL = False
　　　　　　For i = 1 To Worksheets.Count
　　　　　　　　WSN(i) = Worksheets(i).Name
　　　　　　　　If WSN(i) = UVS Then
　　　　　　　　　　FL = True
　　　　　　　　　　GoTo stepB
　　　　　　　　End If
　　　　　　Next i

　　　　If FL = False Then
　　　　　　ANSc = MsgBox(UVS & “シートは存在しません!!” & vbCrLf & ” 続けますか？”, vbYesNo, “確認”)
　　　　　　　　If ANSc = vbYes Then
　　　　　　　　　　GoTo step1
　　　　　　　　Else
　　　　　　　　　　For Each ws In Worksheets
　　　　　　　　　　　　If ws.Visible = False Then
　　　　　　　　　　　　　　MsUV = ws.Name
　　　　　　　　　　　　End If
　　　　　　　　　　Next ws
　　　　　　　　　　If MsUV = “” Then
　　　　　　　　　　　　シート表示.表示操作 = False
　　　　　　　　　　　　シート表示.表示操作.Caption = “非表示ＯＦＦ”
　　　　　　　　　　　　シート表示.表示操作.BackColor = &H8000000F
　　　　　　　　　　　　key1 = False
　　　　　　　　　　　　Exit Sub
　　　　　　　　　　Else
　　　　　　　　　　　　シート表示.表示操作.Caption = “非表示ＯＮ”
　　　　　　　　　　　　シート表示.表示操作.BackColor = &H80000010
　　　　　　　　　　　　key1 = False
　　　　　　　　　　　　Exit Sub
　　　　　　　　　　End If
　　　　　　　　End If
　　　　End If

Private Sub Worksheet_Activate()

　　If シート表示.Visible Then Exit Sub
　　　　シート表示.Show vbModeless

Dim ws As Worksheet
Dim MsUV As Variant

　　For Each ws In Worksheets
　　　　If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
　　　　　　MsUV = ws.Name
　　　　End If
　　Next ws

　　If MsUV = “” Then
　　　　シート表示.表示操作 = False
　　　　シート表示.表示操作.Caption = “非表示ＯＦＦ”
　　　　シート表示.表示操作.BackColor = &H8000000F
　　　　Exit Sub
　　Else
　　　　シート表示.表示操作.Caption = “非表示ＯＮ”
　　　　シート表示.表示操作.BackColor = &H80000010
　　　　Exit Sub
　　End If

End Sub

Private Sub Workbook_Open()

　　If シート表示.Visible Then Exit Sub
　　　　シート表示.Show vbModeless

Dim ws As Worksheet
Dim MsUV As Variant

　　For Each ws In Worksheets
　　　　If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
　　　　　　MsUV = ws.Name
　　　　End If
　　Next ws

　　If MsUV = “” Then
　　　　シート表示.表示操作 = False
　　　　シート表示.表示操作.Caption = “非表示ＯＦＦ”
　　　　シート表示.表示操作.BackColor = &H8000000F
　　　　Exit Sub
　　Else
　　　　シート表示.表示操作.Caption = “非表示ＯＮ”
　　　　シート表示.表示操作.BackColor = &H80000010
　　　　Exit Sub
　　End If

End Sub