verrouillage feuilles Résolu

Question

Bonsoir,je voudrais créer une macro pour vérrouiller la feuilles aprés enregistrer et quitter le documment .Est-ce possible , doit t'on créer un bouton avant de faire la macro.
Merci à celui ou celle ki m'aidera.

Raymond PENTIER · Answer

Des feuilles de quoi ?
Veux-tu préciser le logiciel et sa version ...

chacha · Answer

sur excel

Mike-31 · Answer

Salut,

Explique clairement ce que tu veux faire, l'histoire du bouton n'est pas un probléme, ni d'écrire un code, le problème est de savoir ou le mettre en fonction du résultat attendu

tu as une feuille de calcul, est elle protégée avec des cellules déverrouillées ce qui permet la saisie que dans ces cellules !

que veux tu dire par verrouiller les feuilles, à la fermeture veux tu mettre un mot de passe qui te sera demandé pour réouvrir ce fichier !

complété d' un enregistrement automatique et fermeture du fichier !

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Plusieurs possibilités,

1/ tu souhaites que seulement les personnes habilitées puissent avoir accès au fichier,

Si c’est un nouveau fichier que tu enregistre pour la première fois ENREGISTRER, si c’est un fichier existant ENREGISTRER SOUS et avant de confirmer l’enregistrement dans la boite de dialogue Enregistrer sous tu remarqueras dans la barre d’outils OUTILS clic dessus et sur Options Générales dans mot de passe pour la lecture saisis un mot de passe que tu confirme, ce mot sera obligatoire pour l’ouverture du fichier

2/ tu souhaites que ce dossier puisse être consulté, mais modifié seulement par les personnes procédant le mot de passe, dans ce cas à la place de saisir le mot de passe dans mot de passe pour la lecture tu le saisis dans mot de passe pour la modification
A l’ouverture du fichier le mot de passe est demandé, si tu ne l’a pas tu peux afficher le fichier en lecture seule et l’enregistrement est impossible

3/ tu peux mettre un mot de passe pour la lecture et un mot de passe différent pour la modification ce que permet de limiter la lecture à certaines personnes possédant le code pour la lecture et les personnes possédant les deux codes pour l’ouvrir et le modifier

Pour l’enregistrement automatique, c’est tout à fait possible, à la fermeture du fichier, sans faire apparaître la boite de confirmation. Mais il y a un risque, s’il est commis une boule sur le fichier, tu le fermes sans l’enregistrer, à l’ouverture tu le récupères. Avec un enregistrement automatique tu ne contrôles plus

Pour mettre un code quatre chiffres en fonction de la demande en A, en B lors de la première intervention, exemple A2 l’intervention et en B2 saisis le premier code exemple 1111 en B3 colles cette formule et incrémente la vers le bas
=SI(A3<>"";B2+1;"") si tu souhaites commencer le code à 0001 il faudra mettre la colonne en Format/Cellule/Nombre/Personnalisé saisir dans Type saisir quatre zéro 0000

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Je ne comprends pas très bien, Puis je recopier mot à mot la formule, sans enregistrer la manip

Si ta macro rempli le rôle attendu tu peux la recopier mais sans enregistrer la manip que veux tu dire !

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

on peut créer une formule, ou une fonction personnalisé ou utiliser une fonction d'Excel, dans ce cas il faut activer auparavant la macro complémentaire "Utilitaire d'analyse" (Outils/Macros complémentaires/cocher Utilitaire d'analyse)

pour une date en  A5 par exemple la formule sera

=NO.SEMAINE(A5)

sinon tu as

=ENT(MOD(ENT((A5-2)/7)+0,6;52+5/28))+1

ou si Outils/Options/Onglet Calcul est coché calendrier depuis 1904

=ENT(MOD(ENT((A5-2+(JOUR(1)=2)*6)/7)+0,6+((JOUR(1)=2)*208);52+5/28))+1

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Je crois qu'il y a confusion

le total d' heure par jour inférieur à 7h30 en rouge et supérieur à 7h30 en rouge

Je ne suis pas sur mon PC, dès que je rentre chez moi je te fais un fichier exemple ce sera plus facile et plus rapide à t'expliquer

Mike-31 · Answer

Re,

Regardes si c'est ce que tu veux

https://www.cjoint.com/?ljlM14YP0j

Mike-31 · Answer

Re,


