Test
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim range_1 As Range
On Error GoTo ErrorHandler
'Set the worksheet
Set ws = ActiveSheet
'Set the cells to be locked
Set range_1 = ws.Range("J18:J37")
Application.ScreenUpdating = False
'Unprotect worksheet if necessary
ws.Unprotect
'Unlock all cells
ws.Cells.Locked = False
'Lock specified cells
range_1.Locked = True
'Protect worksheet
ws.Protect DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False
Application.ScreenUpdating = True
'Show MERDEC Launcher
frmMERDECLauncher.Show
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox "Error opening MERDEC Invoicing: " & _
Err.Description, vbCritical, "MERDEC System"
End Sub