Forhindre bruger i lukning af program

I Excel VBA kan du f.eks. skrive

Application.Visible = False

Programmet kører så stadigvæk, men vil ikke være synlig for brugeren.

Ok, det giver nogle muligheder...
men det jeg gerne vil, er at forhindre brugeren i at kunne lukke excel ( f.eks ved et uheld)... (mit problem er at det tager meget lang tid at starte applikationen op igen)...

Hvis Excel kører usynligt fra starten, vil brugeren ikke kunne lukke den ned medmindre de dræber Excel processen fra Task Manageren. Du skal bare huske at lukke Excel ned fra koden f.eks.

Application.Quit

Hvilket program kalder du Excel fra ?

Hej blackadder!

Excel startes ved PC'ens opstart...
kan det lade sig gøre at starte excel usynligt fra "start-menu" ( jeg anvender XP)...

Det er nødvendigt at brugeren kan se og indtaste i forskellige ark, disse ark kaldes fra et andet program via dde.

Jeg har mulighed for at aktivere diverse macro i excel via DDE. Excel anvendes sammen med et SCADA-system ( RS-View 32 fra Rockwell Software ).

For god ordens skyld, her er den løsning jeg har fundet...

Private Const MF_BYPOSITION As Long = &H400   
''' Deletes the menus byposition (this is our default)

Private Const MF_BYCOMMAND As Long = &H0       
''' Deletes the menu by Command ID. This is rarely used and is shown here
for information purposes only.

Private Const mlNUM_SYS_MENU_ITEMS As Long = 9 
''' This is the number of items on the system menu

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,
ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As
String, ByVal lpWindowName As String) As Long


' Comments:  Deletes the system control menu of the specified window.
'
' Arguments:  DialogCaption The caption of the window whose control
'                          menu you want to delete. If not specified,
'                          Application.Caption is assumed.
'
Public Sub DisableActiveDialogMenuControls(DialogCaption As String)
    Dim lHandle As Long, lCount As Long
    On Error Resume Next
    DialogCaption = DialogCaption & vbNullChar
    lHandle = FindWindowA(vbNullString, DialogCaption)

    ' Only continue if the passed window handle isn't zero.

    If lHandle <> 0 Then

        ' There are 9 items on the application control menu.
        ' Loop through and disable each one.

        For lCount = 1 To mlNUM_SYS_MENU_ITEMS

            ' The nPosition of the DeleteMenu function will always be 0,
            ' because as we delete each menu item, the next one moves up
            ' into the first position (index of 0).

            DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
        Next lCount

    End If

End Sub

' Comments:  Restores the system control menu of the specified window.
'
' Arguments:  szCaption  (Optional) The caption of the window whose control
'                        menu you want to delete. If not specified,
'                        Application.Caption is assumed.
'

Public Sub EnableActiveDialogMenuControls(DialogCaption As String)

    Dim lHandle As Long
    On Error Resume Next
    DialogCaption = DialogCaption & vbNullChar
    lHandle = FindWindowA(vbNullString, DialogCaption)

    ' Passing True to the bRevert argument of the GetSystemMenu API restores
    ' the control menu of the specified window.

    GetSystemMenu lHandle, True

End Sub