Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
take a look he
http://www.mcgimpsey.com/excel/removepwords.html In article , Labrat wrote: 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 advance Labrat. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
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 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 advance Labrat. . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
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 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 advance Labrat. . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
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 -----Original Message----- Thanks everyone for your quick response! Peter, I have no Idea how to enter your script into the macro. Jack, It still pops up with "invalid password" even when it is correct. Here is what I'm working with to give you a better idea: Sub CPS() Sheets("DATA SHEET").Select On Error GoTo BadPW ActiveSheet.Unprotect ("password") BadPW: MsgBox "Invalid Password!", vbOKOnly + vbExclamation Exit Sub ActiveSheet.Protect ("password") Sheets("POSTING SHEET").Select ActiveSheet.Unprotect ("password") ActiveSheet.Protect ("password") ActiveWorkbook.Save ActiveWindow.Close End Sub Where should I place your script? How should I modify it? Thanks in advance! Labrat . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
protection macro
Thanks but I'm getting a run-time error 9, - subscript out of range
Any Ideas? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Data Protection- AKA: Sheet/Macro Password Protection | Setting up and Configuration of Excel | |||
Protection Macro | Excel Worksheet Functions | |||
macro protection | Excel Worksheet Functions | |||
Protection Macro | Excel Discussion (Misc queries) | |||
macro for protection | Excel Discussion (Misc queries) |