What's wrong with this code.

[thunderfoot]

All I want the code below to do is to Protect the workbook with whatever entry is in the 'Named Range'. The Named Range "Password_WB" is a cell in another unhidden (and unprotected) worksheet.

I'm getting :- Runtime error 5. Invalid Procedure Call or Argument.
What's wrong with this code??? I can't spot the error!!

Sub Macro4()
'
' Keyboard Shortcut: Ctrl+y
'
ActiveWorkbook.Protect Range("Password_WB"), Structure:=True, Windows:=False
End Sub

 

[MartinK]

Hello,

try:

ActiveWorkbook.Protect Range("Password_WB").Value, Structure:=True, Windows:=False

martin

 

[staticbob]

Thunder,

Try declaring the password as a variable first, then use that in the protect line. Something like this, but this isn't tested....

Dim PWord As String
PWord = Range("Password_WB").Text
ActiveWorkbook.Protect (PWord), Structure:=True, Windows:=False

Bob

Edit - Or what Martin said ! lol

 

[thunderfoot]

The '.Value' worked.

Thanx.

Hello,

try:

ActiveWorkbook.Protect Range("Password_WB").Value, Structure:=True, Windows:=False

martin