Bomino
Member
Hello,
I am trying to prevent users from opening backup copies of some files I have on a shared drive. Apparently something's wrong with the following code:
Could someone please help me fix the code or provide a better solution?
Regards.
I am trying to prevent users from opening backup copies of some files I have on a shared drive. Apparently something's wrong with the following code:
Code:
Private Sub Workbook_Open()
Dim MyName As String
Dim Location As Integer
MyName = ActiveWorkbook.Name
Location = InStr(MyName, "*backup*")
If Location = 0 Then
MsgBox "Please proceed."
Else
MsgBox "You are using the backup copy"
exit sub
End If
End Sub
Could someone please help me fix the code or provide a better solution?
Regards.
Last edited: