PS you might want to correct the typo in:

MsgBox "Protectiion not set"

:)

"Rowan" wrote:

This will exit if the user hits cancel when asked for the password.

Sub Protection()
Dim PW As String
Dim PWC As String
PW = ""
PWC = ""
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW < "" Then
Call SetProtect(PW, PWC)
Else
MsgBox "Protectiion not set"
End If
End Sub


Sub SetProtect(PW As String, PWC As String)
Dim S As Integer
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
Call Protection
End If
End Sub

Regards
Rowan

"Michael" wrote:

Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson