excel2003 check on open, if enother workbook is active

[nodari]

I have this sub:

Private Sub workbook_Open()
' I need code he, which gives me names of opened workbookes (before current workbook)
...
End Sub

 

[markmzz]

Nodari,

Try this code:

[COLOR=#000000][COLOR=blue]Private Sub Workbook_Open()[/COLOR]
[COLOR=blue] Dim wk, mywk As Workbook[/COLOR]
 
[COLOR=blue] Set mywk = ActiveWorkbook[/COLOR]
 
[COLOR=blue] i = 1[/COLOR]
[COLOR=blue] For Each wk In Workbooks[/COLOR]
[COLOR=blue]     If mywk.Name <> wk.Name Then[/COLOR]
[COLOR=blue]         mywk.Worksheets(1).Cells(i, 1).Value = wk.Name[/COLOR]
[COLOR=blue]         i = i + 1[/COLOR]
[COLOR=blue]     End If[/COLOR]
[COLOR=blue] Next wk[/COLOR]
 
[COLOR=blue] Set mywk = Nothing[/COLOR]
[COLOR=blue]End Sub[/COLOR]
[/COLOR]

Markmzz

 

[Misca]

Try pasteing the following code to your ThisWorkbook -module:

Private Sub Workbook_Open()

Dim Start As String
Dim OpenWBs As String
Dim WB As Workbook

Start = "Open Workbooks:"
OpenWBs = Start

For Each WB In Workbooks
    If WB.Name <> ThisWorkbook.Name Then
        OpenWBs = OpenWBs & vbNewLine & WB.Name
    End If
Next WB

If OpenWBs = Start Then
    OpenWBs = "This is the only open file."
End If

MsgBox OpenWBs

End Sub

 

[nodari]

thank you very much, I solved the problem.