Enter code for sheet name in VB in excel

[treckor]

I need to setup a macro that will set the password as the sheet name. Here is my "simplistic" code to do this:

Sub ProtectSheetBack()
'
' ProtectSheetBack Macro
'
' Keyboard Shortcut: Ctrl+p
'
Dim sht As Worksheet
Dim Pswrd As String

For Each sht In ActiveWorkbook.Worksheets

Pswrd = sht.Name
sht.Protect Paswrd


Next sht
End Sub

The sht.Protect Paswrd is not working correctly. May I please have some assistance?

thanks!
nanc

 

[SkipVought]

Hi,

Correct the variable name.

HINT: Use Option Explicit to FORCE variable declarations.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

Hi,

Correct the variable name.

TIP: Use Option Explicit to FORCE variable declarations.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[mscallisto]

I agree, you should always use "Option Explicit"

Option Explicit
Sub abc()
 Dim intCounter as integer
 etc.
End Sub

To make this automatically happen you can do the following:

While in the vba editor Tools > Options click the Editor tab and check the box for "Require Variable Declaration".

Now future worksheets with macros will always have the Option Explicit declaration