Sub
WorkbookOpenHidden(sFilename
As
String
,
Optional
ByRef
exitCode
As
VbTriState)
On
Error
GoTo
Err_Handler
Dim
wbk
As
Workbook
For
Each
wbk
In
Application.Workbooks
If
wbk.FullName = sFilename
Then
exitCode = VbTriState.vbUseDefault
Exit
Sub
End
If
Next
Set
wbk = Application.Workbooks.Open(sFilename)
wbk.Windows.Item(1).Visible =
False
exitCode = VbTriState.vbTrue
Err_Exit:
Exit
Sub
Err_Handler:
exitCode = VbTriState.vbFalse
Err.Clear
Resume
Err_Exit
End
Sub
Sub
WorkbookClose(sFilename
As
String
,
Optional
bSaveChanges
As
Boolean
=
True
)
Dim
wbk
As
Workbook
For
Each
wbk
In
Application.Workbooks
If
wbk.FullName = sFilename
Then
wbk.Close bSaveChanges
End
If
Next
End
Sub