Solved: Application.Visible = False

[vzachin]

hi,

i have a macro that i want to run but keep the workbook hidden, so as i don't close it by accident.
so i added
[vba]Application.Visible = False
[/vba].

this works to hide the workbook however when i open another instance of Excel, my original workbook is restored. is there a way around this? any suggestions?

thanks
zach

[Kenneth Hobs]

[VBA]ActiveWindow.Visible = False[/VBA]

[vzachin]

hi Kenneth,
i will give that a try.

thanks
zach

[vzachin]

kenneth,

after applying
[vba]

ActiveWindow.Visible = False

[/vba]
if i have another Excel Workbook opened,
how do i code it to
[vba]

ActiveWindow.Visible =True

[/vba]

how do i code it to bring focus back to the original workbook and unhide the sheet?

thanks again
zach

[Kenneth Hobs]

Untested:[VBA]Dim wb as Workbook
Set wb=Workbooks("TheNameHere.xls")
wb.Visible =True
wb.activate
wb.Sheet1.Visible = True[/VBA]

You could use this this kind of thing to see if it is open or not:
[VBA]
Sub Test_IsWorkbookOPen()
MsgBox IsWorkbookOpen("Personal.xls"), , "Personal.xls Open?"
MsgBox IsWorkbookOpen("Personal.xlsb"), , "Personal.xlsb Open?"
End Sub

Function IsWorkbookOpen(stName As String) As Boolean
Dim Wkb As Workbook
On Error Resume Next ' In Case it isn't Open
Set Wkb = Workbooks(stName)
If Not Wkb Is Nothing Then IsWorkbookOpen = True
'Boolean Function assumed To be False unless Set To True
End Function[/VBA]

[vzachin]

hi Kenneth

[vba]Dim wb As Workbook
Set wb = Workbooks("Hide Workbook Test.xls")
wb.Visible = True 'Getting runtimme error 438
wb.Activate
wb.Sheet1.Visible = True[/vba]

thanks for looking at this
zach

[Kenneth Hobs]

Have it your way with Windows...

[vba]Sub t()
Dim wb As Workbook
Set wb = Workbooks(ThisWorkbook.Name)
wb.Worksheets(Sheet1.Name).Visible = xlSheetVeryHidden
Windows(wb.Name).Visible = False
Windows(wb.Name).Visible = True
wb.Activate
wb.Worksheets(Sheet1.Name).Visible = xlSheetVisible
End Sub
[/vba]

[vzachin]

thanks kenneth

zach