Hiding (Change visible) WorkBOOK

[yitzle]

OK.
I can try to open, modify and close a XLS file, and create when it doesn't exist.
However, after modifying the XLS, when I open it, I need to do Window>Unhide>Unhide Workbook.

How do I fix that?
A Excel Macro reveals:
Windows("TimeLogger.xls").Visible = True
Please advise!
My code:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim wkbBook As Excel.Workbook
Dim wkbObj As Excel.Workbook
Dim xlsfilename As String
xlsfilename = App.Path & "\TimeLogger.xls"

On Error GoTo create
Set wkbObj = GetObject(xlsfilename)
Dim i As Integer
i = 1
While wkbObj.Worksheets(1).Range("A" & i).Value <> ""
i = i + 1
Wend
wkbObj.Worksheets(1).Range("A" & i).Value = Format(Now, "mmmm-dd-yy")
wkbObj.Worksheets(1).Range("B" & i).Value = Format(Now, "h:nn")
wkbObj.Worksheets(1).Range("C" & i).Value = InputBox("Client?")
wkbObj.Worksheets(1).Range("D" & i).Value = InputBox("Description?")
wkbObj.Save

' Till now, all works. Unhide workbook!
Set xlApp = New Excel.Application
Set wkbNewBook = Workbooks.Open(xlsfilename)
wkbNewBook.Visible = True

wkbNewBook.Save
wkbNewBook.Close

Set wkbNewBook = Nothing
Set xlApp = Nothing
' End problem area

Exit Sub

create:
On Error Resume Next
Set xlApp = New Excel.Application
Set wkbNewBook = xlApp.Workbooks.Add()
wkbNewBook.Worksheets(1).Range("A1").Value = "a"
wkbNewBook.Close SaveChanges:=True, FileName:=xlsfilename
xlApp.Quit
Set wkbNewBook = Nothing
Set xlApp = Nothing
End Sub

[littlepd]

The list of "allowed values" for setting the visible property are as follows:

- xlSheetHidden
- xlSheetVisible
- xlSheetVeryHidden

Here is an example of unhiding all sheets in a workbook:

' Unhides all worksheets in the workbook, even very hidden worksheets
Public Sub UnhideAllWorksheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws

End Sub

[yitzle]

Its not working :(
I still think I need to do Workbook.Visible and not Worksheet
It'd truly appreciate if someone could fix my code up...
Project:
www.ecf.utoronto.ca/~goodi/Archive/TimeLog.zip

[yitzle]

:bump:

[DKenny]

You are creating a new instance of Excel, using the xlApp variable, but you never make that instance of the application visible. If the app isn't visible, then you will never be able to see the workbook.

Change
Set xlApp = New Excel.Application
to
Set xlApp = New Excel.Application
xlApp.Visible = True

[yitzle]

Will try that when I get home. Thanks for the quick reply!

[yitzle]

No, that's not it.
I'm not interested in making the app visible. Nor is the problem making the sheet visible.
It is the workbook that is not showing up as visible.

If the file already exits, this is what runs:

Private Sub Command1_Click()
InputBox("Client?") & "," & InputBox("Description?")

Dim wkbObj As Excel.Workbook
Dim xlsfilename As String
xlsfilename = App.Path & "\TimeLogger.xls"

On Error GoTo create
Set wkbObj = GetObject(xlsfilename)
Dim i As Integer
i = 1
While wkbObj.Worksheets(1).Range("A" & i).Value <> ""
i = i + 1
Wend
wkbObj.Worksheets(1).Range("A" & i).Value = Format(Now, "mmmm-dd-yy")
wkbObj.Worksheets(1).Range("B" & i).Value = Format(Now, "h:nn")
wkbObj.Worksheets(1).Range("C" & i).Value = InputBox("Client?")
wkbObj.Worksheets(1).Range("D" & i).Value = InputBox("Description?")
wkbObj.Save
wkbObj.Close

Set wkbObj = Nothing

Exit Sub

The only object used is the Workbook object.
Somehow the Excel workbook becomes hidden after this code.
And the wkbObj does not have a visible, hide, unhide or hidden property.
Please help!

[yitzle]

Got it.
wkbObj.Windows(1).Visible = True
does the trick.
Thanks anyhow for all the suggestions!