Auto_Open macro: read-only after expiry?

[Dirty Laundry]

Hello - I am looking for assistance with my Autpen macro. Currently it forces the workbook closed after a designated expiration date. I'm trying to alter it so that users have read-only access to the workbook after it expires, rather than forcing it closed. Any suggestions would be greatly appreciated. Thanks! - DL

Sub Auto_Open()
'
' AutoOpenDGF Macro
'
Dim exdate As Date
    exdate = "01/17/2012"
    If Date > exdate Then
        MsgBox ("-- W A R N I N G --" & vbCr & vbCr & "This workbook expired on 01/17/2012." & vbCr & vbCr & "Please obtain the current version.")
        ActiveWorkbook.Close
    End If
    MsgBox ("-- N O T I C E --" & vbCr & vbCr & "This workbook will expire in (" & exdate - Date & ") days.")
'
End Sub

 

[Dirty Laundry]

Edit: I also tried using a formula from C. Pearson (TimeBomb to Read-Only), but it didn't seem to work:
http://www.cpearson.com/excel/workbooktimebomb.aspx

 

[Simon Lloyd]

Also posted here http://www.thecodecage.com/forumz/m...ro-read-only-after-expiry.html#post1054993205

 

[Dirty Laundry]

And here ...
http://www.excelforum.com/excel-programming/810200-auto_open-macro-read-only-after-expiry.html

... and here ...
http://www.ozgrid.com/forum/showthread.php?t=161552

 

[Simon Lloyd]

Answer given here http://www.thecodecage.com/forumz/m...ro-read-only-after-expiry.html#post1054993205