Dans une cellule saisis 7:00 et fais Format/Cellule/Onglet Nombre/Standard ce qui te donne 0,3125 la même chose pour 37:00 il aurait été possible d'écrire une formule savante pour avoir ce même résultat, autant saisir directement cette valeur

En E3 j’ai une conditionnelle en début de formule qui n’est pas en E2 si on veut la même formule, il est impératif d’avoir en E1 une cellule vide

Pour insérer automatiquement des lignes, c’est possible en VBA, je n’ai pas trop de temps, mais je regarde comment faire quelque chose de simple

Mike-31 · Answer

Re,

Vite fait, regardes ce code qui recherche "ec" en colonne H, si valeur trouvée, insertion d'une ligne au dessous rétabli les formules colonne D et E et efface "ec" pour éviter la création de lignes inutiles

Sub Macro2()
    Dim Lig As Long
    Dim Col As String
    Dim NbrLig As Long
    Dim NumLig As Long
    Dim LigFin As Long
    Col = "H"
    LigFin = [A65536].End(xlUp).Row + 1
    NumLig = 1
    With Sheets("Feuil1")
    NbrLig = .Cells(65536, Col).End(xlUp).Row
    For Lig = 1 To NbrLig
        If .Cells(Lig, Col).Value = "ec" Then
          .Cells(Lig + 1, Col).EntireRow.Insert
        [D3:E3].Copy
        Range([D3], [E65536].End(xlUp)).PasteSpecial Paste:=xlPasteFormulas
          .Cells(Lig, Col).Value = ""
            End If
    Next
    End With
    Range("A2").Select
    Application.CutCopyMode = False
End Sub

Un exemple sur ce lien

https://www.cjoint.com/?looyF4GHYa

Mike-31 · Answer

Re,

L’effacement "ec" est volontaire afin d'éviter la multiplication de lignes si on active accidentellement le bouton.

Explique ce que tu veux dire par
mais par contre si ec s'efface après la ligne inséré peut on mettre une condition a la place (vert par exemple qu’en "ec"), je peut déjà la définir dans la colonne "h" ou pas.
 Veux-tu mettre la ligne en vert lorsqu’il y a ec en H

Par contre est-ce possible de copier la ligne dans le cas "ec" apres son insertion?
Veux tu mettre ec sur la nouvelle ligne en H

Mike-31 · Answer

Te,

remplaces la macro2 dans le module de mon fichier exemple par ce code pour la couleur, pour le reste je vois ça dans la soirée

Sub Macro2()
    Dim Lig As Long
    Dim Col As String
    Dim NbrLig As Long
    Dim NumLig As Long
    Dim LigFin As Long
    Col = "H"
    LigFin = [A65536].End(xlUp).Row + 1
    NumLig = 1
    With Sheets("Feuil1")
    NbrLig = .Cells(65536, Col).End(xlUp).Row
    For Lig = 1 To NbrLig
        If .Cells(Lig, Col).Value = "ec" Then
          .Cells(Lig + 1, Col).EntireRow.Insert
        [D3:E3].Copy
        Range([D3], [E65536].End(xlUp)).PasteSpecial Paste:=xlPasteFormulas
          .Cells(Lig, Col).Value = ""
          .Cells(Lig, Col).Interior.ColorIndex = 4
            End If
    Next
    End With
    Range("A2").Select
    Application.CutCopyMode = False
End Sub

Mike-31 · Answer

Re,

Récupères ton fichier et testes s'il correspond à tes attentes, feuille 1 le déclenchement macro se fait par le bouton, feuille 2 le déclenchement est automatique dès qu'en H il est saisi ec

https://www.cjoint.com/?lovxAq6zBU

lorsque j'aurai cerné tes attentes, il sera peut être possible d'écrire le code différemment

Mike-31 · Answer

Re,

Tu veux que la ligne qui contient "ec" soit recopiée sur la nouvelle ligne créée !

Ou veux-tu additionner la ligne précédente avec la ligne contenant ec !

si c'est cela, le cumul des taches quotidiennes et hebdomadaire seront faut parce que les durées seront totalisées plusieurs fois, ou il faut revoir les formules

Ou veux tu copier les données de A à E concernant nom de techn., date demande etc …

Le principal est que je comprenne, ce qui est évident pour toi l'est moins pour moi vu de l'extérieur

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Testes la feuille 2 du fichier ci-joint, si j'ai tout compris, je pense que la durée de la tache sera à revoir

https://www.cjoint.com/?lpvlCxyN1N

Mike-31 · Answer

