Menu

Fichier Excel protégé avec des macros [Résolu]

Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
- - Dernière réponse : sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
- 17 mai 2019 à 18:09
Bonjour,

J'ai préparé un formulaire à remplir pour mes vendeurs. J'ai créé des boutons d'action à prendre (qui sont reliés à des macros) qu'ils doivent compléter et me retourner. J'ai protégé mon document afin qu'ils n'effacent rien. Ils peuvent seulement écrire dans les cellules que j'ai autorisées.

Par contre, je viens de me rendre compte que lorsque nous cliquons sur les boutons d'action, ça m'indique une erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range

Je dois laisser mon document protégé afin qu'ils n'effacent pas mes données, est-ce qu'il y a moyen de pouvoir faire fonctionner mes boutons de macros autrement svp.

Merci beaucoup !

Sylmarco
Afficher la suite 

Votre réponse

8 réponses

Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonsoir

Peux tu nous mettre ton code ?
Cordialement
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Le code d'erreur ? erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonjour
Peux -tu nous mettre le code de la feuille concernée?
Crdlt
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Je voudrais vous joindre mon fichier Excel mais je ne sais pas comment mais voici le code d'une de mes macros :

Sub Envoyer_Outlook()
'
' Envoyer_Outlook Macro
' Envoyer ce fichier Excel par Outlook
'

'
Columns("H:J").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=33
Rows("47:47").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-78
Range("A1").Select
Dim lemail As Variant
Dim source_file As String
source_file = ThisWorkbook.FullName
Set lemail = CreateObject("outlook.application")


With lemail.CreateItem(olMailItem)
.Subject = "Memo for customer #" & Cells(4, 4) & " - " & Cells(5, 4) & " effective until " & Cells(2, 4)
.To = "test@hotmail.com"
.CC = "test1@hotmail.com"
.Body = "Hi Sylvie, Here are the prices to enter for my customer."
strLocation = source_file
.Attachments.Add (strLocation)
.display
End With

End Sub
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Envoie le code avec la ligne qui beug et mot de passe s'il y a
Crdlt
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Désolée je ne comprends pas de quel code vous parlez ? Le code d'erreur ? Si oui, erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range

Mon mot de passe est 123456 et si vous voulez que je vous envoie mon fichier, aucun problème, faites juste me dire comment svp car je ne le sais pas
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonsoir
Tu vas sur ce site et tu reviens coller le lien qui t'est donné
https://www.cjoint.com/
Cordialement
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonjour
Pas de nouvelle ,tu as trouvé la solution?
Crdlt
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Désolée, avec le décalage horaire, je viens juste d'arriver au bureau car il est 8h00 le matin.

Merci beaucoup de votre aide et voici le lien : https://www.cjoint.com/c/IEjmbZxAen0
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonjour
Excuse moi je ne savais pas pour le décalage horaire
Ta macro modifiée

Sub Macro2()
'
' Macro2 Macro
' Sauvegarder ce document en PDF
'
' Touche de raccourci du clavier: Ctrl+j
ActiveSheet.Unprotect "123456" 'ligne qui débloque ta feuille
Columns("H:J").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=21
Rows("47:47").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-27
Range("C1:G76").Select
ActiveSheet.PageSetup.PrintArea = "$C$1:$G$76"
Range("L8").Select
ActiveWindow.SmallScroll Down:=-93
Range("A1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"L:\Departements\Ventes\Privé\Formulaires\Template price for L&B.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveSheet.PageSetup.PrintArea = ""
ActveSheet.Protect "123456" 'ligne qui bloque à nouveau ta feuille
End Sub

Cordialement
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Awnnnnn un immense merci à vous. J'essaie tout ça et je vous en redonne des nouvelles sans faute. :-)

Sylmarco
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Bonjour, je viens de tester et ça m'indique une autre erreur : Erreur d'exécution '424': Objet requis

Ça imprime mon document en PDF même avec le message d'erreur mais ça désactive mon mot de passe.

Voici ce que j'avais inscrit dans mon code de macro :

Sub Macro2()
'
' Macro2 Macro
' Sauvegarder ce document en PDF
'
' Touche de raccourci du clavier: Ctrl+j
'
ActiveSheet.Unprotect "123456" 'ligne qui débloque ta feuille
Columns("H:J").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=21
Rows("47:47").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-27
Range("C1:G76").Select
ActiveSheet.PageSetup.PrintArea = "$C$1:$G$76"
Range("L8").Select
ActiveWindow.SmallScroll Down:=-93
Range("A1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\name\Documents\Template price for L&B.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveSheet.PageSetup.PrintArea = ""
ActveSheet.Protect "123456" 'ligne qui bloque à nouveau ta feuille
End Sub

Merci beaucoup de votre précieuse aide ! Sylmarco
JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64 -
Bonjour,
faute de frappe sur l'avant dernière ligne manque le i à ActiveSheet.Protect"123456" donc ton mot de passe n'est pas réactivé.
Crdlt
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonjour

Est ce que la solution te convient?
Crdlt
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
Ohhhhhhhhhhhhh yessssssssssssss, ça fonctionne super bien. Désolée du délai, j'étais en vacances.

Un immense merci à vous :-)
Commenter la réponse de JCB40
Messages postés
629
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 mai 2019
64
0
Merci
Bonsoir
Si cela te va ,tu peux passer le sujet en résolu(roue crantée en haut a droite)
Bonne continuation au Canada
Cordialement
sylmarco
Messages postés
28
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
17 mai 2019
-
C'est fait et merci beaucoup. Incroyable de savoir que ce site superbe nous aide de partout dans le monde :-)

Sylmarco
Commenter la réponse de JCB40