Escribe cabecera para proteger tablas

Encontré este ejemplo de Francisco Javier García Aguado (Búho), donde por un botón habilita y deshabilita la cabecera la cabecera de un fichero para proteger las mdb. Yo pregunto: Sería posible dividir este ejemplo para que se use este ejemplo en:

1. Habilitar al abrir un formulario X

2. Deshabilitar al cerrar el último formulario

El módulo

Option Compare Database
Option Explicit
'Funciones e idea del Buho
'Mayo de 2004
'Preserva los créditos, citando al autor
'Manipula este ejemplo con precaucion, ya que escribo y leo a bajo nivel
'ficheros MDB. Hazlo bajo tu propia responsabilidad
Function Habilitado(StrRutaCompleta As String) As Boolean
Dim f As Integer, CadenaVieja As String, CadenaNueva As String
  f = FreeFile
    Open StrRutaCompleta For Binary Access Read Write As #f
    CadenaVieja = Mid(Input(6, #f), 6, 1)
    'Close #f
 If CadenaVieja = "1" Then
  'en este caso está inhabilitado, lo habilito
  CadenaNueva = "t"
  Put #f, 6, CadenaNueva
  Habilitado = True
 Else
  'en este caso está habilitado, lo deshabilito
  CadenaNueva = "1"
  Put #f, 6, CadenaNueva
  Habilitado = False
 End If
  Close #f
End Function