Close duplicate copy of a file is open; close it without save prompt

[JackDanIce]

Hi,

I have a workbook which sometimes is open on one person's PC and then a second person opens it.

When the second person opens it, it provides the "READ ONLY", "NOTIFY" and "CANCEL" prompts.

(i) If it has been opened as "READ ONLY", what code can I use in the workbook code to close it without the save prompt? I.e. kill/delete the temporary copy of the file

(ii) In addition, can I remove the "NOTIFY" option when the second person tries to open this file?

Apologies if this should be as seperate threads, I'm more interested in the answer to (i) but if (ii) can be solved at the same time, then great - both seem related.

Thanks in advance,
Jack

 

[JackDanIce]

Bump

 

[Jaafar Tribak]

Maybe something along these lines for Q1

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Me.ReadOnly Then
        Me.Saved = True
    End If

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If Me.ReadOnly Then
        Cancel = True
        MsgBox "Sorry,you can't save this workbook."
    End If

End Sub

Obviously, this is assuming the user has the Macros enabled.

 

[JackDanIce]

Thanks Jaafar, will test shortly, but they look like they'll work. Like your signature quote too, nice one.