Do Until Loop error "Loop without Do"

[Effexus3]

Hi
Just so you know, I'm eons away from being proficient in VBA. This is the first time that I've used the Do Until Loop. MY macro works perfectly (without the loop statements). When I place them in, I get this error (Loop without do). I need the loop to allow entry issues to be able to re-try. I mimicked the examples that I found online, but it doesn't seem to work for my application (can't figure out why). I don't think it needs too much tweaking as it does work well Any help will be greatly appreciated Jim
Here is the code that I want to use:

Please Login or Register  to view this content.

[Trebor76]

Hi Effexus3:

Try this:

Please Login or Register  to view this content.

Regards,

Robert

[Effexus3]

Thanks Robert...It's almost great. The loop works fine but there are some problems
If I hit Cancel, Ok, (without entering any data) in the 1st password box... or X the program opens full out
If I hit the X in the limited access MsgBox it gives me full access
Maybe needs a few tweaks yet
This may have been happening before but I'm not sure
Jimmy

[Trebor76]

Hi Jimmy,

Not too sure what you mean. I programmed the code that if the user clicks Cancel, X on the Inputbox dialog or doesn't enter any data and then clicks OK the script just stops (this is what Exit Sub does).

Robert

[Effexus3]

Hi Robert. it looks like the lines: ( If Len(A1) = 0 Then 'User clicked Cancel Exit Sub) & ( If Len(A2) = 0 Then 'User clicked Cancel Exit Sub)... kicks them out of the ballpark if there is no entry. Maybe you can suggest what I can replace these with?
Thanks Jim

[Effexus3]

Well it opens it up totally accessible. Sorry I didn't see your reply while i was typing

[Trebor76]

kicks them out of the ballpark if there is no entry.

Correct - what do you want the code to do when this happens?

[Effexus3]

I need the workbook to remain protected, until the procedure is followed through. The MsgBox's & Input boxes drive the protection...as soon as we disable this, by exiting, it leaves the procedure wide open. Obviously if a person doesn't follow the exact method, and it leaves the program unprotected, that seems to defeat the whole password process. Not trying to be unreasonable
Thanks Jim

[Trebor76]

No where in your original code does protection come in to it The workbook will be in the same state as before the code was run.

I can't offer any other advice I'm afraid.

All the best with it.

Regards,

Robert

[Effexus3]

Hi Robert
If the user enters nothing and/or hits X or Ok without data I need it to progress to the box advising that it is not the proper password and to try again or go to guest. At least that would protect for the password box.
In the Guest box area. It should go to msgbox that advises limited access which will in turn call Delete Sheets.
If you can help me with this, I'd really appreciate it. You've been a great help
Thanks Jim
Hitting the sack. will check back tomorrow afternoon
Thanks again for your patience

[Effexus3]

Again i missed your last post..Thanks for your help..I'll figure this out..you got me past the Do/Loop and I appreciate that
Jim

[Trebor76]

If you can help me with this

I can't I'm afraid Someone here will be able to I'm fairly sure

[Effexus3]

Thanks for your assistance. It was very helpful
Jim

[Trebor76]

Have a look at this potential alternative that I answered yesterday.

[Effexus3]

Problem Solved

[Trebor76]

Great!! If you could mark the thread as solved (refer the link in my signature) it would be appreciated.