If specific file is currently opened, then not processing following coding,
else process them.
Does anyone have any suggestions on how to code it in macro?
Thanks in advance for any suggestions
Eric

Sub RunOrNot

'Is specific file opened? if not, then process following coding
Coding
'End If

End Sub

fName = "SomeFile.xls" '<<< The file you want to check
For Each wb In Application.Workbooks
If wb.Name = fName Then
Exit Sub
Else
"Run the code
End If
Next



"Eric" <(E-Mail Removed)> wrote in message
news:96366C4F-9190-4ADB-9695-(E-Mail Removed)...
> If specific file is currently opened, then not processing following
> coding,
> else process them.
> Does anyone have any suggestions on how to code it in macro?
> Thanks in advance for any suggestions
> Eric
>
> Sub RunOrNot
>
> 'Is specific file opened? if not, then process following coding
> Coding
> 'End If
>
> End Sub

Use a function as below...

Sub Macro()

If IsWorkbookOpen("Book1") = False Then
'Place your code below

End If

End Sub

Function IsWorkbookOpen(strWorkbook) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(strWorkbook)
If Not wb Is Nothing Then IsWorkbookOpen = True
End Function


--
Jacob (MVP - Excel)


"Eric" wrote:

> If specific file is currently opened, then not processing following coding,
> else process them.
> Does anyone have any suggestions on how to code it in macro?
> Thanks in advance for any suggestions
> Eric
>
> Sub RunOrNot
>
> 'Is specific file opened? if not, then process following coding
> Coding
> 'End If
>
> End Sub

It does not work, the opened file is still being opened as read only.
Does anyone have any suggestions?
Thanks in advance for any suggestions
Eric

Dim WkbkName As String
WkbkName = "D:\file1.xls"

If IsWorkbookOpen(WkbkName) = False Then
'Place your code below
End IF

"Jacob Skaria" wrote:

> Use a function as below...
>
> Sub Macro()
>
> If IsWorkbookOpen("Book1") = False Then
> 'Place your code below
>
> End If
>
> End Sub
>
> Function IsWorkbookOpen(strWorkbook) As Boolean
> Dim wb As Workbook
> On Error Resume Next
> Set wb = Workbooks(strWorkbook)
> If Not wb Is Nothing Then IsWorkbookOpen = True
> End Function
>
>
> --
> Jacob (MVP - Excel)
>
>
> "Eric" wrote:
>
> > If specific file is currently opened, then not processing following coding,
> > else process them.
> > Does anyone have any suggestions on how to code it in macro?
> > Thanks in advance for any suggestions
> > Eric
> >
> > Sub RunOrNot
> >
> > 'Is specific file opened? if not, then process following coding
> > Coding
> > 'End If
> >
> > End Sub

Is there any code to check whether the file is opened or not?
Thanks in advance for any suggestions
Eric

"JLGWhiz" wrote:

> fName = "SomeFile.xls" '<<< The file you want to check
> For Each wb In Application.Workbooks
> If wb.Name = fName Then
> Exit Sub
> Else
> "Run the code
> End If
> Next
>
>
>
> "Eric" <(E-Mail Removed)> wrote in message
> news:96366C4F-9190-4ADB-9695-(E-Mail Removed)...
> > If specific file is currently opened, then not processing following
> > coding,
> > else process them.
> > Does anyone have any suggestions on how to code it in macro?
> > Thanks in advance for any suggestions
> > Eric
> >
> > Sub RunOrNot
> >
> > 'Is specific file opened? if not, then process following coding
> > Coding
> > 'End If
> >
> > End Sub
>
>
> .
>