Slet "before close" i thisworkbook

Hej,

Jeg har lavet en makro, som åbner exceldokumenter (inputfil) og trækker data ud af disse. Mit problem er bare, at alle exceldokumenterne indeholder en "thisworkbook" med "beforeclose" + msgbox=

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Cancel = MsgBox("Har du husket at opdatere samlefilen?", vbQuestion + vbYesNo) = vbNo

End Sub

Jeg åbner dokumenterne som "oWorkBook" i min makro:

Set oWorkBook = Workbooks.Open("c:\temp\~xlsfil.xls", UpdateLinks:=True, ReadOnly:=True)

Det er irriterende at skulle trykke "ok", hver gang jeg skal lukke en inputfil.

Help.....