如何作VBA修改MDB文件头?

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