OVH Cloud OVH Cloud

mot de passe et hyperhiden

3 réponses
Avatar
Stéphane
Bonjour,

J'ai prot=E9g=E9 une feuille et mis un mot de passe.

Je souhaiterais savoir s'il existe une macro qui permet de=20
la d=E9prot=E9ger (avec le mot de passe)lorsque jouvre le=20
WorkBook et qui la reprot=E8ge avec le m=EAme mot de passe=20
quand je la cache.


De plus j'aimerais savoir s'il existe une macro qui permet=20
d'afficher une feuille qui est hyperhiden et une macro qui=20
permet de mettre une feuille en hyperhiden.

Merci beaucoup pour votre aide

amicalement

St=E9phane

3 réponses

Avatar
Joel
Bonjour Stéphane

Dans le module privé du Classeur :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("KelFeuille").Protect "MoDePasse"
End Sub

Private Sub Workbook_Open()
Worksheets("KelFeuille").Unprotect "MoDePasse"
End Sub

Bon courage
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Stéphane" a écrit dans le message de
news:219901c4a21c$6d8ce230$
Bonjour,

J'ai protégé une feuille et mis un mot de passe.

Je souhaiterais savoir s'il existe une macro qui permet de
la déprotéger (avec le mot de passe)lorsque jouvre le
WorkBook et qui la reprotège avec le même mot de passe
quand je la cache.


De plus j'aimerais savoir s'il existe une macro qui permet
d'afficher une feuille qui est hyperhiden et une macro qui
permet de mettre une feuille en hyperhiden.

Merci beaucoup pour votre aide

amicalement

Stéphane
Avatar
impossible de protéger/déprotéger via macro q'il y a un
mot de passe (enfin à ma connaissance)

tik

-----Message d'origine-----
Bonjour,

J'ai protégé une feuille et mis un mot de passe.

Je souhaiterais savoir s'il existe une macro qui permet
de

la déprotéger (avec le mot de passe)lorsque jouvre le
WorkBook et qui la reprotège avec le même mot de passe
quand je la cache.


De plus j'aimerais savoir s'il existe une macro qui
permet

d'afficher une feuille qui est hyperhiden et une macro
qui

permet de mettre une feuille en hyperhiden.

Merci beaucoup pour votre aide

amicalement

Stéphane
.



Avatar
papou
Bonjour
1°) Dans le code de ThisWorkbook
Private sub workbook_Open()
Worksheets("LaFeuill").Unprotect("toto")
End sub
2°) Dans le code de ta feuille
Private Sub Worksheet_Deactivate()
If Me.Visible = xlSheetHidden Then
Me.Protect ("toto")
End If
End Sub
3°) Dans un module
Sub AfficheMoi()
Worksheets("LaFeuill").Visible = xlsheetvisible
End Sub
Sub CacheMoi()
Worksheets("LaFeuill").Visible = xlsheetveryhidden
End Sub

Cordialement
Pascal

"Stéphane" a écrit dans le message de
news:219901c4a21c$6d8ce230$
Bonjour,

J'ai protégé une feuille et mis un mot de passe.

Je souhaiterais savoir s'il existe une macro qui permet de
la déprotéger (avec le mot de passe)lorsque jouvre le
WorkBook et qui la reprotège avec le même mot de passe
quand je la cache.


De plus j'aimerais savoir s'il existe une macro qui permet
d'afficher une feuille qui est hyperhiden et une macro qui
permet de mettre une feuille en hyperhiden.

Merci beaucoup pour votre aide

amicalement

Stéphane