86225ea7e5
Lots of cleanup here too, removing large swaths of code that are no longer needed. Many improvements the Excel workbook, which is kept in Teams, not git. These changes may or may not have had accompanying VBA changes.
32 lines
980 B
OpenEdge ABL
32 lines
980 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "shConfig"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = True
|
|
Option Explicit
|
|
|
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
If Intersect(Target, shConfig.Range("debug_mode")) Is Nothing Then Exit Sub
|
|
|
|
If shConfig.Range("debug_mode").Value Then
|
|
shConfig.Visible = xlSheetVisible
|
|
shData.Visible = xlSheetVisible
|
|
shMonthView.Visible = xlSheetVisible
|
|
shMonthUpdate.Visible = xlSheetVisible
|
|
shSupportingData.Visible = xlSheetVisible
|
|
shWalk.Visible = xlSheetVisible
|
|
Else
|
|
shConfig.Visible = xlSheetVeryHidden
|
|
shData.Visible = xlSheetHidden
|
|
shMonthView.Visible = xlSheetHidden
|
|
shMonthUpdate.Visible = xlSheetVeryHidden
|
|
shSupportingData.Visible = xlSheetVeryHidden
|
|
shWalk.Visible = xlSheetVeryHidden
|
|
End If
|
|
End Sub
|
|
|