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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
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
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
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
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" a écrit dans le message news: ufzSUfb#
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
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" a écrit dans le message news: ufzSUfb#
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
Gaenonius
Mais un paramètre bidon donne le résultat souhaité ?
-- Gaenonius
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" a écrit dans le message news: ufzSUfb#
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
Mais un paramètre bidon donne le résultat souhaité ?
--
Gaenonius
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
Mais un paramètre bidon donne le résultat souhaité ?
-- Gaenonius
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" a écrit dans le message news: ufzSUfb#
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