Auto_Open ? fjerner Xp tema

Jeg har lavet et faktura program der virker i alle Excel fra 97- 2003.
Men jeg har et lille problem, hvis man bruger WindowsXp og
bruger Xp tema, laver programmet Xp temaet om til Windows standart (Tema = den lyseblå linje med den røde kryds for oven)
Jeg bruger følgende Auto_Open kode.
'************************************
Sub Auto_Open()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    Application.CommandBars("ToolBar List").Enabled = False ' Kun i XP
    For Each MenuObjekt In MenuBars(xlWorksheet).Menus
          If MenuObjekt.Caption <> "&Hjælp (F1)" Then
                    MenuObjekt.Delete
          End If
        Next MenuObjekt
    Toolbars(1).Visible = False
    Toolbars(2).Visible = False
    Toolbars(3).Visible = False
    Toolbars(4).Visible = False
    Toolbars(5).Visible = False
    Toolbars(6).Visible = False
    Toolbars(7).Visible = False
    Toolbars(9).Visible = False
    Toolbars(10).Visible = False
    Toolbars(11).Visible = False
    Toolbars(12).Visible = False
    Toolbars(13).Visible = False
    With Application
        .ShowToolTips = True
        .LargeButtons = False
        .ColorButtons = True
    End With

    Application.OnKey "^{PgUp}", "ikke"
    Application.OnKey "^{PgDn}", "ikke"

    Application.OnKey "~", "Enter"
    'Application.OnKey "{Enter}", "Enter" 'SLET IGEN
   
    Application.OnKey "^{Home}", "Home"
    Application.OnKey "{Home}", "Home"
    Application.OnKey "{End}", "End1"
    Application.OnKey "{Up}", "Op"
    Application.OnKey "^{Up}", "Op"
   
    Application.OnKey "{Escape}", "Esc"
    Application.OnKey "{F4}", "F_4"
    Application.OnKey "{F5}", "F_5"
    Application.OnKey "^{F5}", "ikke"
    Application.OnKey "{F6}", "F_6"
    Application.OnKey "{F1}", "Hjelp"
    Application.OnKey "^{F1}", "ikke"
    Application.OnKey "%{F1}", "ikke"
    Application.OnKey "{F2}"
    Application.OnKey "^{F2}", "ikke"
    Application.OnKey "%{F2}", "ikke"
    Application.OnKey "{F3}", "ikke"
    Application.OnKey "^{F3}", "ikke"
    Application.OnKey "%{F3}", "ikke"
    Application.OnKey "{F7}", "F_7"
    Application.OnKey "^{F7}", "ikke"
    Application.OnKey "%{F7}", "ikke"
    Application.OnKey "{F8}", "F_8"
    Application.OnKey "^{F8}", "ikke"
    Application.OnKey "%{F8}", "ikke"
    Application.OnKey "{F9}", "F_9"
    Application.OnKey "^{F9}", "ikke"
    Application.OnKey "%{F9}", "ikke"
    Application.OnKey "{F10}", "ikke"
    Application.OnKey "^{F10}", "ikke"
    Application.OnKey "%{F10}", "ikke"
    Application.OnKey "{F11}", "ikke"
    Application.OnKey "^{F11}", "ikke"
    Application.OnKey "%{F11}", "ikke"
    Application.OnKey "{F12}", "ikke"
    Application.OnKey "^{F12}", "ikke"
    Application.OnKey "%{F12}", "ikke"
   
 
    Application.OnKey "{Insert}", "Find_kunde"
    Sheets("Faktura").Select
    Zoom_Faktura
    Sheets("Bogfort-Faktura").Select
    Zoom_Faktura
    Sheets("Oplysninger").Select
    Zoom_Oplysninger
    Sheets("Reklame").Select
    Zoom_Reklamer
    Sheets("Kunder").Select
    Zoom_Kunder
    '*******************************
    Sheets("Ubetalte-Faktura").Select
    Zoom_Ark
    Sheets("Betalte-Faktura").Select
    Zoom_Ark
    Sheets("afgraens1").Select
    Zoom_Ark
    Sheets("afgraens2").Select
    Zoom_Ark
    Sheets("afgraens3").Select
    Zoom_Ark
    '*******************************
    Sheets("Firma").Select
    Zoom_Firma
    Range("A2").Select
End Sub
'*************************************
'Samt koden i Workbook er
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
End Sub
'*************************************
En prøve program kan hentes på følgende adresse.
http://www.jpj-webdesign.dk/programmer/
Hjælp er F1
Man bruger den STORE Enter
og bakker ud af alt med Esc