From 15052219619a55099c77ce4d92847ef0932cb745 Mon Sep 17 00:00:00 2001
From: PhilRunninger <prunninger@hc-companies.com>
Date: Mon, 1 Apr 2024 12:24:14 -0400
Subject: [PATCH] Limit who can use the Shipments sheet.

---
 Master Template.xlsm_EXPORTS/ThisWorkbook.cls | 10 ++++++++++
 Master Template.xlsm_EXPORTS/shConfig.cls     |  2 ++
 2 files changed, 12 insertions(+)

diff --git a/Master Template.xlsm_EXPORTS/ThisWorkbook.cls b/Master Template.xlsm_EXPORTS/ThisWorkbook.cls
index 71a3598..174f825 100644
--- a/Master Template.xlsm_EXPORTS/ThisWorkbook.cls	
+++ b/Master Template.xlsm_EXPORTS/ThisWorkbook.cls	
@@ -7,3 +7,13 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = True
+Private Sub Workbook_Open()
+    Dim adjuster As Variant
+    For Each adjuster In shConfig.ListObjects("ShipDateAdjusters").DataBodyRange
+        If adjuster = Environ("USERNAME") Then
+            shShipments.Visible = xlSheetVisible
+            Exit Sub
+        End If
+    Next
+    shShipments.Visible = xlSheetVeryHidden
+End Sub
diff --git a/Master Template.xlsm_EXPORTS/shConfig.cls b/Master Template.xlsm_EXPORTS/shConfig.cls
index 23b4d65..9927a8c 100644
--- a/Master Template.xlsm_EXPORTS/shConfig.cls	
+++ b/Master Template.xlsm_EXPORTS/shConfig.cls	
@@ -14,6 +14,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
     
     If shConfig.Range("debug_mode").value Then
         shConfig.Visible = xlSheetVisible
+        shShipments.Visible = xlSheetVisible
         'shData.Visible = xlSheetVisible
         shMonthView.Visible = xlSheetVisible
         shMonthUpdate.Visible = xlSheetVisible
@@ -21,6 +22,7 @@ Private Sub Worksheet_Change(ByVal Target As Range)
         shWalk.Visible = xlSheetVisible
     Else
         shConfig.Visible = xlSheetVeryHidden
+        shShipments.Visible = xlSheetVeryHidden
         'shData.Visible = xlSheetHidden
         shMonthView.Visible = xlSheetHidden
         shMonthUpdate.Visible = xlSheetVeryHidden