Vba if workbook is open then

Sub slet_ark()
    Call Mail_macro_slet_ark_er_startet
    Call Test_åben_blablabla
End sub

Sub Test_åben_blablabla()
    Dim objWork As Workbook
    On Error Resume Next
        Application.Workbooks("blablabla.xlsm").Activate
    If Err.Number <> 0 Then   
          Call Slet_Ark_blablabla
    Else
          Call Test_åben_blablabla1
    End If   
End Sub
   
Sub Slet_Ark_blablabla()   
    Workbooks.Open Filename:= _
        "https://blablabla.xlsm" _
        , UpdateLinks:=3
   
    Range("B5:C8").Select
    Selection.ClearContents
   
    ActiveWorkbook.Save
    ActiveWindow.Close

    Call Test_åben_blablabla1
End sub

Sub Test_åben_blablabla1()
    Dim objWork As Workbook
    On Error Resume Next
        Application.Workbooks("blablabla1.xlsm").Activate
    If Err.Number <> 0 Then   
          Call Slet_Ark_blablabla1
    Else
         
    End If   
End Sub

Sub Slet_Ark_blablabla1()

Workbooks.Open Filename:= _
        "https://blablabla1.xlsm" _
        , UpdateLinks:=3
   
    Range("B5:C8").Select
    Selection.ClearContents
   
    ActiveWorkbook.Save
    ActiveWindow.Close
End sub

Sub Åben_og_Test_om_Skrivebeskyttet()

  Workbooks.Open Filename:= _
        "https://blablabla.xlsm" _
        , UpdateLinks:=3 _
        , IgnoreReadOnlyRecommended:=True

If Application.Workbooks("blablabla.xlsm").ReadOnly = True Then
    MsgBox ("Skrivebeskyttet")
        Else
    MsgBox ("Ok")
End If

End Sub