Two requests, funky:

1) In general, when you say things like "didn't work", "no joy" and "still getting problems" you leave us without clues. The first time was better; you said "I get a subscript out of range message". Now maybe the subsequent three times you meant "I get the same message", but speaking for myself I'd much prefer too much detail to too little. Something like this: "It displayed the message 'Subscript out of range', and when I hit the Debug button it showed the following statement...." (so that we know not only the exact text of the message but also which statement caused it). I recommend you make that kind of problem reporting a general habit.

2) I cut and pasted your first program into a workbook, then created a protected workbook with a password-protected sheet and ran your program on it (substituting only my path for "New"), and I didn't run into your problem, so I guess my theory was wrong. Can you post the workbook itself—preferably both of them? I may as well try it with the original; if I can't reproduce the problem then, we may be stymied.