can any one help with the below code to find last row to then insert the username using Environ("Username")

[Craig_Moore]

Hi

I need help with the below code i need the code to find the first empty row and in row A to insert who has opened the sheet and in row B at what time and date that person opened the sheet.

any help is much appreciated

Thanks

Craig

Private Sub workbook_open()
Application.ScreenUpdating = False

worksheets("vba download").Unprotect Password:="password"
worksheets("vba download").Activate

If Range("a34").Value = "" Then
    Range("a34").Value = Environ("Username")
    
End If

If Range("b34").Value = "" Then
    Range("b34").Value = Time & Date

worksheets("vba download").Unprotect Password:="password"

Application.ScreenUpdating = True

End If

End Sub

 

[AlphaFrog]

Private Sub workbook_open()
    Application.ScreenUpdating = False
    With Worksheets("vba download")
        .Unprotect Password:="password"
        With .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 'Next empty row
            .Value = Environ("Username")
            .Offset(0, 1).Value = Now
        End With
        .Protect Password:="password"
        '.Activate
    End With
    Application.ScreenUpdating = True
End Sub

 

[Craig_Moore]

Private Sub workbook_open()
    Application.ScreenUpdating = False
    With Worksheets("vba download")
        .Unprotect Password:="password"
        With .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 'Next empty row
            .Value = Environ("Username")
            .Offset(0, 1).Value = Now
        End With
        .Protect Password:="password"
        '.Activate
    End With
    Application.ScreenUpdating = True
End Sub

Thanks for the help its appreciated worked great