Re,

Pour la couleur, elle est prévue dans le code à cette ligne

.Cells(Lig, Col).Interior.ColorIndex = 4

par contre si tu rajoutes des colonnes, les formules vont automatiquement se mettre à jour, il n'en est pas de même pour le code VBA qu'il faudra revoir

pour le T de terminé colonne H tu peux passer par une mise en forme conditionnelle sans problème


quelle formule s'applique à partir de la ligne 11

Mike-31 · Answer

Re,

Dans le classeur que je t'ai envoyé, sur la première feuille tu as un bouton qui déclenche la macro qui se trouve dans le module, mais j'aurai très bien pu mettre le code dans les propriétés du bouton ce qui m'aurait évité d'insérer un module. Dans l'exemple j’ai mis le nom de la macro "Macro2" 

Private Sub CommandButton1_Click()
    Macro2
End Sub

Sur la feuille 2 le code est dans les propriétés de la feuille (clic droit sur l'onglet et visualiser le code). L'intérêt est son déclenchement automatique qui est lié aux saisies de la colonne H

Pour ta question
"Range(ActiveCell, Active Cell.Offset (0, 4) ) .Copy "

sur une ligne précédente, ce code sélectionne la cellule 7 colonne à gauche à partir de la cellule ou il est saisi "ec" autrement dit la cellule colonne A sur la même ligne
.Cells(Lig, Col).Offset(0, -7).Select

et cette ligne 
"Range(ActiveCell, Active Cell.Offset (0, 4) ) .Copy "
sélectionne la plage de la cellule colonne A à la cellule 4 rangs à droite de A, c'est à dire de A à E pour la copier

Plus haut dans le code, cette ligne, recopie les formules de la colonne I et J deux lignes plus basses que la cellule ou est saisi "ec".
Range([I3], [J65536].End(xlUp).Offset(2, 0)).PasteSpecial Paste:=xlPasteFormulas

Si sur plusieurs lignes à la suite il n'est pas saisi "ec" il est possible que des lignes ne soient pas renseignées. Pour une marge de sécurité il est possible d'augmenter la copie des formules d'une dizaine de lignes voire plus

Range([I3], [J65536].End(xlUp).Offset(10, 0)).PasteSpecial Paste:=xlPasteFormulas

Mike-31 · Answer

Re,

Je t’ai écrit ces deux procédures de sorte que tu fasses un choix

Si tu déclenches la macro avec un bouton le plus simple, est de placer le code dans un module, créer un bouton avec la barre d’outils Formulaires et l’associer à ta macro (clic droit sur le bouton/affecter à une macro)
Si tu souhaites le déclenchement automatique et que ça s’applique à une feuille, dans les propriétés de la feuille (clic droit sur l’onglet/Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)

Placer ici le code

End Sub

Si tu souhaites te servir de ce code sur plusieurs feuilles, avec déclenchement automatique, places le code dans un module 

Sub Macro2()

Ici le code

End Sub

Et dans les propriétés de chaque feuille colles ce code

Private Sub Worksheet_Change(ByVal Target As Range)
Macro2
End Sub

Mike-31 · Answer

Non, erreur de ma part, dans le code tu trouveras cette ligne 
With Sheets("Feuil2")

Si tu souhaites attribuer ce code à une feuille nous sommes contraints à placer le code dans chaque propriété de feuille et surtout pour la feuille2
With Sheets("Feuil2")
With Sheets("Feuil3") pour la Feuille 3 etc …ou remplacer Feuil(x) par le nom de la feuille

Private Sub Worksheet_Change(ByVal Target As Range) 

Placer ici le code 

End Sub

sinon il faut que je revoie le code, ce que je ferai plus tard

Mike-31 · Answer

Re,

J'ai eu deux minutes pour revoir le code.

Dans le module tu trouveras cette ligne

With Sheets("Feuil2")

remplace la par 

With ActiveSheet

ensuite dans chaque propriété de feuille que tu comptes utiliser la macro, colles ce petit bout de code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Or Target.Column <> 8 Then Exit Sub
Macro2
End Sub

la macro se déclenchera automatiquement lorsque tu saisras "ec"

Mike-31 · Answer

Re

https://www.cjoint.com/?lxjYuXfG5u

Si tu n'aurrives pas à adapter le code, mets ton fichier sur un message privé (clic sur mon pseudo et message privé)

Verrouillage feuilles - Page 1

Discussions similaires

Newsletters