Minimieren ausschalten!
15.03.2006 00:19:22
Christian
Ich möchte die Schaltflächen "Fenster Minimieren" und "Fenster wiederherstellen" deaktivieren, solange mein Programm läuft.
Kann mir da jemand helfen? Ich habe in einem anderen Forum eine Möglichkeit gefunden, das X im Excel zu deaktivieren, so dass ein Schließen nur noch über selbst definierte Schaltflächen möglich ist, aber beim Versuch, dieses Makro umzulegen, bin ich gescheitert.
x ausschalten
Folgendes steht im Modul1:
Dim Anwendungsobjekt As New Klasse1
Public ws As Boolean
-----------------------------------------------------
'Wird durch Workbook_open aufgerufen
Sub Register_Event_Handler()
Set Anwendungsobjekt.Anwendung = Application
ws = False
End Sub
------------------------------------------------------
Sub auto_open()
Call Register_Event_Handler
dateiname = ActiveWorkbook.Name
Workbooks(dateiname).Activate
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.ShowStartupDialog = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Stop Recording").Visible = False
Application.CommandBars("Chart").Visible = False
Application.CommandBars("External Data").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("WordArt").Visible = False
Application.CommandBars("Drawing").Visible = False
Cells(1, 1).Select
End Sub
--------------------------------------------------------------
Sub auto_close()
ws = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End Sub
in einem Klassenmodul steht:
Public WithEvents Anwendung As Application
----------------------------------------------------------------------------
Private Sub Anwendung_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
dummy
End Sub
--------------------------------------------------------------------------
Private Sub Anwendung_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
If ws = False Then
MsgBox "Die Datei kann nur mit den vorgesehenen Schaltflächen geschlossen werden.", vbOKOnly + vbCritical, "Fehler!"
Cancel = True
End If
End Sub
Vielen Dank
Christian