Visual Basic para Aplicaciones - Excel y Visual Basic 6

Tengo 1 problema en una hoja de excel con codigo de Visual Basic 6.

Cuando ejecuto el codigo me funciona bien sin problemas. El codigo se ejecuta desde un Excel 2003 y este se conecta a un SQL Server de donde extrae datos. El problema es que al cerrar la hoja de excel me da un error. La memoria no se puede "Read" y un numero. No se piede informacion, ni se daña nada, pero es molesto para el usuario tener que ver el error cada vez que cierra la hoja.

Por otro lado. Alguien sabe como deshabilitar el CTRL +C para evitar que puedan marcar un rango y darle Ctrl + c para copiar a otro lado?

Por su ayuda Muchas gracias.

Fernando.

Nexesito ver tu codigo para ver si manejas apis o manejas preferencias.
y si manejas el nothing o lo liberas sin problema.

mandalo al correo si es necesario pero te contesto como a las 7:00

Aunque la pregunta es vieja suelo responder igual para los demás programadores que buscar solución a sus problemas.

Esto lo saqué de otro lugar, así que los méritos no son mios, Los méritos a quien corresponda

Para deshabilitar copiar
Crear un módulo dentro de la planilla Excel

Sub NoCopia() 'Inhabilita los atajos para copiar,cortar y pegar
Application.OnKey "^c", "cancelalo"
Application.OnKey "^C", "cancelalo"
Application.OnKey "^v", "cancelalo"
Application.OnKey "^V", "cancelalo"
Application.OnKey "^x", "cancelalo"
Application.OnKey "^X", "cancelalo"
End Sub

Sub Cancelalo()
Cancel = True
End Sub

Sub SiCopia() 'Habilita los atajos para copiar,cortar y pegar
Application.OnKey "^c"
Application.OnKey "^C"
Application.OnKey "^v"
Application.OnKey "^V"
Application.OnKey "^x"
Application.OnKey "^X"
End Sub

En cada unos de los eventos del Objeto ThisWorkBook, hacer una llamada a cada unos de los procedimientos
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SiCopia
End Sub

Private Sub Workbook_Open()
NoCopia
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
NoCopia
End Sub