How can I secure all tabs in excel 2003 at once?

I have made a lot of tabs en secured them. When I want to change something I
have to unsecure the tabs one by one. I would like to secure and unsecure
them all together if possible.

Hi Marisca,

Download ASAP utilities (free) from asap-utilities.com. This should enable you to do what you want.

Ed

Use a macro.

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Protect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Unprotect Password:="justme"
Next n
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 4 Apr 2006 03:35:01 -0700, marisca <[email protected]>
wrote:

>I have made a lot of tabs en secured them. When I want to change something I
>have to unsecure the tabs one by one. I would like to secure and unsecure
>them all together if possible.