Close other open excel files

[anon]

HI,

I'd like my wb on opening to close all other excel files that are open
(prompting them to save first).

I'd also like to prevent the user opening any other excel files whilst
my wb is open.

Is this possible (and is it a stupid thing to try and do?)

 

[Guest]

Easy

for each wbk in workbooks
if wbk.name <> ThisWorkbook.name then
workbooks(wbk.name).close
end if
next wbk

 

[Guest]

How can i modify this to prevent thisworkbook.name and another excel file not
to close? I need the files "Daily Reports.xls" and "NPP_*" to stay open.
Thanks

 

[Dave Peterson]

for each wbk in workbooks
if wbk.name = ThisWorkbook.name then
'do nothing
elseif lcase(wbk.name) = lcase("daily report.xls") then
'skip this, too
elseif lcase(left(wbk.name,4))= lcase("npp_") then
'skip more!
else
wbk.close savechanges:=false 'or true????
end if
next wbk

 

[Guest]

Sub test()

For Each wbk In Workbooks
If wbk.Name <> ThisWorkbook.Name And _
wbk.Name <> "Daily Reports.xls" And _
Left(wbk.Name, 4) <> "NPP_" Then

Workbooks(wbk.Name).Close
End If
Next wbk

End Sub

 

[ellen lee]

test

How can i modify this to prevent thisworkbook.name and another excel file
not
to close? I need the files "Daily Reports.xls" and "NPP_*" to stay open.
Thanks