Protection d'une feuille

[gerard55]

Bonjour à tous,
J'ai besoin d'un petit conseil: Peut-on écrire un code avec un mot de passe qui verouille une feuille à chaque fois que l'on ferme le classeur ?
Merci d'avance
a+
Gérard

 

[gerard55]

Re : Protection d'une feuille

J'ai essayé de code:
Private Sub Workbook_Open()
Sheets(BB).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
Protect "GG"
End Sub
Mais, le mot de passe n'est pas mémoriser
a+

 

[DoubleZero]

Re : Protection d'une feuille

Bonjour, gerard55, le Forum,

Peut-être ainsi :

Private Sub Workbook_Open()
    Sheets("BB").Protect "GG"
End Sub

A bientôt

 

[gerard55]

Re : Protection d'une feuille

ReBonjour DoubleZero
Je renvoie ma réponse, je l'ai envoyée dans un premier temps sur le post format automatique.

Ce code ne fonctionnait pas. J'ai essayé en le mettant dans le classeur ou dans la feuille. Il ne me demandait rien à l'ouverture. j'ai donc abandonné. Merci néanmoins d'avoir essayé. J'aurai du vous retourner la réponse. Excusez moi.
a+
Gérard

 

[gerard55]

Re : Protection d'une feuille

ReBonjour DoubleZero
Je viens de me repencher à nouveau sur ce code. Il fonctionne. Je n'essayais pas d'écrire de sorte que rien ne se passait. Mais dès que l'on veut faire une modif il nous indique que la feuille est vérouillée. c'est nickel.
Merci à +
Gérard

 

[gerard55]

Re : Protection d'une feuille

Bonjour Double Zero
Peut-on avoir ce mëme code qui permette de consulter les données en utilisant le filtre automatique sans avoir besoin de déverouiller.
Private Sub Workbook_Open(q
Sheets("BB").Protect "GG"
End Sub
Merci d'avance
a+
Gérard

 

[gerard55]

Re : Protection d'une feuille

bonsoir

Sub Macro1()
Sheets("BB").Protect Password:="GG", AllowFiltering:=True
End Sub

Bonjour Jean Marcel et merci ça fonctionne très bien
a+
Gérard