I have a rather elaborate workbook that is basically a fully loaded financial calculator for a specialized industry. I primarily use VBA to force the workbook to expire and close after a preset date (so our customer can share their proprietary financial calculator on a temporary basis for marketing purposes). To force users to have macros enabled to use this workbook (so the expiry feature will run), I have a large picture of a lock that covers the entry fields (basically rendering the calculator useless without enabling macros).
I have run with this method for the better part of two years without issue (it runs with multiple languages and currencies and has been used all over the world, again without issue). However our customer has now contracted some work out to an temporary employee in China, and despite following steps to allow macros in their settings, the lock will not remove (which tells me that the VBA macros are not running).
Any idea what could be the cause here?
The code that SHOULD unlock it, but isn't for this particular user can be found below. It functions perfectly for all of the remaining users throughout the Americas and Europe, as we all use the same copy of the workbook.
Sub New_unlock()
'
' New_unlock Macro
'
Sheets("Assumptions").Select
ActiveSheet.Unprotect Password:="password1"
ActiveSheet.Shapes.Range(Array("Block")).Select
ActiveSheet.Shapes.Range(Array("Block", "Lock2")).Select
ActiveSheet.Shapes.Range(Array("Block", "Lock2", "Message")).Select
ActiveSheet.Shapes.Range(Array("Block", "Lock2", "Message", "MessagePic")). _
Select
Selection.Cut
Range("BA3").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Assumptions").Select
ActiveSheet.Protect Password:="password1"
End Sub