Thank you for the reply, June.
For the Emailing Issue:
I have found email code online similar to the link you provided, but no matter which code I try from online it wont go past the "Dim appOutLook As Outlook.Application" line in the code. My Access does not have the Microsoft Outlook 12.0 Object Library that is referenced in the link you provided, which may be the cause of this particular issue. Instead, I have the Microsoft Outlook 14.0 Object Library. Is there a different code needed for the newer version of the Object Library? I have verified that the 12.0 library is not even available for me to "check" in the list of Available References.
For the Protected Sheet Issue:
As I mentioned in my original post, the code I am currently using will open the Excel workbook and call an Excel Macro that will Protect Sheet, then save the workbook and close the excel application. However, I would prefer to use Access VBA code to protect and unprotect the sheet (as opposed to calling the Excel Macro to Protect Sheet). Unfortunately I am not sure what the proper code is to Protect Sheet (instead of Protect Workbook). I was hoping someone on here might know how to do this.
Code:
Function EmailCountSheets()
Dim dbs As Database
Set dbs = CurrentDb
Set excelApp = CreateObject("Excel.application", "")
excelApp.Visible = False
Set Workbook = excelApp.Workbooks.Open("file path") 'In my actual code, I have the actual File path, but I chose not to share it here
'In my actual code, I have it calling an Excel Macro to Protect Sheets, but this is what I would like to change. This is where I need some help. What code could I use to have Access Protect the Sheet?
Workbook.Save
excelApp.Application.Quit
'After the Sheet is protected, I want to email it (see post for the issues I had with the email code)
'After the email is sent, I want to Unprotect the Excel Sheet
End Function
Thank again for any assistance anyone is able to provide. I appreciate your time and your expertise!