Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Speichern unter... deaktivieren ?

Speichern unter... deaktivieren ?
29.09.2004 11:21:32
Michael
Hallo liebes Forum,
gibt es eine Möglichkeit bei einer Datei die Funktion "Speichern unter..." zu deaktivieren.
"Speichern" muss angewählt werden können, aber nicht "Speichern unter..."
Leider bin ich kein VBA Profi, denke aber mit Eurer Hilfe bekommen wir das vieleicht hin:-)
Würde mich über einen Tipp riesig freuen.
Danke
Michael
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter... deaktivieren ?
29.09.2004 11:26:14
Matthias
Hallo Michael,
in "DieseArbeitsmappe":

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

Gruß Matthias
DANKE !!!
Michael
Super Matthias, ich bin begeistert.
Vielen Dank, für die schnelle und perfekte Hilfe.
1.000 Dank
Michael
Anzeige
keine Erweiterung,...
29.09.2004 11:46:17
Matthias
...um den Anwender zu verwirren:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim s As String
If SaveAsUI Then
s = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Name, fileFilter:="Exceldateien, *.xls")
'ätsch, jetzt wird gar nicht gespeichert
Cancel = True
End If
End Sub

Jetzt schaut's so aus, als ob die Datei gespeichert wird, wird sie aber nicht...
Naja, nur Spielerei.
:-)
Grüße,
Matthias
Anzeige
meinte kLeine erweiterung - o.T.
29.09.2004 11:47:30
Matthias
-
AW: meinte kLeine erweiterung - o.T.
Michael
Hallo Matthias,
vielen Dank für die kleine Erweiterung, habe ich wieder etwas dazugelernt.
Nochmals, vielen Dank.
PS. Hast Du einen Tipp wie ich als absoluter VBA Anfänger die Kunst der VBA erlernen kann? Mit dem Makrorecorder kommt man ja nicht wirklich weit.
AW: meinte kLeine erweiterung - o.T.
30.09.2004 17:14:14
Matthias
Hallo Michael,
naja, mit dem Makrorekorder lernt man schon eine ganze Menge, v.a. wenn man eigentlich weiß, was man tun muss, aber den Befehl nicht weiß.
Manko den Makrorekorders ist die Verwenfung von [Select]. Aber er kann es halt nicht anders.
Zum anderen hilft es sehr, wenn man hier ein wenig mitliest, dabei kann man auch viel lernen.
Und dann hilft noch Google:
https://www.google.de/search?hl=de&ie=UTF-8&q=vba+lernen+site%3Awww.herber.de&meta=
Grüße,
Matthias
Anzeige
AW: Speichern unter... deaktivieren ?
29.09.2004 11:28:18
Oberschlumpf
Hi Michael
Versuch es mal so: (ob auch in XL 97 möglich, weiß ich nicht)


Private Sub Workbook_Open()
    
    With Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern unter")
        .Enabled = Not .Enabled
    End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern unter").Enabled = True
End Sub


Beim Öffnen der Datei wird der Menüpunkt "Speichern unter" deaktiviert.
Da diese Einstellung aber dann für alle Dateien gilt, muss VOR dem Schließen der Datei der Menüpunkt wieder aktiviert werden.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
DANKE
Michael
Hallo Thorsten,
auch Dir vielen Dank für die Hilfe.
Grüße
Michael
;
Anzeige
Anzeige

Infobox / Tutorial

Speichern unter in Excel deaktivieren


Schritt-für-Schritt-Anleitung

Um die Funktion "Speichern unter" in Excel zu deaktivieren, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne die Excel-Datei, in der Du "Speichern unter" deaktivieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Doppelklicke im Projektfenster auf „DieseArbeitsmappe“.

  4. Füge den folgenden VBA-Code ein:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       Cancel = SaveAsUI
    End Sub
  5. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Datei (.xlsm).

  6. Teste die Funktion, indem Du versuchst, die Datei zu speichern. "Speichern unter" sollte nun deaktiviert sein.


Häufige Fehler und Lösungen

  • Fehler: Der VBA-Code funktioniert nicht.

    • Lösung: Stelle sicher, dass Du die Datei als Makro-fähige Datei gespeichert hast (.xlsm) und dass Makros in Deinen Excel-Einstellungen aktiviert sind.
  • Fehler: "Speichern unter" ist weiterhin verfügbar.

    • Lösung: Überprüfe den Code auf Syntaxfehler und stelle sicher, dass der Code im richtigen Modul eingefügt wurde.

Alternative Methoden

Es gibt auch alternative Ansätze, um die Funktion "Speichern unter" zu deaktivieren. Eine Möglichkeit ist, den Menüpunkt zu deaktivieren, wenn die Datei geöffnet wird. Hier ist der Code:

Private Sub Workbook_Open()
    With Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern unter")
        .Enabled = Not .Enabled
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern unter").Enabled = True
End Sub

Diese Methode deaktiviert "Speichern unter", wenn die Datei geöffnet wird, und aktiviert es wieder, bevor die Datei geschlossen wird.


Praktische Beispiele

Nehmen wir an, Du möchtest eine Excel-Datei für andere Benutzer freigeben, ohne dass sie die Möglichkeit haben, die Datei unter einem anderen Namen zu speichern. Du würdest den obigen VBA-Code verwenden, um sicherzustellen, dass "Speichern unter" deaktiviert ist. Dies ist besonders nützlich, wenn Du sicherstellen willst, dass die Originaldatei nicht verändert oder kopiert wird.


Tipps für Profis

  • Sicherheitshinweis: Überlege, ob es sinnvoll ist, "Speichern unter" zu deaktivieren, da dies die Benutzerfreundlichkeit beeinträchtigen kann.
  • Testen: Teste immer die Funktionalität in einer Kopie Deiner Datei, um unbeabsichtigte Datenverluste zu vermeiden.
  • VBA lernen: Wenn Du mehr über VBA lernen möchtest, nutze Ressourcen wie Online-Kurse oder Foren, um Deine Fähigkeiten zu verbessern.

FAQ: Häufige Fragen

1. Kann ich "Speichern unter" nur für bestimmte Benutzer deaktivieren? Leider kann der VBA-Code nur für die gesamte Datei angewendet werden. Eine benutzerspezifische Einstellung ist nicht möglich.

2. Gibt es eine Möglichkeit, "Speichern unter" in Excel Online zu deaktivieren? In Excel Online gibt es keine Möglichkeit, "Speichern unter" zu deaktivieren. Diese Funktionalität ist nur in der Desktop-Version von Excel verfügbar.

3. Wie kann ich sicherstellen, dass meine VBA-Skripte sicher sind? Achte darauf, nur VBA-Code aus vertrauenswürdigen Quellen zu verwenden und Deine Dateien regelmäßig zu sichern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige