Schließen einer Arbeitsmappe über Kreuz verhindern

Forumthread: Schließen einer Arbeitsmappe über Kreuz verhindern

22.01.2007 14:30:16

Torge

Hallo,
kann jemand helfen?
Ist sicher schon viel darüber geschrieben worden aber leider funktioniert es bei mir nicht.
Suche nach einer Möglichkeit das Schließen einer Arbeitsmappe nur per Button zu ermöglichen. Hab den Code aus dem Forum mal in eine Datei eingebaut bei mir, aber leider nicht das gewünschte Ziel erreicht. Kann hier mal jemand drauf schauen oder hat eine Hinweis?
https://www.herber.de/bbs/user/39853.xls
Vielen Dank
Gruss Toxma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schließen einer Arbeitsmappe über Kreuz verhindern

22.01.2007 14:58:01

Jan

Public beenden As Boolean
muss in eine Standardmodul, z.B. Modul1
mfg Jan

AW: Schließen einer Arbeitsmappe über Kreuz verhindern

22.01.2007 18:42:56

Rolf

Hi
ich kann dir beispiel senden
rolf

AW: Schließen einer Arbeitsmappe über Kreuz verhindern

22.01.2007 19:12:30

Harry

Hallo
hier
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long) As Long
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 DrawMenuBar Lib "user32" (ByVal _
hwnd As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000
Private hWndForm As Long
Private bCloseBtn As Boolean


Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCloseBtn = False
SetUserFormStyle
End Sub


Private Sub SetUserFormStyle()
Dim frmStyle As Long
If hWndForm = 0 Then Exit Sub
frmStyle = GetWindowLong(hWndForm, GWL_STYLE)
If bCloseBtn Then
frmStyle = frmStyle Or WS_SYSMENU
Else
frmStyle = frmStyle And Not WS_SYSMENU
End If
SetWindowLong hWndForm, GWL_STYLE, frmStyle
DrawMenuBar hWndForm
End Sub


Private Sub optCloseOn_Click()
bCloseBtn = True
cmdBeenden.Cancel = True
SetUserFormStyle
End Sub


Private Sub optCloseOff_Click()
bCloseBtn = False
cmdBeenden.Cancel = False
SetUserFormStyle
End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub

Beliebteste Forumthreads (12 Monate)

Schließen einer Arbeitsmappe über Kreuz verhindern

Forumthread: Schließen einer Arbeitsmappe über Kreuz verhindern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Schließen einer Arbeitsmappe über Kreuz verhindern

Forumthread: Schließen einer Arbeitsmappe über Kreuz verhindern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread