prevent deleting ad text

[jethro4640]

Good Afternoon,

I was tasked with making a "logbook" document that would act much like pen and paper.
I've gotten a macro to add a new line to the top of the worksheet (keeping the most recent entry on top so the user doesn't have to scroll down hundreds of rows to add a new entry). That same macro then adds a date/time stamp to the new "A1" cell and auto selects A2 cell for the user to type.

Now they want it to be protected from alterations right after the row is finished. I've added the protection selection for rows 2 and beyond in the macro but just realized that when the macro does it, it doesn't put in a password.

Then i tried to have locked cells unselect-able, but unlocked cells selectable and format-able. Then i would have had the macro add a new row (1), select the now-row (2) and then go into format-cells and put a check in the "lock" box. my hope was that it would have then added that worksheet's already password protected rights to that new row. what i found out is that if there is ANY cell protected on that worksheet the "protection tab" in "format cell" is removed for other cells. Any ideas?

below is the code that did what i'm looking for the most - added a row, locked the previous row - but didn't have the required password protection.

Sub Macro15()'
' Macro15 Macro
'


'
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("A1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveSheet.Unprotect
    Range("A2:H38").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowInsertingRows:=True, AllowSorting:= _
        True, AllowFiltering:=True
    Range("b1").Select
End Sub