protection visio efficace

[Tyler Durden]

Existe - t - il une manièrede protéger efficacement une feuille visio de la même manière que sous excel (outil, protection) ... la lecture seule ne m'arrange pas puiqu'on ne peut modifier le document uniquement sur le poste ou il a été cré ...

Ce que je voudrai c'est entrer un mot de passe pour débloquer les différents éléments de la page.

Voila le morceaux de code que j'utilise actuellement :

 
Dim UndoScopeID1 As Long
    'On vérifie que l'utilisateur a bien renseigné le bon mot de passe pour débloquer le document
    If txt_debloque.Text = "operation" Then
        
        Application.ActiveWindow.SelectAll
 
   
        UndoScopeID1 = Application.BeginUndoScope("Propriétés de protection")
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockWidth).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockHeight).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockMoveX).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockMoveY).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockAspect).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockDelete).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockBegin).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockEnd).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockRotate).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockTextEdit).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockFormat).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowLock, visLockSelect).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockWidth).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockHeight).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockMoveX).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockMoveY).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockAspect).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockDelete).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockBegin).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockEnd).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockRotate).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockTextEdit).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockFormat).FormulaU = "1"
        Application.ActiveWindow.Page.Shapes.ItemFromID(4).CellsSRC(visSectionObject, visRowLock, visLockSelect).FormulaU = "1"
        Application.EndUndoScope UndoScopeID1, True
        
    End If
    
 

Mon problème c'est que quand je clique sur mon bouton, cela me selectionne tous les éléments de ma page, les pointeurs permettant la rotation, l'agrandissement etc ne sont plus gris mais dès que je reclique à coté cela me regrise tout .... ....

Une solution ? ...

Merci d'avance

[nicolas_151]

Je ne sais pas si tu peut securiser ta page
mais tu peut securiser tes objets

Clique droit sur l'objet -> format -> protection

si ton objet est une forme grouper et que tu veut empécher de selectionner ses formes ouvre la shapesheet dans las section Group Properties

dans la cellule SelectMode mettre 0

[nicolas_151]

Excuse Moi je n'avais pas bien compris

j'ai essayer ton bout de programme

pour eviter une selection de tous tes objets tu retire la ligne

'Application.ActiveWindow.SelectAll qui selectionne tous tes objets
Puis a lieu de metre ActiveWindow.Page remplace le par ActivePage

Ou

si tu veut garder ton programme telle quel

ajoute à la fin de ton programme la commande suivante pour deselectionner tout tes objets

Application.ActiveWindow.DeselectAll