Ajuda

[Gê_desenvolvimento]

Gente Urgennnnte criei uma macro para fechar uma planilha e agora quero desabilitar o boão fechar no documento. sei que é possivel pois já vi documentos assim

naõ é fexar só documento é fexar o excel.

quero desabilitar o "X" vermelho que fexa tudo

[Graymalkin]

Bom, pelo que eu encontrei no Google, só via API. Neste link aqui tem um exemplo para Access: http://www.techonthenet.com/access/modules/hide_close.php

O exemplo do link adaptado para o Excel:

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub HideExcelCloseButton()

    Dim lngStyle As Long

    lngStyle = GetWindowLong(Application.hwnd, GWL_STYLE)
    lngStyle = lngStyle And Not WS_SYSMENU
    Call SetWindowLong(Application.hwnd, GWL_STYLE, lngStyle)
    Call SetWindowPos(Application.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub

Basta executar a rotina HideExcelButton para sumir com os botões da barra.

Abraços,

Graymalkin

[RenatoMejias]

Poxa Graymalkin, que complicação para fazer uma coisa tão simples, bem que a Microsoft poderia disponibilizar uma propriedade no form para fazer isso, igual no VB6. Enfim, eu também não sabia fazer isso, foi algo a mais que aprendi :). Obrigado!

[bEbEr]

meu deuss

q complicação!!

basta colocar o seguinte código no seu UserForm:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

MsgBox "Clique no botão SAIR para fechar a janela!"

Cancel = True

End If

End Sub

Lembrando que dai, para fechar a janela teria que criar um botão chamado SAIR e nele inserir o seguinte código:

UserForm.Hide

Valeuu

;)

[Graymalkin]

A questão é que o caboclo pode *não* ter um UserForm no projeto (como eu, que espalho botões pela própria planilha... :)).

Abraços,

Graymalkin