Unprotect workbook, allow repeat password

[SueBK]

In one of my macros, I unprotect a shared workbook. I haven't programmed the password into the code. I admit, mainly because I was having problems with it, and decided that entering it manually wasn't such huge deal LOL. The line of code I'm using is simple "ActiveWorkbook.UnprotectSharing".

This morning I typed in the wrong password and got an end/debug error message. Ideally, I'd like to either have the password as part of the code, or allow for repeat entry of the password if it's incorrect. Or, failing either of those, an end macro message (which would be messy because I end up with a partly created backup file).

 

[CalcSux78]

Have you tried declaring a password as a constant?

Public Const pword As String = "MyPassword"  'Place at top of Module before Subrotine(s)

..
..
ActiveSheet.Unprotect Password:=pword

 

[SueBK]

I did try that. But because tracked changes are turned on it wants a yes/no response. I tried turning off the notification, but it didn't like that. I'd rather the user enter a password AND choose the yes/no, than just be faced with a warning message. Ideally, I'd like no warning message

My ultimate goal would be to allow a wrong password at least twice OR completely automate the process.

 

[Teeroy]

You could use an "On Error Resume Next" before the unprotect to stop the error message then test if the Sheet is still protected (ActiveSheet.ProtectContents=True) to see whether the password was correct.