Unique Password

[EmyrPC]

Hey all,

I've created a VBA which at the end creates about 30-50 files which I wish to password protect. Easy enough, but what I want to do is be able to have the current month as part of the password automatically. So for example today the password will be PasswordJanuary or Password01 and next month it'll be PasswordFeburary or Password02.

This that possible?

If not maybe it creates the password from a cell and I manually change the password in that cell?

Thanks for any help

 

[Scott T]

This should work

Dim mymonth As String
mymonth = Format(Month(Date), "00")

Sheets("Sheet6").Protect "password" & mymonth

 

[EmyrPC]

This should work

Dim mymonth As String
mymonth = Format(Month(Date), "00")

Sheets("Sheet6").Protect "password" & mymonth

Worked beautifully.

Thank you very much