comment sécuriser les feuilles avec un userform

[sesa]

Bonjour,

J'ai un classeur contenant les semaines de l'année 2008, avec un userform qui comporte :
- la date du jour,
- l'heure,
- le nbre de vistes
Et à chaque fois que je l'ouvre il indique les informations citées ci dessus, jusqu'ici tout va.
Ce classeur est en réseau et suis le seul à pouvoir modifier les données dans chaque feuille, et les autres utilisateurs peuvent que regarder le contenu.

Cependant, je voudrais me faciliter la tache sur la fonction : outils, protection, oter la protection ;
car à chaque fois que j'apporte une modif dans une cellule, je suis obligé d'enlever la protection et de la remettre après avoir saisi des nouvelles info.

Avez-vous une solution à me proposer, plus rapide et efficace tout en sécurisant les feuilles avec un mot de passe ?

Merci,
et au plaisir

 

[jeanpierre]

Re : comment sécuriser les feuilles avec un userform

Bonsoir sesa,

Tel que décrit, je ne vois pas d'autres solutions.....

Peut-être une en VBA, mais ce sont les utilisateurs qui risquent de tousser (même les non-fumeurs)

Ce que tu demandes, c'est le plaisir de l'informatique.... quelques limites il y a.

Bon WE

Jean-Pierre

 

[sesa]

Re : comment sécuriser les feuilles avec un userform

Bonsoir Jean-Pierre,

Merci de ta réponse.
Sache quand même lorsque tu es amené à faire outils,protection etc.... une trentaine de fois dans la journée, à force cela devient pénible.
Il serait souhaitable que je trouve une autre façon , et c'est pour ça que j'ai posté.
Si possible un bouton qui permettrait de désactiver ou activer la sécurité afin de saisir et de quitter en la remettant.
Quant aux utilsateurs, du fait qu'ils puissent avoir accès en "lecture seule" cela reste essentiel.
Pour conclure, si il existe une méthode, merci de me la faire connaître.

 

[sesa]

Re : comment sécuriser les feuilles avec un userform

J'avais oublié,

Bon week end à toi aussi.

Salut

 

[jeanpierre]

Re : comment sécuriser les feuilles avec un userform

Re,

Une piste, peut-être un perso.xls, sur ton poste, qui permettrait de lever les protection, et un autre qui les remettrait en place... mais jamais fait....

A suivre donc.

 

[Pierrot93]

Re : comment sécuriser les feuilles avec un userform

Bonsoir Sesa, Jean-Pierre

ci dessous 2 macros, une pour la protection, l'autre pour la dé-protection.
Comme l'a dit Jean-Pierre 🙂, à placer dans le classeur de macros personnelles.

Tu crées ensuite 2 boutons que tu places dans une de tes barres d'outils, et tu y associes les macros.

Option Explicit
Sub protege()
Dim sh As Worksheet
For Each sh In Workbooks("nomdetonclasseur").Worksheets
    sh.Protect "toto"
Next sh
End Sub
Sub deprotege()
Dim sh As Worksheet
For Each sh In Workbooks("nomdetonclasseur").Worksheets
    sh.Unprotect "toto"
Next sh
End Sub

bonne soirée
@+

 

[sesa]

Re : comment sécuriser les feuilles avec un userform

Bonsoir Pierrot, Jean-Pierre,

Tout d'abord je vous remercie.

Pierrot,
J'ai créé dans un classeur contenant 4 feuilles 2 boutons :
1 protege,
2 deprotege.
Cela étant, je n'ai pas réussi à les insérer dans la barre d'outils comme cité dans ta réponse,
sachant que j'ai affecté tes macros en modifiant le nom du classeur et mot de passe.
Tu trouveras un classeur intitulé "test".
Peux tu apporter les modif stp, et de m'expliqeur la marche à suivre pour mes macros futures.
Pour terminer, je me répète, ces macros serviront elles pour toutes les feuilles du même classeur ?
Pour info, je débute dans excel.

Par avance merci de votre aide 🙂

 

[Dull]

Re : comment sécuriser les feuilles avec un userform

Salut sesa, jeanpierre, Pierrot, le Forum

Sur une Idée de MichelXLD Maitre es Macro de ce Forum

Ajout d'une barre Perso Fléches bas en bleu Qui Protège et droite en Vert qui déprotège
et suppression de cette même Barre à la sortie du Classeur

Edition: Fichier à placer dans

C:\Documents and Settings\[B]TonNom[/B]\Application Data\Microsoft\Excel\XLSTART

A chaque fois que tu ouvrira un nouveau fichier ta barre perso sera là

Bonne Journée

 

[Macpoy]

Re : comment sécuriser les feuilles avec un userform

bonjour le forum, sesa, Dull, Pierrot93, jeanpierre,

l'Excellent Thierry avait fait un classeur avec une protection multiniveau.
je l'ai retrouvé dans mes archives, cela pourrat peur être servir ou donner des idées.
bonne journée à tous.

 

[JNP]

Re : comment sécuriser les feuilles avec un userform

Bonjour le forum 🙂,
Une solution pour lancer ta macro facilement, l'équivalent clavier. A charger dans Workbook_Open et dans WorkBook_BeforeClose pour l'annuler:

[COLOR=seagreen]' Déclare Ctrl + Maj + F1 et Ctrl + Maj + F2[/COLOR]
[COLOR=seagreen]' comme raccourcis pour déclencher les macros (Open)[/COLOR]
    Application.OnKey "^+{F1}", "Deprotege"
    Application.OnKey "^+{F2}", "Protege"
[COLOR=seagreen]' Annule ces mêmes raccourcis (Close)[/COLOR]
    Application.OnKey "^+{F1}"
    Application.OnKey "^+{F2}"

Tu trouveras dans l'aide à Onkey les différentes combinaisons possibles.
Bonne journée 😎

 

[sesa]

Re : comment sécuriser les feuilles avec un userform

Bonsoir le forum,

Merci à tous de m'avoir répondu aussi vite 🙂
Vous m'en mettez plein la vue avec les macros. C'est bien MAIS comme dit suis un petit débutant dans ce monde de pro.
Alors voilà, existe t il sur le site des tuto concernant la création des macros pas à pas...
Si oui, merci de me poster le lien afin de mieux comprendre le fonctionnement, et voire même les créer.

Au plaisir😉