Desable alle måder at lukke excel

Private Sub Workbook BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If Application.Caller <> "Button 1" Then
        Cancel = True
    End If
End Sub


//akj

kan du beskrive hvordan det er man indsætter en knap på sit excel ark, jeg kan nemlig af en aller anden grund ikke få knappen ind på arket:-(

View > Toolbars > Forms
Vælg knap
Indsæt på ark
I "macro vinduet" klikker du new
I Button1_Click() eventet skriver du activeworkbook.close
Luk vba editoren
//akj

Når jeg får Forms frem er de "grået ud", og kan der for ikke indsætte en knap.
Hvis jeg vælger customize kan jeg ikke indsætte en knap ???

Du har selvfølgeligt den woorkbokk som knappen skal ligge på åbnet ikk'

//akj

Jo, da ;-)

Jeg kan sagtens i andre excel filer

Prøv lige at genstarte excel

Nå )(&(&#%¤# den knap.

Hvordan kan jeg rette din kode til så det er en sub som afgøre om excel "må" lukkes ned:

Har prøvet med:

Private Sub Workbook BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If Application.Caller <> "Button 1" Then
        Cancel = True
    End If
End Sub

Ups.

Problemet er at få udskiftet
If Application.Caller <> "Button 1" Then
til
en sub
eks. public sub lukExcel()

Public tilladluk

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
    If tilladluk = 1 Then
        Cancel = False
    Else
        Cancel = True
    End If

End Sub

Public Sub luk()
tilladluk = 1
ActiveWorkbook.Close
End Sub

sub'en luk vil lukke woorkbook

//akj

Mange tak for din store hjælp

selvtak

//akj