Can I protect all excel tabs in a file with one password entry?

I have spreadsheets with multiple tabs - I presently have to password protect
each tab separately. I'm looking for a way to protect all tabs with one
password entry. i am not share the files, but others do view them and I
don't want changes made.

Indiana, you can use a macro like this,

Sub protect_sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect password:="123"

Next ws

End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"Indiana born" <Indiana [email protected]> wrote in message
news:[email protected]...
>I have spreadsheets with multiple tabs - I presently have to password
>protect
> each tab separately. I'm looking for a way to protect all tabs with one
> password entry. i am not share the files, but others do view them and I
> don't want changes made.

Paul B - Thanks for your help! The macro worked per your input below.
impressive to see 30 worksheets protected at once.
I am using Excel 2000

Thanks again!

"Paul B" wrote:

> Indiana, you can use a macro like this,
>
> Sub protect_sheets()
>
> Dim ws As Worksheet
>
> For Each ws In ThisWorkbook.Worksheets
>
> ws.Protect password:="123"
>
> Next ws
>
> End Sub
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
>
> "Indiana born" <Indiana [email protected]> wrote in message
> news:[email protected]...
> >I have spreadsheets with multiple tabs - I presently have to password
> >protect
> > each tab separately. I'm looking for a way to protect all tabs with one
> > password entry. i am not share the files, but others do view them and I
> > don't want changes made.
>
>
>

Your welcome
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Indiana born" <[email protected]> wrote in message
news:[email protected]...
> Paul B - Thanks for your help! The macro worked per your input below.
> impressive to see 30 worksheets protected at once.
> I am using Excel 2000
>
> Thanks again!
>
> "Paul B" wrote:
>
>> Indiana, you can use a macro like this,
>>
>> Sub protect_sheets()
>>
>> Dim ws As Worksheet
>>
>> For Each ws In ThisWorkbook.Worksheets
>>
>> ws.Protect password:="123"
>>
>> Next ws
>>
>> End Sub
>> --
>> Paul B
>> Always backup your data before trying something new
>> Please post any response to the newsgroups so others can benefit from it
>> Feedback on answers is always appreciated!
>> Using Excel 2002 & 2003
>>
>>
>> "Indiana born" <Indiana [email protected]> wrote in message
>> news:[email protected]...
>> >I have spreadsheets with multiple tabs - I presently have to password
>> >protect
>> > each tab separately. I'm looking for a way to protect all tabs with
>> > one
>> > password entry. i am not share the files, but others do view them and
>> > I
>> > don't want changes made.
>>
>>
>>