Macro ... oui mais comment ?

[Fireman.80]

Bonsoir,

J'ai un classeur avec une vingtaine de feuilles que je cherche à protéger et à déprotéger rapidement.

J'ai trouvé une solution sur le forum mais on me propose une macro que voilà

Bonsoir à tous,
Un autre exemple pour protéger touts les feuilles d'un classeur en une seule fois :
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="chris"
Next Feuil
End Sub


et pour déprotéger :
Sub DeprotectionToutesLesFeuillesMDP()
Dim MyMtPss As String
MyMtPss = Application.InputBox("Mot de passe pour continuer")
If MyMtPss <> "chris" Then Exit Sub
MsgBox "Attention, toutes les feuilles vont être déprotégées"
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="chris"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub


Ces 2 macros me servent dans un de mes fichiers et çà fonctionne impeccable. Merci à l'auteur dont j'ai oublié le nom mais je les avais trouvé sur ce forum.
Bonne soirée.
__________________
@+ sur le forum,
Christophe.

Cependant , je ne sais pas où ni comment faire pour mettre cette macro dans mon classeur. Faut il que je la mette dans une feuille en particulier, comment faire un bouton ??

Quelqu'un peut il m'orienter là dessus ?

Merci d'avance.

FIFI

 

[Dull]

Re : Macro ... oui mais comment ?

Salut Fireman.80, le Forum,

J'ai mis sur le fichier joint les codes que tu as trouvé sur le Forum avec quelques petites modifications et avec ce que tu demande Soitunboutonquiprotègeetquideprotègeàvolonté

Fait Alt+f11 pour voir où ils se trouvent

N'hésite pas si tu as des Problèmes

 

[caline]

Re : Macro ... oui mais comment ?

bonjour et bonnes fêtes à tous

j'utilise également cette macro pour un de mes fichiers ( merci à ce forum), mais régulièrement certains de mes collègues oublient de reprotéger le fichier avant la fermeture,( il s'agit de fichiers horaires), y a t-il un moyen de faire cette protection automatiquement ? comment dois je m'y prendre

merci à vous
Caline

 

[lapix]

Re : Macro ... oui mais comment ?

bonsoir,

tu peux appeler la macro a partir de workbook_close. ca l'executera a chaque fermeture du classeur.

 

[caline]

Re : Macro ... oui mais comment ?

rebonjour et merci à lapix de sa réponse

mais mes connaissances en vba ne sont tjs pas très bonnes alors pourrais tu m'expliquer comment faire pour


appeler la macro a partir de workbook_close. ca l'executera a chaque fermeture du classeur


merci à toi et aux autres

 

[lapix]

Re : Macro ... oui mais comment ?

tu commence avec ALT+F11 pour avoir acces au code

La partie gauche de ton ecran sera separee en 2 dans la hauteur.
Dans la partie haute tu vas boir les objets :
feuil1,feuil2,......Thisworkbook

ensuite tu as 'modules'

Tu double clique sur module pour afficher la liste des modules. Ensuite tu double clique sur le nom d'un module pour l'afficher

Pour ce qui nous interresse, tu double clique sur ThisWorkbook.
Dans la partie droite de la fenetre, tu as un rectangle blanc qui prend la plus grosse partie de l'ecran avec en haut 2 bombo
Dans celui de gauche c'est marqué (général), tu clique pour choisir workbook
dans le combo de droite tu choisis 'workbook_close'

ensuite, entre sub... et end sub, tu tapes le nom de ta macro qui protege

C'est tout

 

[caline]

Re : Macro ... oui mais comment ?

re re lapix

et bien si je reprend le fichier de fireman ds ThisWorkbook et dans workbook
il n'y a pas de 'workbook_close'

pourrais-tu si cela ne te déranges pas faire l'opération dans le fichier de fireman

merci de ta patience

caline

 

[lapix]

Re : Macro ... oui mais comment ?

ci-joint...c'est workbook_beforeclose

re re lapix

et bien si je reprend le fichier de fireman ds ThisWorkbook et dans workbook
il n'y a pas de 'workbook_close'

pourrais-tu si cela ne te déranges pas faire l'opération dans le fichier de fireman

merci de ta patience

caline

 

[caline]

Re : Macro ... oui mais comment ?

Merci

c'est ok

bonne fin d'année et bon début à tous et longue à ce forum
et aux mines de solutions

Caline

 

[courtillon]

Re : Macro ... oui mais comment ?

Bonjour à tous,
Je m'insinue dans ce fil.....
Trés bien cette macro je vais m'en servir en l'adaptant pour l'appli que j'essaye de faire suivant mes connaissances apprises ici sur le tas.
Mais , petite question :
Que rajouter au code et où pour que le MdP quand on le tape s'inscrive avec des **** ?
Et à quoi sert ce bout de code dont je n'ai pas trouvé l'utilité et comme j'aime bien comprendre ce que je fais ...............

""On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"

Bonnes fêtes à vous tous et merci à ceux qui m'ont déja aidé

 

[Fireman.80]

Re : Macro ... oui mais comment ?

B
Que rajouter au code et où pour que le MdP quand on le tape s'inscrive avec des **** ?

Bonjour , ma question rejoint celle de courtillon concernant le masquage du mot de passe comme on travaille souvent à la vue de nombreuses personnes.

De même, quel est le meilleur moyen pour que les utilisateur ne puissent pas lire le mot de passe dans la macro ?

Merci d'avance !

Fireman

 

[Dull]

Re : Macro ... oui mais comment ?

Salut le fil, le Forum

Avec une inputbox jesaispasfairenonplus mais cela serai bien pratique

sinon pour Fireman et courtillon cela est possible avec un Userform
j'aivouluencréerunmaisquandonavuceluideCe lien n'existe plus... on l'adopte


Je joint le fil et n'hésiter pas a lui laisser un mot
Bonne Journée

 

[courtillon]

Re : Macro ... oui mais comment ?

Bonjour à tous et toutes,

Cest vrai que c'est bien fait . Du bel ouvrage .......

mais je recherche plus simple si possible car comme je l'ai déja dit copier bêtement ne sert à rien .
J'aime bien comprendre ce que je fais, il n'y a que comme cela que l'on peut avancer.
Peut être la solution aprés les fêtes car peu de monde en ce moment sur le forum.............................

En attendant,

Meilleurs voeux à vous tous , les bénévoles qui nous ont aidés toute cette année passée et qui je pense ,vont continuer en 2007.
Courtillon

 

[Pierrot93]

Re : Macro ... oui mais comment ?

Bonjour à tous

j'ai pas tout suivi, mais peut être une idée, utiliser une macro à l'ouverture du classeur qui protège toutes les feuilles mais permet d'utiliser d'autres macros sans avoir à protéger déprotéger...

utilisation de l'argument UserinterfaceOnly à "true", ensuite mettre un mot de passse sur le projet VBA.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "Toto", , , , True
Next ws
End Sub

je suis sans doute à coté de la demande mais en tous cas bon réveillon à tous....

@+

 

[courtillon]

Re : Macro ... oui mais comment ?

Bonjour,
Tout fonctionne bien sauf que je n'arrive pas à faire ce qui suit :

Citation:
Posté par courtillon

Que rajouter au code et où pour que le MdP quand on le tape s'inscrive avec des **** ?

Une solution peut être maintenant .....Si l'un de vous posséde une réponse

Bonne journée