protection classeur

[roller]

Salut à tous. j'ai un problème dans ma macro,je voudrais protéger mon classeur mais avec le code que j'ai, c'est que par feuille.Comment je dois faire pour protéger mon classeur?

Private Sub Workbook_Open()
Sheets("feuil1").Protect Password:="toto", userinterfaceonly:=True
End Sub

A+

 

[roller]

Re : protection classeur

Merci à tous de m'avoir aider. 😀 J'ai reussi à protèger mais feuille et mon classeur.
A+

 

[Pasqi]

Re : protection classeur

Bonjour,

Voici un code que l'on m'a fait et qui fonctionne parfaitement pour la protection de classeurs.
L'avantage, il protège les feuilles automatiquement lors de la fermeture du fichier, donc, même en cas d'oubli, pas de soucis.
Avec un raccourci on verrouille et déverrouille très vite toutes les feuilles.

Mettre dans module :

Sub WsLock(Optional Y)
    Dim PWd$
    PWd = "1234"
    'Protége ou déprotège toutes les feuilles
    Application.ScreenUpdating = False
    If IsMissing(Y) Then
        For i = 1 To Worksheets.Count
            Worksheets(i).Protect PWd
            [A1].Select
        Next
    Else
        For i = 1 To Worksheets.Count
            Worksheets(i).Unprotect PWd
            [A1].Select
        Next
    End If
End Sub

Sub deprotege()
    WsLock 0
End Sub

Sub protege()
    WsLock
End Sub

Juste remplacer 1234 par ton mot de passe.

et mettre dans "this worbook" le code suivant :

Sub Workbook_BeforeClose(Cancel As Boolean)
        'Protéger les feuilles du classeur
        WsLock
        End Sub

Voilà,

Bonne journée à tous

 

[roller]

Re : protection classeur

bonsoir , Pasqi

NIckel ce petit code.Tu a pas le même pour le classeur?😀


A+

 

[jeanpierre]

Re : protection classeur

Bonsoir roller, le fil,

Essaie avec l'enregistreur de macro....

Outils/Macro/Enregistrer une macro.

Tu fais ta manip.et tu arrêtes l'enregistrement, soit par le bouton noir de la barre d'outils nouvellement créée, soit par le même menu mais Arrêter l'enregistrement.

Alt F11 et tu trouveras le code à modifier dans les procédures précédentes.

Bonne soirée.

Jean-Pierre

 

[roller]

Re : protection classeur

Bonsoir jeanpierre,
Merci pour ton aide, mais avec l'enregisteur on peux pas tout faire(je crois"débutant").
Comment je fais, si je veux que mes feuilles ce protége quand je ferme mon classeur, ou protéger mes feuilles mais me servir de mon userform?


A+

 

[jeanpierre]

Re : protection classeur

Re,

Comprends plus très bien, un coup tu parles de classeur, c'est une chose, un coup tu parles des feuilles c'est autre chose et à ce sujet tu as déjà des réponses....

Si tu veux te servir de ton UserForm, il faut, lors de l'appel de ces fonctions vers les feuilles, les déprotéger et les reprotéger à la fin du traitement. Là aussi tu as réponse sur les posts au dessus (le mien le 12/11 à 10h23, j'ai pas tout relu ensuite...).

Précise ta pensée.

Pour l'enregistreur, on peut presque tout faire, le cas dans ton cas.

Bonne soirée.

Jean-Pierre