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
francois.forcet
On 11 mar, 11:45, "Guillaume MARANDE" wrote:
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Salut Guillaume
Je te propose de mettre dans le ThisWorkbook de ton classeur ces 2 codes :
Private Sub Workbook_Open() Sheets("Feuil1").Unprotect ("Toto") End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Feuil1").Protect ("Toto") Sheets("Feuil2").Protect ("Toto") Sheets("Feuil3").Protect ("Toto") ActiveWorkbook.Close SaveChanges:=True End Sub
Actualise le mot de passe Ici "Toto"
Attention le classeur en se refermant enregistrera automatiquement toutes les modifications réalisées qui sont restées Bien veiller à ne pas laisser des données à ne pas enregistrer avant fermeture
Il serait bien de protéger ces codes à la lecture ainsi : Click droit sur ThisWorkbook/Propriétés de VBAProject Onglet Protection Vérrouiller le projet pour l'affichage Mot de passe identique ou différent Et OK
Celà devrait te convenir Dis moi !!!!
On 11 mar, 11:45, "Guillaume MARANDE" <g.mara...@mulliez.fr> wrote:
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2,
Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en
déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Salut Guillaume
Je te propose de mettre dans le ThisWorkbook de ton classeur ces 2
codes :
Private Sub Workbook_Open()
Sheets("Feuil1").Unprotect ("Toto")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Protect ("Toto")
Sheets("Feuil2").Protect ("Toto")
Sheets("Feuil3").Protect ("Toto")
ActiveWorkbook.Close SaveChanges:=True
End Sub
Actualise le mot de passe
Ici "Toto"
Attention le classeur en se refermant enregistrera automatiquement
toutes les modifications réalisées qui sont restées
Bien veiller à ne pas laisser des données à ne pas enregistrer avant
fermeture
Il serait bien de protéger ces codes à la lecture ainsi :
Click droit sur ThisWorkbook/Propriétés de VBAProject
Onglet Protection
Vérrouiller le projet pour l'affichage
Mot de passe identique ou différent
Et OK
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Salut Guillaume
Je te propose de mettre dans le ThisWorkbook de ton classeur ces 2 codes :
Private Sub Workbook_Open() Sheets("Feuil1").Unprotect ("Toto") End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Feuil1").Protect ("Toto") Sheets("Feuil2").Protect ("Toto") Sheets("Feuil3").Protect ("Toto") ActiveWorkbook.Close SaveChanges:=True End Sub
Actualise le mot de passe Ici "Toto"
Attention le classeur en se refermant enregistrera automatiquement toutes les modifications réalisées qui sont restées Bien veiller à ne pas laisser des données à ne pas enregistrer avant fermeture
Il serait bien de protéger ces codes à la lecture ainsi : Click droit sur ThisWorkbook/Propriétés de VBAProject Onglet Protection Vérrouiller le projet pour l'affichage Mot de passe identique ou différent Et OK
Celà devrait te convenir Dis moi !!!!
JB
Bonjour,
Pourquoi du VBA? Protéger 2 feuilles à l'ouverture? Il suffit de les protéger manuellement. Elles le resteront.
JB On 11 mar, 11:45, "Guillaume MARANDE" wrote:
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Bonjour,
Pourquoi du VBA?
Protéger 2 feuilles à l'ouverture? Il suffit de les protéger
manuellement. Elles le resteront.
JB
On 11 mar, 11:45, "Guillaume MARANDE" <g.mara...@mulliez.fr> wrote:
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2,
Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en
déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Pourquoi du VBA? Protéger 2 feuilles à l'ouverture? Il suffit de les protéger manuellement. Elles le resteront.
JB On 11 mar, 11:45, "Guillaume MARANDE" wrote:
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
stéphane
Bonjour,
placer le code ci-dessous dans l'événement Workbook_Open
Private Sub Workbook_Open()
Const MotdePasse = "123456"
With ThisWorkbook .Sheets("Feuil1").Unprotect password:=MotdePasse .Sheets("Feuil2").Protect password:=MotdePasse .Sheets("Feuil3").Protect password:=MotdePasse End With
End Sub
SB
"Guillaume MARANDE" a écrit dans le message de news: %
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Bonjour,
placer le code ci-dessous dans l'événement Workbook_Open
Private Sub Workbook_Open()
Const MotdePasse = "123456"
With ThisWorkbook
.Sheets("Feuil1").Unprotect password:=MotdePasse
.Sheets("Feuil2").Protect password:=MotdePasse
.Sheets("Feuil3").Protect password:=MotdePasse
End With
End Sub
SB
"Guillaume MARANDE" <g.marande@mulliez.fr> a écrit dans le message de news:
%23F0tRU2gIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2,
Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en
déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
placer le code ci-dessous dans l'événement Workbook_Open
Private Sub Workbook_Open()
Const MotdePasse = "123456"
With ThisWorkbook .Sheets("Feuil1").Unprotect password:=MotdePasse .Sheets("Feuil2").Protect password:=MotdePasse .Sheets("Feuil3").Protect password:=MotdePasse End With
End Sub
SB
"Guillaume MARANDE" a écrit dans le message de news: %
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Guillaume
Merci pour vos réponse.
J'ai réussi à me débrouiller.
Bye
"Guillaume MARANDE" a écrit dans le message de news: %
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2, Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?
Merci d'avance.
Guillaume
Merci pour vos réponse.
J'ai réussi à me débrouiller.
Bye
"Guillaume MARANDE" <g.marande@mulliez.fr> a écrit dans le message de news:
%23F0tRU2gIHA.1132@TK2MSFTNGP06.phx.gbl...
Bonjour,
Jai un fichier Excel 2003 avec plusieurs onglet (Ex : Feuille1, Feuille2,
Feuille3, ....)
J'aimerais ouvrir mon fichier en protégeant les feuilles 2, 3, ... et en
déprotégeant la feuille 1.
Pouvez-vous me dire comment je peux faire cela en Visual Basic ?