Как я могу преобразовать макрос, сделанный в Excel 64Bit в 32Bit?

Question

Я сделал несколько макросов в книге Excel для работы, но на моем ноутбуке была установлена ​​64-битная версия, и когда я попробовал новую программу на рабочих ПК, она зависала, потому что у них 32-битная версия, кто-нибудь знаеткак я могу изменить его или адаптировать код?Или я должен начать все заново .. Спасибо.

Я пробовал мысли, которые говорят здесь, но я не могу приступить к работе, я не понимаю, как на самом деле преобразовать ..

https://docs.microsoft.com/es-es/office/vba/Language/Concepts/Getting-Started/64-bit-visual-basic-for-applications-overview

Извините за комментарии, я испанский.

Private Sub Workbook_Open()
    'Hacemos invisible el libro para que solo se muestre el formulario de login
    'Application.ScreenUpdating = False
    Application.Visible = False
    Dim exdate As Date

    'Muestra formulario de entrada de contraseña
    frLogin.Show
    frLogin.txtUser.SetFocus

    ' LLama al procedimiento para que oculte las todas las hojas excepto la de bienvenida
    Call OcultarHojas

    ' LLama al procedimiento para autenticarse en la aplicación
    Call detectausuario

    ' Se pone fecha de fin de licencia al archivo para evitar plagios
    exdate = "18/06/2020"

    ' Se calculan los días que quedan de licencia y se muestra un mensaje con ellos
    If exdate < Date Then

        MsgBox ("Ha caducado la licencia de SiGesPol, " & vbNewLine & "Por favor, póngase en contacto con el propietario del sistema")
        ActiveWorkbook.Close SaveChanges:=False

        ElseIf exdate - Date = 7 Then

            MsgBox ("Quedan " & exdate - Date & " días para finalizar el período de licencia" & vbNewLine & "Póngase en contacto con el propietario para ampliarla."), vbExclamation

    End If

    'Se introduce la leyenda en la barra del título de la aplicación
    Application.Caption = "                         -- SiGesPol AURORA 2.0 --"

    ' Ventana de mensaje al abrir el libro que avisa de los días faltantes para poder denegar dias u horas solicitadas en
    ' tiempo y forma
    MsgBox "                                  ¡ATENCIÓN!" & vbNewLine & "Último día para DENEGAR dias solicitados para el " & Date + 2 & vbNewLine & "Y las horas solicitadas para el " & Date + 1, vbExclamation, "        -- SiGesPol --      AVISO DE FECHA CERCANA"

End Sub