Fichier Excel protégé avec des macros

Le code d'erreur ? erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range

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

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

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

Awnnnnn un immense merci à vous. J'essaie tout ça et je vous en redonne des nouvelles sans faute. :-)

Sylmarco

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

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

Ohhhhhhhhhhhhh yessssssssssssss, ça fonctionne super bien. Désolée du délai, j'étais en vacances.

Un immense merci à vous :-)

C'est fait et merci beaucoup. Incroyable de savoir que ce site superbe nous aide de partout dans le monde :-)

Sylmarco