Accès base structure masqué

[erwan]

C'est une base protégé. Je n'arrive à ouvrir la base sous designer. Comment faire pour pouvoir éditer la base sous designerJ'ai essayé de faire une copie de la base sans la copie de la LCA, même message.2ème précision: J'ai essayé une réplique de la structure seule de la base en local sans répliquer la LCA, même messageComment remédier au problème.URGENTMerci d'avance.

[Rigol'man]

la base est elle en local ?[%sig%]

[Rigol'man]

kel est ce message dont vous parlez ?[%sig%]

[erwan]

la base est sur le serveur et je l'ai copie en local sur ma machine ss copier la lca. Je me suis donner les droits de concepteur sur cette base et qd je veux l'ouvrir j'ai ce message :"la structure de cette base etant masque, vous ne pouvez la voir"

[Sylvain]

Tu ne peux pas déprotéger à l'aide du designer. Sinon ya plus d'intéret de proteger. Néanmoins, tu peux le faire à l'aide de l'API notes. En cherchant un peu sur google tu peux trouver des petits softs qui le font, je n'ai plus de nom en tête, si ça me reviens...[%sig%]

[Rigol'man]

bonjourcrée un agent avec ce code :declarations :Const APIModule = "NNOTES" ' Windows/32 onlyConst REPLFLG_HIDDEN_DESIGN = &H0020Type ReplicaInfo ID(1) As Long Flags As Integer CutoffDays As Integer CutoffDate(1) As LongEnd TypeDeclare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _( Byval P As String, H As Long) As IntegerDeclare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _( Byval H As Long) As IntegerDeclare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As IntegerDeclare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _( Byval H As Long, R As ReplicaInfo) As IntegerDeclare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _( Byval H As Long, R As ReplicaInfo) As IntegerInitialize :Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase Call HideDesign(db, False)End SubSub 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 hDBEnd Subtu rentres dans ta base, lance cet agent et normalement tu devrais voir la structure.[%sig%]

[Stephane Maillard]

Bonjour,Revoilà le fameux flag 20, mais je croyais que celà ne fonctionnait plus avec la V5.x[%sig%]

[Rigol'man]

serveur : 5.010client : 5.011 et ca marche, je viens d'essayer ![%sig%]

[erwan]

Je te remercie ca fonctionne, merci bcpbonne fin de journee