Como desabilitar o botão fechar por VBA num Formulário

Option Compare Database
 
'Declarações:
'API Declare para suprimir o Botão Fechar
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Public Sub RemoverBotaoFechar(ByVal hwnd As Long) 
    Const SC_CLOSE = &HF060 
    Const MF_BYCOMMAND = 0 
    Dim hMenu As Long 
    ' Menu handle 
    hMenu = GetSystemMenu(hwnd, 0) 
    ' Remover Botão Fechar 
    RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND
End Sub

Como desabilitar a tecla F11, atalho Janela Base de Dados no MS Access

(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell'TIP: Use code in the Autoexec Macro'
Utilização: If DisableSpecialKeys = True then MsgBox"OK"

Option Compare Database

Public Function DisableSpecialKeys() As Boolean

On Error GoTo Err_DisableSpecialKeys
Dim db As Database
Dim Prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()
db.Properties("AllowSpecialKeys") = False
Set db = Nothing

DisableSpecialKeys = True

Exit_DisableSpecialKeys:
Exit Function
Err_DisableSpecialKeys:

If Err = conPropNotFound Then
Set Prop = db.CreateProperty("AllowSpecialKeys", dbBoolean, True)
db.Properties.Append Prop
Resume Next
Else
MsgBox "Disable did not Work!!"
DisableSpecialKeys = False
Resume Exit_DisableSpecialKeys
End If
End Function

E-mail erro de automação "interface não registado"

(c) 2005 João Tito Lívio 'This code can only be use as a part of an Application and could not be sell

Office, obtenho o erro:

E-mail Automation Error "Interface not registered"
E-mail erro de automação "interface não registado"
(todas ou uma aplicação Microsoft Office System).

Que fazer?

Tenta registar os ficheiros em baixo:

regsvr32 OLE32.DLL
regsvr32 MSRDO20.DLL

Office 2007 e Exchange 12

Se está interessado em experimentar o Windows Vista, o Microsoft Office 2007, o Exchange "12" ou outras versões beta a lançar no futuro, irá definitivamente subscrever o TechNet Beta Central.

Seja o primeiro a conhecer as versões beta do Windows Vista, Office 2007 e Exchange 12!

Registe-se no site do TechNet www.microsoft.com/portugal/technet

Pré-registo das versões beta do Vista, Office 2007 e Exchange 12.
http://www.microsoft.com/portugal/technet/beta/default.mspx

Como soletrar Meses por VBA (Meses para extenso)

'(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

VBA
MsgBox (Format(Now(), "mmmm"))MsgBox ("Mes: " & Format(Now(), "mmmm"))MsgBox ("Mes: " & Format(#1/1/2005#, "mmmm"))

SQL
SELECT Table1.Data, "Mes de: " & Format([Data];"mmmm") AS strMes FROM Table1;

Usar o controlo DialogBox no Office (VBA)

(c) 2002 João Tito Lívio 'This code can only be use as a part of an Application and could not be sell

1. Inserir o Controlo ActiveX
2. Design View ir a INSERT - ActiveX CONTROL
3. Renomear controlo para "cdlg"
4. Copiar código em baixo para o evento CLICK de um Botão de Comando












CÓDIGO

Dim strCaminho As String

With Me.cdlg
' Directorio
InitDir = "C:\"
'Titulo
.DialogTitle = "Localizar Arquivo"
'Filtros
.Filter = "Arquivos(*.txt)*.txtAll Files (*.*)*.*"
.ShowOpen
'Retorna caminho e nome ficheiro
strCaminho = .FileName
End With
MsgBox "Path: " & strCaminho

EXEMPLO

Como desabilitar a Opção "Escrever uma pergunta" no office

(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

Copiar a seguinte linha de código para o Formulário de Abertura

Application.CommandBars.DisableAskAQuestionDropdown = True

Microsoft Picture Manager fica lento ao abrir

'(c) 2006 João Tito Lívio 'This code can only be use as a part of an Application and could not be sell

Todos os caminhos que são acedidos pelo Picture Manager são escritos no ficheiro seguinte OIScatalog.cag, Se os caminhos já não existirem, nomeadamente Locais na Rede poderá causar algum atraso na abertura do programa, então o que fazer?

1. Abrir o ficheiro OIScatalog.cag que está no seu perfil em %\Documents and Settings\\LocalSettings\Application Data\Microsoft\OIS%

2. Procurar por "MRU PATH" e apagar os caminhos que tem a certeza não existirem.