Can anyone please try to look at my code. I can't figure out the error

At first run, everything is perfect. But on the second run, it will show the run-time error. I need to close & save the 2nd workbook before the macro will work again.

Please help! Thanks in advance. 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If MsgBox("Are you sure you want to sign-off staff?", vbYesNo) = vbYes Then
Sheets("Sign On & Briefing").Unprotect Password:="l1234"
Sheets("Sign On & Briefing Report").Unprotect Password:="1234"
Application.ScreenUpdating = False
With Sheets("Sign On & Briefing")
    If Target.Row > 6 Then 
    Select Case Target.Column
    Case 6
        Me.Cells(Target.Row, 6) = Now()
        ActiveCell.EntireRow.Copy
        Sheets("Sign On & Briefing Report").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        ActiveCell.EntireRow.Delete
        Range("B4").Select
    End Select
    End If
    
    'Copy the data.
    Sheets("Sign On & Briefing Report").Select
    ActiveCell.EntireRow.Select
    ActiveCell.EntireRow.Copy
    
    'Copy to second workbook.
    'Workbook must be open
    Application.Workbooks.Open ("C:\Documents and Settings\Sign On Consolidated Report for Admin.xlsm")

    Workbooks("Sign On Consolidated Report for Admin.xlsm").Sheets("Sign On Report").Unprotect Password:="1234"
    Workbooks("Sign On Consolidated Report for Admin.xlsm").Activate
    Sheets("Sign On Report").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues


    'Close the network workbook, saving changes.
    Workbooks("Sign On Consolidated Report for Admin.xlsm").Sheets("Sign On Report").Protect Password:="1234"
    Workbooks("Sign On Consolidated Report for Admin.xlsm").Save
    Workbooks("Sign On Consolidated Report for Admin.xlsm").Close True
    

    'Returns to previous worksheet and gives confirmation dialogue box
    Workbooks("e-Sign On & Briefing_110213.xlsm").Activate 'First workbook
    Sheets("Sign On & Briefing").Activate
    MsgBox "Administration report has been updated.", vbExclamation + vbInformation, "Success!"

End With
End If
Application.ScreenUpdating = True
ActiveWorkbook.Save
Sheets("Sign On & Briefing").Protect Password:="1234", AllowFormattingRows:=True
Sheets("Sign On & Briefing Report").Protect Password:="1234"
End Sub