ausschließlich über Icon Datei schließen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: ausschließlich über Icon Datei schließen von: Edgar
Geschrieben am: 14.02.2005 15:35:09

Hallo Profis!
Ich möchte über ein Makro in auto open alle Symbolleisten ausblenden, die Arbeitsblatt -Menüleiste ausblenden und das X zum schließen von Excel verschwinden lassen.
Auf dem Wooksheet soll dann ein Icon oder Schaltfläche kreiert werden, über das man die Datei ohne speichern schließt. Es soll ein schließen ausschließlich (!!!) über dieses Icon möglich sein.
Ist das machbar?
Danke Edgar

Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: Matthias G
Geschrieben am: 14.02.2005 15:49:20

Hallo Edgar,

Bedenke, dass durch Makro-Sicherheit: mittel das Auto Open Makro übergangen
werden kann, und dass es User prinzipiell nicht so gern mögen, wenn Du Ihnen
an die Symbolleisten willst. Wenn überhaupt lässt sich das Excel-X nur über API
ausblenden. Doch da gibts noch Alt-F4, Datei - Beenden, Taskmanager...

gruß
matthias


Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: Edgar
Geschrieben am: 14.02.2005 15:58:05

Hallo Matthias,
das soll keine absolute Sicherheit werden.
Ich will nur verhindern, daß Dösbaddel die Datei zwar öffnen und darin arbeiten können, sie aber dann ohne Änderung schließen.
Wichtig ist, daß es nicht das X oben rechts in der Ecke gibt um Excel zu schließen.
Wer sich besser auskennt kann ruhig machen was er will.
Gruß Edgar


Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: UweD
Geschrieben am: 14.02.2005 15:56:55

Hallo


sieh dir mal die Datei an und versuch mal zu speichern, bzw. zu beenden.

https://www.herber.de/bbs/user/18053.xls


Enthält foldenen Code:

'in DieseArbeitsmappe
'


Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Kein schließen
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    MsgBox "Datei wurde NICHT gesichert"
    Application.EnableEvents = False
    ThisWorkbook.Close savechanges:=False
    Application.EnableEvents = True
End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    MsgBox "geht nicht"
End Sub



'In ein Modul
Public Ja
Sub erlauben()
Ja = 1
MsgBox "OK, geht jetzt"
End Sub


Gruß UweD


Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: Edgar
Geschrieben am: 14.02.2005 16:05:30

Hallo Uwe,
habe ich einfach so in ein Modul übernommen.
Speichen geht immernoch und nach Änderungen fragt er beim Schließen, ob gespeichert werden soll.
?????????
Edgar


Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: UweD
Geschrieben am: 14.02.2005 16:20:19

Hi

Ich hatte doch drübergeschrieben, wohin die einzelnen Codes sollen..

in DieseArbeitsmappe

Kommt dieses:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Kein schließen
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    MsgBox "Datei wurde NICHT gesichert"
    Application.EnableEvents = False
    ThisWorkbook.Close savechanges:=False
    Application.EnableEvents = True
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    MsgBox "geht nicht"
End Sub



In ein Normales Modul:
Das ist der Notschalter, der dann doch darf

Public Ja
Sub erlauben()
Ja = 1
MsgBox "OK, geht jetzt"
End Sub


außerdem hatte ich die fertige Datei hochgeladen.
https://www.herber.de/bbs/user/18053.xls

Gruß UweD


Bild


Betrifft: AW: ausschließlich über Icon Datei schließen von: Edgar
Geschrieben am: 14.02.2005 16:35:47

Ich habs begriffen
Danke Edgar


Bild


Betrifft: oooopppsss von: UweD
Geschrieben am: 14.02.2005 16:43:09

Hallo nochmal


das klappt ja nur einmal... Die Events bleiben ausgeschaltet und dann gehts das nächste mal nicht mehr.


so klappts aber:

in DieseArbeitsmappe


Private Merker

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Merker = True Then Exit Sub
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    Merker = True
    MsgBox "Datei wurde NICHT gesichert"
    ThisWorkbook.Close savechanges:=False
End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Ja = 1 Then
        Ja = 0
        Exit Sub
    End If
    Cancel = True
    MsgBox "geht nicht"
End Sub


https://www.herber.de/bbs/user/18057.xls

Gruß Uwe


Bild


Betrifft: AW: oooopppsss von: Edgar
Geschrieben am: 14.02.2005 21:37:35

Super, klappt allel
Danke Edgar


 Bild

Beiträge aus den Excel-Beispielen zum Thema "beim schließen diverse Spalten immer ausblenden"