OVH Cloud OVH Cloud

Protéger une feuille masquée???

11 réponses
Avatar
COLLIOURE
OLA à tous et bon Dimanche!
je suis bloqué en cours de manoeuvre : pour éviter des suppressions
intempestives ds une feuille de calcul, je veux la
masquer à l'écran et aussi la protéger par un mot de passe.
Alors , au début, ça va :1/sélection de la feuille par clic en bas
sur son nom 2/ds le menu Format/feuille:masquer ok(la
feuille disparaît) 3/ protection du classeur:outils/protection
puis /protéger le classeur ET le couic est là :que fais-je
ensuite pour arriver à protéger la feuille avec un mot de passe ET puis par
la suite quelle manip pour l'afficher à nouveau???
Merci d'avance de vos conseils éclairés. Cdlt @+

10 réponses

1 2
Avatar
Ricky
Bonjour *COLLIOURE* (et tous les lecteurs)

Fichier / Enregistrer sous / Outils / Options générales

| puis /protéger le classeur ET le couic est là :que fais-je
| ensuite pour arriver à protéger la feuille avec un mot de passe ET
| puis par la suite quelle manip pour l'afficher à nouveau???
| Merci d'avance de vos conseils éclairés. Cdlt @+

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
LeSteph
Bonjour,
au pays Catalan,
Teste d'abord avec un classeur qui sert à rien
parceque ces jours cis s'il n'y avait pas AV Docm et autres
pour me sortir de mes C.......
(pas ma faute il fait trop chaud alors plus de champignons)
http://cocosteph.free.fr/Estival


Exemple pour feuil2
Tu copies les 2 Sub
Alt+F11
Inserer Module
et coller ceci
'*****
Sub Myprotect()
With Worksheets("feuil2")

.Visible = False
.Protect ("labalette")
End With
End Sub
'******
Sub Deprotect()
With Worksheets("feuil2")
.Unprotect
.Visible = True
End With
End Sub
'****

