protection macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am creating a macro that changes passwords on a spreadsheet
The problem is when the spreadsheet's password isn't what is expected by the macro, and it comes up with the macro error box with the de-bug option, etc
How can I alter the macro so that when the password is not correct it displays a message box saying "invalid password", and hitting "ok" would halt the macro
Or better yet, can a macro detect a password? Or at least return a true/false statement concerning a password
Thanks in advanc
Labrat.
 
Labrat

Something like this

x = Password

if x <> password then
count = count + 1
msgbox = "Incorrect Password, try again"
if count = 3 then
Exit Sub
end if
End if

Not tested
-----Original Message-----
I am creating a macro that changes passwords on a spreadsheet.
The problem is when the spreadsheet's password isn't what
Click to expand...
is expected by the macro, and it comes up with the macro
error box with the de-bug option, etc.
How can I alter the macro so that when the password is
Click to expand...
not correct it displays a message box saying "invalid
password", and hitting "ok" would halt the macro?
Or better yet, can a macro detect a password? Or at least
Click to expand...
return a true/false statement concerning a password?
 
Here is one way:


On Error Goto BadPW
ActiveWorkbook.Unprotect "Your password here"

BadPW:
MsgBox "Invalid Password!", vbOkOnly + vbExclamation
Exit Sub


-Jack
-----Original Message-----
I am creating a macro that changes passwords on a spreadsheet.
The problem is when the spreadsheet's password isn't what
Click to expand...
is expected by the macro, and it comes up with the macro
error box with the de-bug option, etc.
How can I alter the macro so that when the password is
Click to expand...
not correct it displays a message box saying "invalid
password", and hitting "ok" would halt the macro?
Or better yet, can a macro detect a password? Or at least
Click to expand...
return a true/false statement concerning a password?
 
Try this exactly, it should work:


Sub CPS()

Sheets("DATA_SHEET").Select
On Error Goto BadPW
ActiveSheet.Unprotect
On Error Goto 0
ActiveSheet.Protect

Sheets("POSTING_SHEET").Select
On Error Goto BadPW
ActiveSheet.Unprotect
On Error Goto 0
ActiveSheet.Protect

ActiveWorkbook.Save
ActiveWindow.Close

Exit Sub

BadPW:
MsgBox "Invalid Password!", vbOKOnly + vbExclamation

End Sub
 
Back
Top