[ résolu] Private Sub ?!

[cissou69]

Bonjour,

Après avoir parcouru plusieurs sujets, je n'arrive pas à trouver une solution pour mon problème.

Je cherche comment créer une Sub qui ne sois pas disponible lorsqu'on fait Alt+F8 depuis le fichier excel (soit une Private Sub) mais qui soit possible de faire un call depuis une autre sub ...

L'idée est de créer un module de déprotection d'un fichier et que je puisse l'appeler dans mes différentes sub sans qu'il soit disponible depuis le menu "Alt+F8" dans excel lorsque le fichier est verrouiller.

Merci d'avance pour votre aide,

Cissou

 

[mintri]

Re : Private Sub ?!

Hello cissou,

Ca ne marche pas avec un private sub ? Il me semblait que ça fonctionnait et que ça ne s'affichait pas dans le menu des macros.

 

[Softmama]

Re : Private Sub ?!

Bonjour,

Soit une private Sub qui doit du coup être placée dans le même module que la procédure appelante, soit une Sub avec des faux paramètres comme ceci par exemple :

Sub Test(Optional Zap as Byte)
'.....
end sub

 

[cissou69]

Re : Private Sub ?!

Mintri,

La Private Sub ne s'affiche pas dans le menu des macros mais ne peut pas être appelé dans un module différent ...

Softmama,

Je ne comprends pas très bien le coup des faux paramètres par exemple mon module de déprotection

Private Sub Deprotection()

Application.ScreenUpdating = False

Dim s As Worksheet

'Déprotection du classeur
ActiveWorkbook.Unprotect "3xc3l"

'Déprotection des onglets
For Each s In Worksheets
    s.Unprotect "3xc3l"
Next s

Application.ScreenUpdating = True

End Sub

 

[mintri]

Re : Private Sub ?!

Ha merci pour l'info cissou, je ne savais pas

 

[Softmama]

Re : Private Sub ?!

tu la remplaces par :

Private Sub Deprotection(Optional FauxParamètre as Byte)

Application.ScreenUpdating = False

Dim s As Worksheet

'Déprotection du classeur
ActiveWorkbook.Unprotect "3xc3l"

'Déprotection des onglets
For Each s In Worksheets
    s.Unprotect "3xc3l"
Next s

Application.ScreenUpdating = True

End Sub

 

[cissou69]

Re : Private Sub ?!

Oui mais comment tu l'appelles dans le second module ?
Car c'est bien l'idée de base un module pour chaque procédure.

Merci de ton aide,

 

[Softmama]

Re : Private Sub ?!

pardon, je me suis trompé, tu vires le private et tu places ta macro dans le module de ton choix :

Sub Deprotection(Optional FauxParamètre as Byte)

Application.ScreenUpdating = False

Dim s As Worksheet

'Déprotection du classeur
ActiveWorkbook.Unprotect "3xc3l"

'Déprotection des onglets
For Each s In Worksheets
    s.Unprotect "3xc3l"
Next s

Application.ScreenUpdating = True

End Sub

 

[cissou69]

Re : Private Sub ?!

Merci beaucoup !!
J'ai modifié mon fichier et j'ai le résultat que je souhaitais.