1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
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 |
Partager