'''Après tu referme VBA
'tu appelle Menu outils macro macros Myprotect Executer
'Ensuite pour déprotèger
'tu appelle Menu outils macro macros Deprotect Executer
'Comme tu le vois le mot de passe est labalette
' ;-) Tu peux adapter tout cela à ta sauce

LeSteph

"COLLIOURE" <no_spam_COLLIOUREchezwdoo.fr> a écrit dans le message de
news:Ob$u4$
OLA à tous et bon Dimanche!
je suis bloqué en cours de manoeuvre : pour éviter des suppressions
intempestives ds une feuille de calcul, je veux la
masquer à l'écran et aussi la protéger par un mot de passe.
Alors , au début, ça va :1/sélection de la feuille par clic en bas
sur son nom 2/ds le menu Format/feuille:masquer ok(la
feuille disparaît) 3/ protection du classeur:outils/protection
puis /protéger le classeur ET le couic est là :que fais-je
ensuite pour arriver à protéger la feuille avec un mot de passe ET puis
par

la suite quelle manip pour l'afficher à nouveau???
Merci d'avance de vos conseils éclairés. Cdlt @+



Avatar
Michel.P
Bonjour à toi COLLIOURE
Sur la base de la réponse de LeSteph et avec un
ptit bout de son code, je t'ai adapté un truc
simple avec un ptit bouton en + sur feuil2 en
considérant que feuil1 doit être cachée.
Je te mail le classeur et à toi de voir et
adpater suivant tes besoins.

Bonne fin d'aprés midi et au plaisir.
Michel

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Avatar
LeSteph
Bonsoir Michel P
Toujours pas Calife, pourtant...!
J'espère que cela tourne bien avec un bouton.
Sinon si quelqu'un veut devenir Vizir il peut essayer
avec un UserForm avec en arrière plan la photo d'Iznogoud.
'lol'
;-)))))

"Michel.P" a écrit dans le message de
news:
Bonjour à toi COLLIOURE
Sur la base de la réponse de LeSteph et avec un
ptit bout de son code, je t'ai adapté un truc
simple avec un ptit bouton en + sur feuil2 en
considérant que feuil1 doit être cachée.
Je te mail le classeur et à toi de voir et
adpater suivant tes besoins.

Bonne fin d'aprés midi et au plaisir.
Michel

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)



Avatar
Michel.P
Salut LeSteph
Non toujours pas Calife, (pas pour demain... mdr
:'( )
Je t'ai pris un tout chtio bout du code de t'as
passé et le ptit truc en plus, un bouton biensur
et ben ça tourne j'ai juste ajouté un goto (y'en
a qui vont pas être content) pour gérer l'erreur
quand tu protège avec un mot de passe..
C'est basic, mais n'est pas le Forum de ce fameux
Visual (et moi j'applique à la lettre, je reste
basic dans ces cas là mdr mdr mdr )
pour ce qui est de l'arrière plan, je garde
l'idée au chaud...dés fois que....
bonne soirée za toi


Sub CBdeproteg()
On Error GoTo fin 'aie aie aie, y'en a qui vont
me tuer
With Worksheets("feuil1")
.Unprotect 'deprotege et demande le MDP s'il y en
a un
.Visible = True 'affiche feuil1
End With
Sheets("feuil1").Activate 'passe à Feuil1
fin:
End Sub

LeSteph a présenté l'énoncé suivant :
Bonsoir Michel P
Toujours pas Calife, pourtant...!
J'espère que cela tourne bien avec un bouton.
Sinon si quelqu'un veut devenir Vizir il peut essayer
avec un UserForm avec en arrière plan la photo
d'Iznogoud. 'lol'
;-)))))

"Michel.P" a
écrit dans le message de
news:
Bonjour à toi COLLIOURE
Sur la base de la réponse de LeSteph et avec un
ptit bout de son code, je t'ai adapté un truc
simple avec un ptit bouton en + sur feuil2 en
considérant que feuil1 doit être cachée.
Je te mail le classeur et à toi de voir et
adpater suivant tes besoins.

Bonne fin d'aprés midi et au plaisir.
Michel

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)



--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)


Avatar
LeSteph
:-DD
Sinon Exit Sub existe aussi
et If (pour tester au lieu de sortir)..
Bonne soirée Za toi Zaussi

Stephane

"Michel.P" a écrit dans le message de
news:
Salut LeSteph
Non toujours pas Calife, (pas pour demain... mdr
:'( )
Je t'ai pris un tout chtio bout du code de t'as
passé et le ptit truc en plus, un bouton biensur
et ben ça tourne j'ai juste ajouté un goto (y'en
a qui vont pas être content) pour gérer l'erreur
quand tu protège avec un mot de passe..
C'est basic, mais n'est pas le Forum de ce fameux
Visual (et moi j'applique à la lettre, je reste
basic dans ces cas là mdr mdr mdr )
pour ce qui est de l'arrière plan, je garde
l'idée au chaud...dés fois que....
bonne soirée za toi


Sub CBdeproteg()
On Error GoTo fin 'aie aie aie, y'en a qui vont
me tuer
With Worksheets("feuil1")
.Unprotect 'deprotege et demande le MDP s'il y en
a un
.Visible = True 'affiche feuil1
End With
Sheets("feuil1").Activate 'passe à Feuil1
fin:
End Sub

LeSteph a présenté l'énoncé suivant :
Bonsoir Michel P
Toujours pas Calife, pourtant...!
J'espère que cela tourne bien avec un bouton.
Sinon si quelqu'un veut devenir Vizir il peut essayer
avec un UserForm avec en arrière plan la photo
d'Iznogoud. 'lol'
;-)))))

"Michel.P" a
écrit dans le message de
news:
Bonjour à toi COLLIOURE
Sur la base de la réponse de LeSteph et avec un
ptit bout de son code, je t'ai adapté un truc
simple avec un ptit bouton en + sur feuil2 en
considérant que feuil1 doit être cachée.
Je te mail le classeur et à toi de voir et
adpater suivant tes besoins.

Bonne fin d'aprés midi et au plaisir.
Michel

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)



--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)





Avatar
COLLIOURE
OLA à tous et merci à tous les deux d'avoir dégainé si vite!
je vous laisse sinon je vais louper mon rituel banyuls du soir !!!
(le dimanche à midi, j'ai droit au muscat de Rivesltes en+)
Bonne semaine et bien cordialement à tous
Avatar
Michel.P
Yes I retiens the leçon (in french of the texte
mdr mdr mdr )

sub Clheure()
If je me léve de mon fauteuil Then je prends
l'apéro
Else
je le prends quand même
end if
' ici début de l'apéro
...
.....
en sub()
mdr mdr mdr

@+

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)
Avatar
LeSteph
ou peut ^tre

Static CestlHeure
Cestlheure=Apero

"Michel.P" a écrit dans le message de
news:
Yes I retiens the leçon (in french of the texte
mdr mdr mdr )

sub Clheure()
If je me léve de mon fauteuil Then je prends
l'apéro
Else
je le prends quand même
end if
' ici début de l'apéro
...
.....
en sub()
mdr mdr mdr

@+

--
merci d'éclairer ma lanterne.
(un jour, serai Calife à la Place du Calife...)



Avatar
LeSteph
Bonne idée
Michel et moi avons déjà commencé
A ta santé..

"COLLIOURE" <no_spam_COLLIOUREchezwdoo.fr> a écrit dans le message de
news:%
OLA à tous et merci à tous les deux d'avoir dégainé si vite!
je vous laisse sinon je vais louper mon rituel banyuls du soir !!!
(le dimanche à midi, j'ai droit au muscat de Rivesltes en+)
Bonne semaine et bien cordialement à tous



1 2