Visual Basic para Aplicaciones - problema al desactivar Crtl. y Alt

Hola Amigos tengo un problemilla medio raro, tengo un procedimiento en VBA que se ejecuta al iniciar Excel, en el cual se desactivan las combinaciones Ctrl.+ C, X y V, asi como todas las combinaciones de Alt + F's es decir desde Alt +F1 hasta Alt +F15; A la vez tengo un procedimiento que al salir del libro activa dichas combinaciones de teclas , lo raro es que el primer procedmiento funciona a la perfeccion, es decir desactiva todas las combinaciones, pero el segundo proced. nunca entra en accion (eso quiero pensar), porque cuando cierro el libro se quedan desactivadas las combianciones de estas teclas, lo he intendado hacer con varios eventos (Workbook_BeforeClose o bien con Workbook_WindowDeactivate(ByVal Wn As Window)) pero nada, para que vuelvan a su estado original tengo que cerrar en su totalidad Excel. y no se si sea un problema de mi Excel o que este programando erroneamente.

Les hago llegar la estructura del codigo, para ver si alguien puede darme una ayudadita. de antemano gracias. y bonito 2007

rutina que desactiva las teclas.

Private Sub Workbook_Open()

Application.OnKey "^c", ""
Application.OnKey "^x", ""
Application.OnKey "^v", ""
Application.OnKey "%{F1}", ""
Application.OnKey "%{F2}", ""
Application.OnKey "%{F3}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F5}", ""
Application.OnKey "%{F6}", ""
Application.OnKey "%{F7}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "%{F9}", ""
Application.OnKey "%{F10}", ""
Application.OnKey "%{F11}", ""
Application.OnKey "%{F12}", ""
Application.OnKey "%{F13}", ""
Application.OnKey "%{F14}", ""
Application.OnKey "%{F15}", ""

End Sub

rutina que deberia activar las teclas

Private Sub Workbook_BeforeClose(Cancel As Boolean)

o bien:

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

Application.OnKey "^c"
Application.OnKey "^x"
Application.OnKey "^v"
Application.OnKey "%{F1}"
Application.OnKey "%{F2}"
Application.OnKey "%{F3}"
Application.OnKey "%{F4}"
Application.OnKey "%{F5}"
Application.OnKey "%{F6}"
Application.OnKey "%{F7}"
Application.OnKey "%{F8}"
Application.OnKey "%{F9}"
Application.OnKey "%{F10}"
Application.OnKey "%{F11}"
Application.OnKey "%{F12}"
Application.OnKey "%{F13}"
Application.OnKey "%{F14}"
Application.OnKey "%{F15}"
End Sub