Keep Data sheet visible. This coincides with version 13.0 in Teams.

This commit is contained in:
PhilRunninger 2023-05-01 13:49:13 -04:00
parent 4504cbaa2a
commit da28aa485f
6 changed files with 2 additions and 2 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -14,14 +14,14 @@ Private Sub Worksheet_Change(ByVal Target As Range)
If shConfig.Range("debug_mode").Value Then If shConfig.Range("debug_mode").Value Then
shConfig.Visible = xlSheetVisible shConfig.Visible = xlSheetVisible
shData.Visible = xlSheetVisible 'shData.Visible = xlSheetVisible
shMonthView.Visible = xlSheetVisible shMonthView.Visible = xlSheetVisible
shMonthUpdate.Visible = xlSheetVisible shMonthUpdate.Visible = xlSheetVisible
shSupportingData.Visible = xlSheetVisible shSupportingData.Visible = xlSheetVisible
shWalk.Visible = xlSheetVisible shWalk.Visible = xlSheetVisible
Else Else
shConfig.Visible = xlSheetVeryHidden shConfig.Visible = xlSheetVeryHidden
shData.Visible = xlSheetHidden 'shData.Visible = xlSheetHidden
shMonthView.Visible = xlSheetHidden shMonthView.Visible = xlSheetHidden
shMonthUpdate.Visible = xlSheetVeryHidden shMonthUpdate.Visible = xlSheetVeryHidden
shSupportingData.Visible = xlSheetVeryHidden shSupportingData.Visible = xlSheetVeryHidden