Deshabilitar controles con VBA en Excel 2003.

Desarrollaremos en esta ocasión, empleando VBA, una macro que Habilite o Deshabilite los controles de Guardar y de Guardar como... en Excel 2003, condicionándolo a que algunas celdas estén completadas.
Esto es lo que nos pedía un lector:

...agradecería mucho me pudieran ayudar para conocer las opciones que tengo para poder condicionar el guardar un archivo en excel. Actualmente tengo una hoja en excel con celdas protegidas, no protegidas y validaciones en las mismas, para que el usuario no pueda modificar formato solo llenar con información, la intención es que no pueda guardar el archivo sin antes completar en su totalidad las celdas que debe llenar.

Supongamos un informe que requiere ser rellenado, en algunos campos, por un usuario final, el cual tiene Protegido la Hoja de trabajo, además de con celdas validadas; pretendemos que el usuario no pueda Guardar el fichero hasta que complete la información requerida. Algo sencillo y cómodo de explicar sería plantear una hoja de liquidación de los gastos de viaje, para lo que se requiere al menos identificar a la persona que ha realizado el viaje y el mes al que corresponden los gastos:

Nuestras celdas obligatorias para rellenar son la celda A1 y la celda A2, mientras ambas no estén completadas nuestra Macro no habilitará las opciones de Guardar o Guardar como...
El conjunto de macros a desarrollar, dentro de la ventana de código de la Hoja de trabajo concreta-Hoja1-, serán entonces:

'creamos una macro que deshabilite los controles de Guardar y Guardar como... Private Sub Deshabilitar() Dim cCtl As CommandBarControl With CommandBars("file") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro del menú archivo If Not cCtl Is Nothing Then cCtl.Enabled = False Set cCtl = .FindControl(ID:=748) 'ID 748 para Guardar como... dentro del menú archivo If Not cCtl Is Nothing Then cCtl.Enabled = False End With With CommandBars("document") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro del Documento If Not cCtl Is Nothing Then cCtl.Enabled = False Set cCtl = .FindControl(ID:=748) 'ID 748 para Guardar como.. dentro del Documento If Not cCtl Is Nothing Then cCtl.Enabled = False End With With CommandBars("standard") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro de la barra de herramientas Standard If Not cCtl Is Nothing Then cCtl.Enabled = False End With Set cCtl = Nothing Application.OnKey "^g", "" 'deshabilita el método abreviado de guardar Ctrl+g End Sub

Esta primera macro nos deshabilitará las opciones de Guardar y Guardar como... de los diferentes lugares en que puede aparecer dentro de Excel, ya que hemos indicado la instrucción Enabled =False en todos ellos.
La siguiente macro será:

'creamos una macro que habilite los controles de Guardar y Guardar como... Private Sub Habilitar() Dim cCtl As CommandBarControl With CommandBars("file") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro del menú archivo If Not cCtl Is Nothing Then cCtl.Enabled = True Set cCtl = .FindControl(ID:=748) 'ID 748 para Guardar como... dentro del menú archivo If Not cCtl Is Nothing Then cCtl.Enabled = True End With With CommandBars("document") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro del Documento If Not cCtl Is Nothing Then cCtl.Enabled = True Set cCtl = .FindControl(ID:=748) 'ID 748 para Guardar como.. dentro del Documento If Not cCtl Is Nothing Then cCtl.Enabled = True End With With CommandBars("standard") Set cCtl = .FindControl(ID:=3) 'ID 3 para Guardar dentro de la barra de herramientas Standard If Not cCtl Is Nothing Then cCtl.Enabled = True End With Set cCtl = Nothing Application.OnKey "^g" 'habilita el método abreviado de guardar Ctrl+g End Sub

Esta macro nos habilitará las opciones de Guardar y Guardar como... de los diferentes lugares en que puede aparecer dentro de Excel, ya que hemos indicado la instrucción Enabled =True en todos ellos.
Lo último que nos queda por programar es una llamada a las dos anteriores, condicionada a que las celdas A1 y A2 tengan algún valor editado:

'creamos una macro que 'llame' a las dos anteriores siempre que cambie el contenido de las celdas A1 y A2 Private Sub Worksheet_Change(ByVal Target As Range) 'si A1 o A2 no tienen ningún valor introducido If Range("A1").Value = "" Or Range("A2").Value = "" Then 'ejecuta la macro anterior llamada Deshabilitar Deshabilitar Else 'de lo contrario ejecuta la macro Habilitar Habilitar End If End Sub

Probamos su funcionamiento y vemos que, efectivamente, cuando alguno de los valores exigidos no está completado las opciones de Guardar y Guardar como... están deshabilitadas: