Discussion :

[PullOff44]

Bonjour,

J'ai une feuille Calc dans laquelle certaines cellules sont verrouillées et la feuille est protégée.

J'ai inséré des macros qui permettent de trier cette feuille (assignées à des boutons). Seulement, je n'arrive pas à écrire une routine qui déprotège (nécessaire pour le tri) et reprotège (de préférence en intégrant le mot de passe) cette feuille.
J'ai créé des macros de protection et de déprotection (en réalisant les opérations) que j'ai appelé dans mes routines de tri, mais cela ne fonctionne pas, cela ouvre la boite de dialogue de protection de feuille, ce que je ne veux pas ...

D'avance merci, si quelqu'un a une idée ..

[zoom61]

Salut,

Avec quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub mdpTableur()
Dim monDocument As Object, motPasse As String
 
    monDocument = ThisComponent
 
    if monDocument.isProtected then
        monDocument.unprotect("PullOff44")
    else
        monDocument.protect("PullOff44") ' mettre un mot de passe
    end if
 
End Sub

Cdlt.

[PullOff44]

Salut,

Avec quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub mdpTableur()
Dim monDocument As Object, motPasse As String
 
    monDocument = ThisComponent
 
    if monDocument.isProtected then
        monDocument.unprotect("PullOff44")
    else
        monDocument.protect("PullOff44") ' mettre un mot de passe
    end if
 
End Sub

Cdlt.