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

Blatt umbenennen verhindern

Forumthread: Blatt umbenennen verhindern

Blatt umbenennen verhindern
19.01.2003 19:21:45
Jens_Pu
Hallo Excelfreunde,

nachfolgendes habe ich in der Recherche gefunden. Das Umbenennen von Tabellenblättern soll verhindert werden. Das macht es auch.
Nur nicht ganz so wie ich es mir vorstelle. Die Meldung des verbotenen Umbenennens kommt erst beim Speichern bzw. wechseln des Tabellenblatts. Dies führt zum Absturz aller Makros, die sich auf den Tabellenblattnamen beziehen.
Scheinbar tritt auch kein Ereignis beim Umbenennen ein, ich habe jedenfalls nichts gefunden.
Hat jemand noch eine gute Idee?

Gruß Jens

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 19:26:53
Hajo_Zi
Hallo Jens

L.Vira hat gestern hier einen guten Vorschlag gebracht

Reiter nicht Bearbeiten
Application.CommandBars("ply").Enabled = False
von L.Vira

Dies mußt Du nur in die entsprechenden Aktionen einbinden. bzw. Schütze die Arbeitsmappe dann ist es auch nicht möglich.

Gruß Hajo

Re: Blatt umbenennen verhindern
19.01.2003 19:35:14
L.Vira
Verwende im Code nicht den Namen sondern den Codenamen des Blatts, dann kann der user nach herzenslust ändern.
Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 19:55:15
Jens_Pu
Hallo L.Vira,

damit habe ich mich noch nicht beschäftigt.
Unterschied? Wie bekommt man den raus? Vorteile Nachteile? Wo steht da was drüber?

Gruß Jens

Re: Blatt umbenennen verhindern
19.01.2003 19:55:57
Jens_Pu
Hallo Hajo,

werd es mal testen.

Gruß Jens

Re: Blatt umbenennen verhindern
19.01.2003 19:59:08
L.Vira
Steht im Projektexplorer links.
Vorteil: Von den Namen auf den workbooktabs unabhängig!
Nachteil: Kann zur Laufzeit nicht geändert werden.
Wo steht was? Objektkatalog Codename eingeben, Fragezeichen klicken.
Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 20:03:25
Jens_Pu
Hallo L.Vira,

und wie spreche ich die an in meinen Makros? Woher weiß Excel ob ich Tabelle1 oder den Codenamen Tabelle1 meine?

Gruß Jens

Re: Blatt umbenennen verhindern
19.01.2003 20:17:21
Jens_Pu
Hallo Hajo,

hab das jetzt mal probiert. Das geht prima.
Noch eine generelle Frage dazu:
Habe vergebns in der Excelhilfe nach diesem "ply" gesucht und nichts gefunden. Ist wohl gut versteckt, oder?

Gruß Jens

Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 20:25:45
Hajo_Zi
Hallo Jens

ich habe das auch nur in einem Beitrag von L.Vira gelesen und aufgehoben.
Mit folgendem Markro von Rainer (Ramses)bekommts Du alle Bezeichnungen der Symbolleisten raus und dort steht auch "ply".

Gruß Hajo

Genauer
19.01.2003 20:27:03
Herbert
Hallo zusammen,

So ist es genauer!
Ev. auch für nicht VBA'ler

Private Sub Workbook_Activate()
Application.CommandBars("ply").Controls("Umbenennen").Enabled = False

End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("ply").Controls("Umbenennen").Enabled = True

End Sub

Gr. Herbert

Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 20:29:55
L.Vira
Steht auch in der Hilfe:
mit Codenamen: Tabelle1.[a1]= 1
mit Namen: Sheets("Tabelle1").[a1]=1
Re: Blatt umbenennen verhindern
19.01.2003 20:34:27
L.Vira
Das mit "ply" bringt nix, weils mit Doppelklick immernoch geht.
Mein Tipp dazu war in einem anderen Zusammenhang.
Re: Blatt umbenennen verhindern
19.01.2003 20:36:13
Jens_Pu
Hallo Hajo,

11 Zeilen Code -> große Wirkung.

Danke, muß ich mir aufheben.

Gruß Jens

Anzeige
Re: Blatt umbenennen verhindern
19.01.2003 20:43:24
Jens_Pu
Hallo L.Vira,

