protection de feuilles

[pat17]

Bonjour le forum,

J'ai une question qui m'embête et je ne vois pas de solution.

Est il possible d'interdire une feuille en écriture mais autoriser la modification par le biais d'un userform

J'espère avoir été clair

Bon courage à tous

 

[jeanpierre]

Re : protection de feuilles

Bonjour pat17,

Oui, en protégeant ta feuille par Outils/Protection, avec ou sans mot de passe.

Et dans le code de l'USF (appelé depuis la feuille active) :

Il te faut déprotéger ta feuille en début de macro et la reprotéger avant de sortir.

ActiveSheet.Unprotect ("ton mot de passe s'il existe")

et

ActiveSheet.Protect ("ton mot de passe s'il existe") avant le End Sub

Bon après-midi.

Jean-Pierre

 

[pat17]

Re : protection de feuilles

Bonjour jeanpierre et merci de ta réponse,

😕 je ne sais pas ou coller ton bout de code

ci joint fichier

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Compte Supprimé 979]

Re : protection de feuilles

Bonjour Jean-Pierre
Salut Pat17,

Qu'elle feuille veux-tu protéger ?


PS : as-tu vu les petites modifs que j'avais apporté à ton fichier 😉😀
https://www.excel-downloads.com/threads/bug-dans-planning.140348/

A+

 

[pat17]

Re : protection de feuilles

rebonjour brunoM45 et le forum,

pour brunoM45

Je souhaite protéger les feuilles de visualisation des salles car je me suis rendu compte que certains modifiaient directement dans les feuilles.

Donc j'ai protégé les feuilles mais lors de la réservation par formulaire ca bug.

De plus je cherche une solution simple pour qu'ils ne puissent pas supprimer ou ajouter d'objet ou d'utilisateurs

cijoint fichier


Bon courage à tous et bonne journée

 

[Compte Supprimé 979]

Re : protection de feuilles

Re,

Tu touveras ci-joint le fichier modifié,

J'ai ajouté :
- une sub Protection()
qui déprotège les feuilles avant modification, puis les protège avec mdp "toto"
- un UsfAdmin
qui demande un mot de passe administrateur "PAT17" pour pouvoir
ajouter/supprimer un objet/utilisateur

Lien vers fichier : Cijoint.fr - Service gratuit de dépôt de fichiers

PS : je n'arrive pas à le mettre sur le forum directement, je le ferais ultérieurement 😱😛

A+

 

[pat17]

Re : protection de feuilles

brunoM45,

super boulot, magnifique.

par contre j'ai réussi à modifier le mot de passe du userform admin mais si je modifie le mot de passe de la protection feuille il y a un bug 😕

peux tu m'expliquer

et encore merci

 

[Compte Supprimé 979]

Re : protection de feuilles

Re,

Les feuilles sont déjà protégées avec le mdp "toto"
si tu changes ce mot de passe tu aura effectivement une erreur
puisqu'Excel n'arrivera pas à déprotéger avec le nouveau

Utilises ce code pour changer le Mdp une partie se trouve dans le module 2

Private Sub ToutProtégé()
  Dim TabF As String, Sht As Worksheet
  ' Remplissage du tableau des feuilles à ne pas prendre en compte
  TabF = "Jours ouvrés;Menu;Data;Params;Cadre;Impression"
  For Each Sht In Worksheets
    ' Si c'est une feuille de planning
    If InStr(1, TabF, Sht.Name, vbTextCompare) = 0 Then
      On Error Resume Next
      Sht.Unprotect Password:="toto"  ' Ancien Mdp
      Sht.Protect Password:="NouveauMdp", DrawingObjects:=True, Contents:=True, Scenarios:=True  ' Nouveua Mdp
      On Error GoTo 0
    End If
  Next Sht
End Sub

A+

 

[pat17]

Re : protection de feuilles

merci brunoM45

ca marche😀

maintenant je travail sur un userform qui permettrait de répéter une réservation récurrente, je pensais modifier le user form de réservation en ajoutant une case à cocher et une liste déroulante permettant de sélectionner de 1 à 7 jours en excluant les WE. 😛

qu'en penses tu ou est il préférable de créer un userform différent peut être plus facile à gerer 😕

à suivre

bonne journée à tous.

 

[Compte Supprimé 979]

Re : protection de feuilles

Re,

Le problème c'est qu'une réservation récurrente ça peut être
- chaque semaine
- chaque mois
- chaque année

Sinon l'idée est bonne, enfin je pense 😉

A+

 

[pat17]

Re : protection de feuilles

j'ai commencé à regarder ce dont on a parlé et j'avoue que je ne sais pas par quel bout commencer.

j'ai modifié le formulaire de réservation afin de cocher par la rubrique concerné.
Je suppose qu'en sortie de formulaire il faut récupérer les dates et les heures des combobox et les coller à j+24h dans le premier cas, j+7 jours dans le second et j+31(selon le mois) dans le troisième. 😱
pour ce qui concerne la suppression, je pense que se sera géré par le userform de suppr

mais là, je suis très loin de ce niveau. 🙁
pouvez vous m'aider. 😛
ci joint fichier sans mot de passe sur les feuille de travail
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Compte Supprimé 979]

Re : protection de feuilles

Pat17,

Comment savoir ou l'on doit s'arrêter pour la réccurence ?

Doit-on prendre en compte la date de fin ?

A+

 

[pat17]

Re : protection de feuilles

Bonjour brunoM45 et le forum

concernant la gestion des dates je pense que si pas de date de fin il faut réserver jusqu'à la fin de l'année.

bon courage à tous et bonne journée