Resultado de fórmula con Inputbox

Buenas tardes:
He creado una macro para que al abrir un libro me pida una contraseña, pero quiero que la password sea una fórmula variable que utilice fechas.
El código introducido no me funciona y es el siguiente:
Ayuda por favor
Private Sub Workbook_Open()
Dim M As String
Dim T As String
M = "=TODAY()*MONTH(TODAY())*DAY(TODAY())" 'Clave que deseo '
MyPass = Val(M)
T = InputBox("Clave de Acceso", "Introduce la clave", "")
TuPass = Val(T)
If TuPass <> MyPass Then
MsgBox "La clave de acceso no es valida"
Workbooks.Close
Cancel = -1
End If
End Sub
Muchas gracias por anticipado