Titles

Attribute VB_Name = "Titles"
Global Const PROJECT = "Empirix Trace"
Global Const VER = "2.5.2"

Private Sub updateVer()
    Worksheets("Title").Select
    Worksheets("Title").Unprotect Password:="4626"
    
    Worksheets("Title").Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = PROJECT
    
    Worksheets("Title").Shapes.Range(Array("Rectangle 2")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Version " & VER
    
    ActiveWorkbook.Windows(1).Caption = PROJECT & " v" & VER

    Worksheets("Title").Protect Password:="4626", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub protection()
'    Worksheets("Title").Unprotect Password:="4626"
'    Worksheets("Title").Protect Password:="4626", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub