Lotus notes Lotus Notes数据库设计解锁

在不使用付费软件的情况下，是否可以解锁Lotus Notes数据库设计

---

锁定数据库的人离开了公司，我们没有此应用程序的任何模板。因此，只有解锁此数据库，才能启动此数据库的进一步开发。

例如，您是否已经尝试过谷歌快速推出的版本

Const APIModule = "NNOTES" ' Windows/32 only
Const REPLFLG_HIDDEN_DESIGN = &H0020

Type ReplicaInfo
ID(1) As Long
Flags As Integer
CutoffDays As Integer
CutoffDate(1) As Long
End Type

Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer

Sub HideDesign(db As NotesDatabase, hide As Variant)
Dim hDB As Long
p$ = Space(256)
OSPathNetConstruct 0, db.Server, db.FilePath, p$
NSFDbOpen p$, hDB

Dim R As ReplicaInfo
NSFDbReplicaInfoGet hDB, R
If hide Then
R.Flags = R.Flags Or REPLFLG_HIDDEN_DESIGN
Else
R.Flags = R.Flags And Not REPLFLG_HIDDEN_DESIGN
End If
NSFDbReplicaInfoSet hDB, R

NSFDbClose hDB
End Sub

---

比你帕努！它工作得很好。我想知道当我运行代码时，我也能看到脚本和代理，它们本不应该是可用的？你打开它们并看到代码了吗？我没有尝试过这个（幸运的是几乎从未遇到隐藏设计）。@Rishi我尝试过代码，但看不到公式和LS代码。@Rishi你的数据库版本是什么？@Shelley，我在Notes 8.5中尝试过。。是，某些情况下公式仍然不可用。Notes数据库文件有3种状态。1：开放式设计的Notes数据库。所有脚本和公式都可以访问。2：封闭式设计，当无法访问数据库设计时。所有脚本和公式都存储为已编译的二进制文件，所有源代码都从数据库体中剥离。3：半开放式设计。它类似于第二种状态，但在数据库头中有一个unlocked标志，允许在designer中打开此db。但所有源代码部分都将为空<代码>解锁数据库不会帮助您访问源代码。