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

These two macros are what you are using?

Sub protect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="123"
Next ws
End Sub

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

I see no reason why the unprotect won't work.


Gord Dibben MS Excel MVP

On Tue, 1 Sep 2009 10:16:02 -0700, SLD
wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

if i used the protect all ws macroe, would that not put the same password on
all ws?

"Dave Peterson" wrote:

I'd bet that the password isn't really 123 for all the worksheets in the
workbook that contains the code.

Maybe you can add a line just to double check:

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

That may give you a hint.


SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson

Depends on if that worked correctly and if anybody/any code changed the
password.

I'd still bet that the password isn't what you think.

SLD wrote:

if i used the protect all ws macroe, would that not put the same password on
all ws?

"Dave Peterson" wrote:

I'd bet that the password isn't really 123 for all the worksheets in the
workbook that contains the code.

Maybe you can add a line just to double check:

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

That may give you a hint.


SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson


--

Dave Peterson

Where do I insert the line you sugest?

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

"Dave Peterson" wrote:

Depends on if that worked correctly and if anybody/any code changed the
password.

I'd still bet that the password isn't what you think.

SLD wrote:

if i used the protect all ws macroe, would that not put the same password on
all ws?

"Dave Peterson" wrote:

I'd bet that the password isn't really 123 for all the worksheets in the
workbook that contains the code.

Maybe you can add a line just to double check:

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

That may give you a hint.


SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson


--

Dave Peterson

right where I wrote it. Just above the line causing the trouble.

Then when/if the line fails, you'll remember the last worksheet name that was
shown to you. That's the one to check.

SLD wrote:

Where do I insert the line you sugest?

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

"Dave Peterson" wrote:

Depends on if that worked correctly and if anybody/any code changed the
password.

I'd still bet that the password isn't what you think.

SLD wrote:

if i used the protect all ws macroe, would that not put the same password on
all ws?

"Dave Peterson" wrote:

I'd bet that the password isn't really 123 for all the worksheets in the
workbook that contains the code.

Maybe you can add a line just to double check:

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

That may give you a hint.


SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

This is working, but when you have over 100 tabs it is hard to keep track of
when the last mesege box is going to error out on me. Is there a line that
I can enter that will give me a report that i can clearly see what was the
last tab, or can it take me to the tab that does not have the correct
password?

"Dave Peterson" wrote:

right where I wrote it. Just above the line causing the trouble.

Then when/if the line fails, you'll remember the last worksheet name that was
shown to you. That's the one to check.

SLD wrote:

Where do I insert the line you sugest?

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

"Dave Peterson" wrote:

Depends on if that worked correctly and if anybody/any code changed the
password.

I'd still bet that the password isn't what you think.

SLD wrote:

if i used the protect all ws macroe, would that not put the same password on
all ws?

"Dave Peterson" wrote:

I'd bet that the password isn't really 123 for all the worksheets in the
workbook that contains the code.

Maybe you can add a line just to double check:

For Each ws In ThisWorkbook.Worksheets
msgbox "Processing: " & ws.name
ws.Unprotect Password:="123"
Next ws

That may give you a hint.


SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Option Explicit
Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
ws.Unprotect Password:="123"
On Error GoTo 0
If ws.ProtectContents _
Or ws.ProtectDrawingObjects _
Or ws.ProtectScenarios Then
MsgBox ws.Name & " is still protected"
End If
Next ws
End Sub

SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson

Thanks so much. That worked. it helped me identify which tabs did have a
different password. This is a big help to me.

"Dave Peterson" wrote:

Option Explicit
Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
ws.Unprotect Password:="123"
On Error GoTo 0
If ws.ProtectContents _
Or ws.ProtectDrawingObjects _
Or ws.ProtectScenarios Then
MsgBox ws.Name & " is still protected"
End If
Next ws
End Sub

SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson

Is there a way to request a pasword to run the macroes?

"SLD" wrote:

Thanks so much. That worked. it helped me identify which tabs did have a
different password. This is a big help to me.

"Dave Peterson" wrote:

Option Explicit
Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
ws.Unprotect Password:="123"
On Error GoTo 0
If ws.ProtectContents _
Or ws.ProtectDrawingObjects _
Or ws.ProtectScenarios Then
MsgBox ws.Name & " is still protected"
End If
Next ws
End Sub

SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson

What are you trying to achieve?

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim N As Single
Dim pword as String
pword = InputBox("Enter a password to run this macro")
If pword "drowssap" Then Exit Sub
For N = 1 To Sheets.Count
Sheets(N).Unprotect Password:="123"
Next N
Application.ScreenUpdating = True
End Sub

Now you should lock the project from view.

Select workbook/project in VBE and Right-ClickVBAProject
PropertiesProtection.

Lock and enter a unique password.

Do not forget this password..................you now have three different
passwords.

sheet protect...............123
inputbox...........drowssap
project properties...............unique word


Gord


On Wed, 16 Sep 2009 11:00:01 -0700, SLD
wrote:

Is there a way to request a pasword to run the macroes?

"SLD" wrote:

Thanks so much. That worked. it helped me identify which tabs did have a
different password. This is a big help to me.

"Dave Peterson" wrote:

Option Explicit
Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
ws.Unprotect Password:="123"
On Error GoTo 0
If ws.ProtectContents _
Or ws.ProtectDrawingObjects _
Or ws.ProtectScenarios Then
MsgBox ws.Name & " is still protected"
End If
Next ws
End Sub

SLD wrote:

I copied the unprotect macroe

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
End Sub

and it is still giving me an error on the 4th line. the passwords are the
same on both macroes.

What am I doing wrong?

--

Dave Peterson