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?)

Easy

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

"anon" wrote:

> 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?)
>
>

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

"Joel" wrote:

> Easy
>
> for each wbk in workbooks
> if wbk.name <> ThisWorkbook.name then
> workbooks(wbk.name).close
> end if
> next wbk
>
> "anon" wrote:
>
> > 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?)
> >
> >

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

Greg H. wrote:
>
> 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
>
> "Joel" wrote:
>
> > Easy
> >
> > for each wbk in workbooks
> > if wbk.name <> ThisWorkbook.name then
> > workbooks(wbk.name).close
> > end if
> > next wbk
> >
> > "anon" wrote:
> >
> > > 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?)
> > >
> > >

--

Dave Peterson

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
"Greg H." wrote:

> 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
>
> "Joel" wrote:
>
> > Easy
> >
> > for each wbk in workbooks
> > if wbk.name <> ThisWorkbook.name then
> > workbooks(wbk.name).close
> > end if
> > next wbk
> >
> > "anon" wrote:
> >
> > > 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?)
> > >
> > >

test
"Greg H." <(E-Mail Removed)> wrote in message
news:CB434118-83A6-4153-965C-(E-Mail Removed)...
> 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
>
> "Joel" wrote:
>
>> Easy
>>
>> for each wbk in workbooks
>> if wbk.name <> ThisWorkbook.name then
>> workbooks(wbk.name).close
>> end if
>> next wbk
>>
>> "anon" wrote:
>>
>> > 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?)
>> >
>> >