Disable Macro to open as Read Only

[kuranzi]

guys in newbie about macro, here's the problem

i have 2 workbook named it A dan B
i have add macro (module) on workbook A to open workbook B
but when i click the macro workbook B opened as READ ONLY, i have to close both workbook and reopen workbook B if i wanna edit and save it.

this is the module on workbook A

Sub Openworkbook_Click()
'Updateby Extendoffice 20161008
    Dim xWb As Workbook
    Dim wbName As String
    On Error Resume Next
    Set xWb = Workbooks.Open("D:\HUMANIKA SARANA MANDIRI\Absensi.xlsx")
    wbName = xWb.Name
    If Err.Number <> 0 Then
        MsgBox "Error!", vbInformation, "Created By : Agung Ramadhana"
        Err.Clear
    Else
        MsgBox "Data Absensi terbuka!", vbInformation, "Created By: Agung Ramadhana"
    End If
End Sub

can u guys help me how to remove Read Only if i open it from macro on workbook A
Thanks before guys