如何作VBA修改MDB文件头?

xinle

以前看过一篇用Delphi来修改MDB文件头的例子,
链接:http://www.office-cn.net/forum.php?mod=viewthread&tid=951&extra=&highlight=%BC%D3%C3%DC&page=1
以达到保护后台的目的,
不知道VBA有什么函数可能修改文件头,
谢谢

Grant

在accessbbs中已给出答案,没有太大实际意义
Public Sub CloseHt(strhtfile As String) '加密

Dim intfh As Integer
intfh = FreeFile
Open strhtfile For Binary Access Write As #intfh
Put intfh, 2, &H0
Close #intfh

End Sub


Public Sub OpenHt(strhtfile As String) '解密
Dim intfh As Integer
intfh = FreeFile
Open strhtfile For Binary Access Write As #intfh
Put intfh, 2, &H1
Close #intfh

End Sub

xinle

是啊,改回来就可以了,一试才知道,