Macro habilitar o quitar barras de herramientas en exc

Bien,
El siguiente código habilita y deshabilita los menús usando funciones API's:
Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Function Encuentra_ventana(Optional ByVal sClass As String = vbNullString, Optional ByVal sCaption As String = vbNullString) As Long
' Autor: César R.
Dim hWndDesktop As Long, hwnd As Long, hProcThis As Long, hProcWindow As Long
hWndDesktop = GetDesktopWindow
hProcThis = GetCurrentProcessId
Do
hwnd = FindWindowEx(hWndDesktop, hwnd, sClass, sCaption)
GetWindowThreadProcessId hwnd, hProcWindow
Loop Until hProcWindow = hProcThis Or hwnd = 0
Encuentra_ventana = hwnd
End Function
Public Sub Desabilitar_menús()
' Autor: César R.
EnableWindow FindWindowEx(Encuentra_ventana("XLMAIN", Application. Caption), 0, "EXCEL2", vbNullString), 0
Application. OnKey "%{F11}", ""
Application. OnKey "%{F8}", ""
End Sub
Public Sub Habilitar_menús()
' Autor: César R.
EnableWindow FindWindowEx(Encuentra_ventana("XLMAIN", Application. Caption), 0, "EXCEL2", vbNullString), 1
Application. OnKey "%{F11}"
Application. OnKey "%{F8}"
End Sub