Habilitar y deshabilitar cabecera de un fichero

En un ejemplo del búho desde un botón se habilitan y deshabilitan las cabeceras de un fichero para proteger la mdb. Desearía poder trasladar este ejemplo pero a:

Habilitar al abrir el primer formulario

Deshabilitar al cerrar el último formulario

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