Calender autorange problem on locked worksheet

Gents

I've a small problem. I'm using the following code to conditionally lock parts of my worksheet dependant on a lock/unlock statement.

I also want to use a popup calendar which i found on this site (apologies for not recalling whose)

The problem appears to be that the lock code prevents the calendar from autofitting thus generating a "autofit method of range class" error/

What I'd like to do is either get the lock/unlock code to accept the date input or alter the calendar code to prevent the autofit error

first the lock/unlock code

Please Login or Register  to view this content.

Now the calendar code, the point that the debug stops is in red.

Please Login or Register  to view this content.

Any help is appreciated, I'm happy that the conflict is with the lock/unlock as the calendar works lovely without it.