Function EscribeLeeCabeceraFichero()
Dim f As Integer, StrRutaCompleta As String
Dim CadenaVieja As String, CadenaNueva As String
StrRutaCompleta = CurrentProject.Path & "\fichero.mdb"
    f = FreeFile
    Open StrRutaCompleta For Binary As #f
    CadenaVieja = Input(LOF(f), #f)
    Close #f
 If Mid(CadenaVieja, 1, 4) = "!@#$" Then
  'en este caso está inhabilitado, lo habilito
  CadenaNueva = Mid(CadenaVieja, 5)
 Else
  'en este caso está habilitado, lo deshabilito
  CadenaNueva = "!@#$" & CadenaVieja
 End If
 'escribo de nuevo todo en el fichero, borrando el anterior contenido
 f = FreeFile
 Open StrRutaCompleta For Output As #f
  Print #f, CadenaNueva
  Close #f
  
End Function