touche de raccourci et private sub

Comment cacher les macros du menu outils -->macros
et avoir les touches de raccourci exploitables

Bonjour,
dans un projet excel je protège des feuilles
pour que l'on ne voit pas les macros dans outils --->macros
je les mets en private

Private Sub Workbook_Open()
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
End Sub

j'ai besoin de faire des manips sur ces feuilles
j'ai créé 2 sub pour verrouiller et devérouiller
les feuilles rapidement avec des touches de raccourci

Sub deverouiller()
'ctrl + y
Sheets("interface").Unprotect ("protection")
Sheets("data").Unprotect ("protection2")
MsgBox "Feuille déprotégée"
Sheets("parametres").Visible = True
End Sub

Sub verrouiller()
'ctrl + l
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
MsgBox "Feuille protégée"
Sheets("parametres").Visible = xlVeryHidden
End Sub

si ces 2 sub sont public on les voit dans outils ----->macros
si ces 2 sub sont private on les voit plus mais les touches
de raccourci ne fonctionnent pas (ctrl + )

Comment cacher les macros du menu outils -->macros
et avoir les touches de raccourci exploitables

merci
patrick

Comment cacher les macros du menu outils -->macros
et avoir les touches de raccourci exploitables

As-tu essayé de donner à tes procédures un paramètre optionnel bidon ?
Par exemple :

Sub deverouiller(Optional bidon)

Sinon, il y a aussi la possibilité de mettre en tête du module où tes
procédures

sont écrites :

Option Private Module

--
Gaenonius

Bonjour,
dans un projet excel je protège des feuilles
pour que l'on ne voit pas les macros dans outils --->macros
je les mets en private

Private Sub Workbook_Open()
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
End Sub

j'ai besoin de faire des manips sur ces feuilles
j'ai créé 2 sub pour verrouiller et devérouiller
les feuilles rapidement avec des touches de raccourci

Sub deverouiller()
'ctrl + y
Sheets("interface").Unprotect ("protection")
Sheets("data").Unprotect ("protection2")
MsgBox "Feuille déprotégée"
Sheets("parametres").Visible = True
End Sub

Sub verrouiller()
'ctrl + l
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
MsgBox "Feuille protégée"
Sheets("parametres").Visible = xlVeryHidden
End Sub

si ces 2 sub sont public on les voit dans outils ----->macros
si ces 2 sub sont private on les voit plus mais les touches
de raccourci ne fonctionnent pas (ctrl + )

Comment cacher les macros du menu outils -->macros
et avoir les touches de raccourci exploitables

merci
patrick

Bonjour
l'option private module se comporte de la même manière
que les private sub
macros non visibles
mais les touches de raccourcis ne lancent pas les macros

merci



"Gaenonius" <noname@nowhere> a écrit dans le message news:
ufzSUfb#EHA.2272@TK2MSFTNGP10.phx.gbl...

Comment cacher les macros du menu outils -->macros

et avoir les touches de raccourci exploitables

As-tu essayé de donner à tes procédures un paramètre optionnel bidon ?
Par exemple :

Sub deverouiller(Optional bidon)

Sinon, il y a aussi la possibilité de mettre en tête du module où tes

procédures

sont écrites :

Option Private Module

--
Gaenonius

Bonjour,
dans un projet excel je protège des feuilles
pour que l'on ne voit pas les macros dans outils --->macros
je les mets en private

Private Sub Workbook_Open()
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
End Sub

j'ai besoin de faire des manips sur ces feuilles
j'ai créé 2 sub pour verrouiller et devérouiller
les feuilles rapidement avec des touches de raccourci

Sub deverouiller()
'ctrl + y
Sheets("interface").Unprotect ("protection")
Sheets("data").Unprotect ("protection2")
MsgBox "Feuille déprotégée"
Sheets("parametres").Visible = True
End Sub

Sub verrouiller()
'ctrl + l
Sheets("interface").Protect ("protection"), userinterfaceOnly:=True
Sheets("data").Protect ("protection2"), userinterfaceOnly:=True
MsgBox "Feuille protégée"
Sheets("parametres").Visible = xlVeryHidden
End Sub

si ces 2 sub sont public on les voit dans outils ----->macros
si ces 2 sub sont private on les voit plus mais les touches
de raccourci ne fonctionnent pas (ctrl + )

Comment cacher les macros du menu outils -->macros
et avoir les touches de raccourci exploitables

merci
patrick