VBA macro Envelope Sent not working if worksheet is protected?

[FGaxha]

Hi,
I have VBA macro to send Email Envelope attached: It work fine if the worksheet is not protected.
But it doesn't work if I protect worksheet. Any Solution Please?
CODE as below:
Sub SendEmail()
Dim SendingRng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set SendingRng = Worksheets("Subtotal RTO").Range("C1:D5")

With SendingRng

.Parent.Select
.Select

' Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "Hi XXX and YYYY: Total xxxxxxxxx."

With .Item
.To = "fatosgaxha@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Job: " & Sheet1.Range("C55") & " " & " Total xxxxxxxx"
'.Attachments.Add (ThisWorkbook.FullName)
.Importance = 2
.Send
End With


End With

End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False


End Sub

 

[DanteAmor]

Not tested. But before execution you must unprotect the sheet, then you protect it.
Change "abc" to the password of your sheet.
If you don't have a password, then delete "abc":
Sheets("Subtotal RTO").Unprotect
Sheets("Subtotal RTO").Protect

Sub SendEmail()
  Dim SendingRng As Range
 
  On Error GoTo StopMacro
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
 
  Set SendingRng = Worksheets("Subtotal RTO").Range("C1:D5")
 
  Sheets("Subtotal RTO").Unprotect "abc"
 
  With SendingRng
    .Parent.Select
    .Select
    ' Create the mail and send it
    ActiveWorkbook.EnvelopeVisible = True
    With .Parent.MailEnvelope
      .Introduction = "Hi XXX and YYYY: Total xxxxxxxxx."
      With .Item
        .To = "fatosgaxha@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Job: " & Sheet1.Range("C55") & " " & " Total xxxxxxxx"
        '.Attachments.Add (ThisWorkbook.FullName)
        .Importance = 2
        .Send
      End With
    End With
  End With
 
StopMacro:
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
  End With
  ActiveWorkbook.EnvelopeVisible = False

  Sheets("Subtotal RTO").Protect "abc"

End Sub

---------
Note Code Tag:
In future please use code tags when posting code.
How to Post Your VBA Code it makes your code easier to read and copy and it also maintains VBA formatting.
---------

 

[FGaxha]

Thank you sir for your suggestion:
This is a shared workbook and I would like to keep it protected.