Boa tarde
Versão 2003
Tenho este comando Ao Carregar o formulário.
Se a data do sistema for >= #12/31/2011#, a barra de menu fica oculta.
Mas eu queria se possivel que ficasse visivel mas inativa
If Date >= #12/31/2011# Then
CommandBars("Painel").Enabled = False 'Barra de Menus
Else
CommandBars("Painel").Enabled = True 'Barra de Menus
End If
Versão 2003
Tenho este comando Ao Carregar o formulário.
Se a data do sistema for >= #12/31/2011#, a barra de menu fica oculta.
Mas eu queria se possivel que ficasse visivel mas inativa
If Date >= #12/31/2011# Then
CommandBars("Painel").Enabled = False 'Barra de Menus
Else
CommandBars("Painel").Enabled = True 'Barra de Menus
End If