Office中国论坛/Access中国论坛

标题: [求助]如何解除shift的屏蔽 [打印本页]

作者: jacken 时间: 2005-12-31 23:40
标题: [求助]如何解除shift的屏蔽
我做了一个数据库。使用了本论坛源码下载区里的屏蔽shift代码把shift键屏蔽了，结果我发现有几句代码错了，我现在得解除shift的屏蔽以改正该代码，哪位高手能够告诉我如何解除屏蔽呀，急切的等待中。谢谢。

作者: linjingdr 时间: 2006-1-1 00:29
请参考http://www.office-cn.net/forum.php?mod=viewthread&tid=33524&replyID=165938&skin=1

屏蔽了Shift鍵真的安全嗎, 以下介紹3種方法

1.對于沒用工作群組又沒有密碼的Access,直接打開一個新的Access將目標Access的表導入即可。

2.對于有工作群組又沒有數據庫密碼的Access, 如果你是用戶并且沒有officekey之類軟件﹐在開啟此屏蔽了Shift鍵并且使用了工作群組的Access應用后﹐再用快捷鍵(Ctl+N)新開一個Access, 在此新開的Access中導入屏蔽了Shift鍵的Access的表或連接即一覽無余了.

3.用Officekey之類破解軟件.

作者: linjingdr 时间: 2006-1-1 00:32
这个地址还有图片讲解http://www.office-cn.net/forum.php?mod=viewthread&tid=11804
此主题相关图片如下：

最近经常看到一些关于如何打开已禁止SHIFT键数据库(DB,MDE,ADP,ADE)文件。
'其实使用代码做起来非常简单，只要先建立一个ACCESS。APPLICATION变量，并用这个
'对象启动具体数据库文件，然后就可以修改ACCESS文件的很多设置了
' enablePassKey ("c:\db1.mdb")
' enablePassKey ("c:\db1.adp")
Public Function enablePassKey(ByVal strFileName As String) As Boolean
On Error Resume Next
Dim acc As Object
Set acc = CreateObject("Access.Application")
acc.OpenCurrentDatabase strFileName
acc.CurrentProject.Properties.Add "AllowByPassKey", True
acc.Quit
If Err.Number = 0 Then enablePassKey = True
End Function

作者: jacken 时间: 2006-1-1 00:37
俺试了，第一个显然不得行。第二个用ctrl+N根本就不能够新建ACCESS，第三个我下了一个，但需要注册，还是没得用三。

作者: jacken 时间: 2006-1-1 00:45
明白了，谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)