Menüleisten und Befehlsleisten ausblenden?

Computer: Software & Programmierung Office Software
1

Hallo.
Ich habe gerade im Arcive geschaut und folgendes gefunden:
Alle Menuleisten ausblenden (bei Start + Makro)
Die ist vom Reinhard verfasst, und wirklich spitze.

Jetzt meine Frage, ist dies auch mit den Befehlszeilen möglich?

Mein Problem, ich möchte verhindern, das jemand auf Datei - Speichern klickt.

Ich habe im Programm einen extra Button dafür, das eben nur mein gewünschtes abspeichert (mit dem normalen speicherbefehl würde mir das Programm überschrieben werden.

Und es sollte auch beim beenden keine Aufforderung zum speichern kommen.

Ich glaube eigentlich gar nicht das dies funktionieren wird, aber ich binn schon oft von euch überrascht worden.

2

Mein Problem, ich möchte verhindern, das jemand auf Datei -
Speichern klickt.
Ich habe im Programm einen extra Button dafür, das eben nur
mein gewünschtes abspeichert (mit dem normalen speicherbefehl
würde mir das Programm überschrieben werden.
Und es sollte auch beim beenden keine Aufforderung zum
speichern kommen.

Hi Krisam,

Sub Menüeintrag\_deaktivieren()
 CommandBars("Worksheet Menu Bar"). \_
 Controls("Datei").Controls("Speichern").Enabled = False
End Sub

Allerdings geht dann immer noch „Speichern unter“ sowie diverse Shortcuts funktionieren. Besser ist:

In „DiesArbeitsmappe“

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = speichernernichlaubt
End Sub

Private Sub Workbook_Open()
speichernernichlaubt = True
End Sub

In ein Modul:

Public speichernernichlaubt As Boolean
Sub beenden()
ThisWorkbook.Close SaveChanges:=False
End Sub

In deinem Makro musst du dann nur speichernernichlaubt auf False setzen um zwischenzeitlich mal was speichern zu könnnen, dann wieder auf True.
Gruß
Reinhard

3

Danke, aber es funktioniert nicht.
Hallo Reinhard.

Danke zuerst einmal für deine Antwort.
Der erste Abschnitt (Makro) funktioniert:

Sub Menüeintrag_deaktivieren()
CommandBars(„Worksheet Menu Bar“). _
Controls(„Datei“).Controls(„Speichern“).Enabled = False
End Sub

Aber dann habe ich deinen zweiten Vorschlag probiert, und da tut sich gar nichts (Ausser, das ich beenden kann, ohne das ich die Fehlermeldung speichern bekomme. Speichern ist immer noch möglich.

Kennst du vieleicht einen Befehl, wo nur die Befehlszeile verschwindet? (Datei Bearbeiten usw…)

Danke.

BYE

Allerdings geht dann immer noch „Speichern unter“ sowie
diverse Shortcuts funktionieren. Besser ist:

In „DiesArbeitsmappe“

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Cancel = speichernernichlaubt
End Sub

Private Sub Workbook_Open()
speichernernichlaubt = True
End Sub

In ein Modul:

Public speichernernichlaubt As Boolean
Sub beenden()
ThisWorkbook.Close SaveChanges:=False
End Sub

In deinem Makro musst du dann nur speichernernichlaubt auf
False setzen um zwischenzeitlich mal was speichern zu
könnnen, dann wieder auf True.
Gruß
Reinhard