:-((

und jetzt habe ich mich so über die geniale Lösung gefreut.
Da hat uns Bill doch Tatsächlich eine Ereignisprocedure unterschlagen.
Private Sub Worksheet_SheetnameChange()
End Sub
Oder so.

Gruß Jens

Re: Blatt umbenennen verhindern
19.01.2003 20:44:17
Jens_Pu
Danke.

Gruß Jens

;
Anzeige

Infobox / Tutorial

Blatt umbenennen verhindern in Excel


Schritt-für-Schritt-Anleitung

Um das Umbenennen von Tabellenblättern in Excel zu verhindern, kannst Du folgenden VBA-Code verwenden. Dieser sorgt dafür, dass die Umbenennungsoption in der Symbolleiste deaktiviert wird:

  1. Öffne den Visual Basic for Applications (VBA) Editor, indem Du ALT + F11 drückst.

  2. Wähle im Projekt-Explorer die Arbeitsmappe aus, in der Du das Umbenennen verhindern möchtest.

  3. Füge den folgenden Code in das "DieseArbeitsmappe"-Modul ein:

    Private Sub Workbook_Activate()
       Application.CommandBars("ply").Controls("Umbenennen").Enabled = False
    End Sub
    
    Private Sub Workbook_Deactivate()
       Application.CommandBars("ply").Controls("Umbenennen").Enabled = True
    End Sub
  4. Speichere die Arbeitsmappe und teste die Funktion, indem Du versuchst, ein Tabellenblatt umzubenennen.


Häufige Fehler und Lösungen

  • Problem: Die Umbenennungsoption ist immer noch aktiv.

    • Lösung: Stelle sicher, dass der Code im richtigen Modul (DieseArbeitsmappe) eingefügt wurde und die Arbeitsmappe als Makro-fähige Datei gespeichert ist (z.B. .xlsm).
  • Problem: Makros stürzen ab, wenn versucht wird, das Blatt umzubenennen.

    • Lösung: Vermeide den direkten Bezug auf den Blattnamen in Deinen Makros. Nutze stattdessen die Codenamen der Blätter.

Alternative Methoden

Eine alternative Möglichkeit, das Umbenennen von Blättern zu verhindern, ist die Verwendung des Codenamens anstelle des Blattsnamens in Deinen Makros. So bleibt die Funktionalität erhalten, ohne dass der Benutzer das Blatt umbenennen kann.

  1. Suche im Projekt-Explorer nach dem Codenamen des Blattes (links im VBA-Editor).
  2. Verwende diesen Codenamen in Deinen Makros, z.B.:

    Tabelle1.Range("A1").Value = "Neuer Wert"

Praktische Beispiele

Hier sind einige Beispiele, wie Du den Codenamen in Makros verwenden kannst:

  • Um einen Wert in Zelle A1 eines Blattes mit dem Codenamen "Tabelle1" zu setzen:

    Tabelle1.Range("A1").Value = "Hallo Welt"
  • Um eine Nachricht anzuzeigen, wenn das Blatt aktiviert wird:

    Private Sub Tabelle1_Activate()
       MsgBox "Willkommen auf Tabelle1!"
    End Sub

Tipps für Profis

  • Verwende die Objektbibliothek in VBA, um die verfügbaren Codenamen und deren Eigenschaften besser zu verstehen.
  • Nutze den Objektkatalog, um Informationen über die Eigenschaften und Methoden der Excel-Objekte zu erhalten.
  • Halte Deine Makros so modular wie möglich, indem Du Funktionalitäten in separate Prozeduren auslagerst.

FAQ: Häufige Fragen

1. Wie finde ich den Codenamen eines Blattes? Der Codename eines Blattes kann im Projektexplorer des VBA-Editors gefunden werden. Klicke auf das Blatt, um den Namen anzuzeigen.

2. Kann ich den Codenamen während der Laufzeit ändern? Nein, der Codename eines Blattes kann zur Laufzeit nicht geändert werden. Er bleibt konstant, solange die Arbeitsmappe geöffnet ist.

3. Was ist der Vorteil der Verwendung von Codenamen? Codenamen sind unabhängig von den sichtbaren Blattnamen und schützen somit vor unerwarteten Fehlern, wenn Benutzer Änderungen an den Blattnamen vornehmen.

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