Save as zip with a password

Hello,
I have an Excel VBA with the following code to save a file

     Dim strExportDate As String
    strExportDate = Month(Now) & "." & Day(Now) & "." & Year(Now)
    
    ChDir "Y:\global\VOTING INSTRUCTIONS\P"
    ActiveWorkbook.SaveAs Filename:="Y:\global\VOTING INSTRUCTIONS\P\Instructions for P." & strExportDate & ".xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

It works fine, but I would like to know if there is a way I can get it to save as a zip file with a password.

Thanks