Symbolleisten nur bei einer Datei

Hallo,
ich hab jetzt fast den ganzen Vormittag verbracht das Forum nach meinem aktuellen Problem zu suchen. Obwohl es sehr viele Beiträge zu diesem gibt, hab ich das passende für meinen Fall leider nicht gefunden.
Zunächst würde ich gerne meine Ausgangsbasis kurz erläutern:
Ich hab eine Dokumentenübersicht, inder verschiedene Links (Dokumente wie Checklisten, Formulare, etc.) hinterlegt sind. Diese Dokumentenübersicht gliedert sich in verschiedene Tabellenblätter (nach Abteilungen). Jetzt wollte ich sämtliche Symbolleisten ausblenden, da wir es den Mitarbeitern zur Verfügung stellen und das klappt auch (hab es in diesem Forum gefunden :) ).
Allerdings wenn man jetzt über den Link z.B. ein Formular (auch Excel) öffnet, wird dieses auch ohne Symbolleisten geöffnet und das ist nicht vorteilhaft, da die MA damit arbeiten sollten. Bei der Übersicht spielt es keine Rolle aber hier schon.
Der Wunschzustand würde so aussehen, dass die Dokumentenübersicht ohne irgendwelche Symbolleisten geöffnet wird, aber die Links ganz normal. Natürlich auch wenn ein ganz normales Excel geöffnet wird :P
Gibt es hierfür irgendeine Lösung oder Tipps von Eurer Seite wie man das Problem bewäligen könnte?
Danke im Voraus.
LG Denise

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hajo,
danke für die rasche Antwort.
Wenn ich mal Dich als Profi erwischt habe, dürfte ich Dich noch was fragen? (Etwas anderes)
Ich hab eine Excel-Datei inkl. Makro (siehe Makro "Abteilung") welches ein XLT erstellt. Jetzt würde ich gerne in dieses große Makro dieses Makro einfügen, damit jedesmal in dem neu erstellten XLT es enthalten ist.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.DisplayAlerts = True
End Sub

Wie macht man das? Es sollte vor dem "Speichern in Ornder" drin sein oder was sagst Du?
Danke im Voraus.
Hier das große Makro:
Sub Abteilung()
'Speicher des Dokumentes als xlt
ActiveWorkbook.SaveAs Filename:= _
usw.
' Speichern im Ordner
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\Li 10 QM-Aufbau RKD.xlt", _
FileFormat:=xlTemplate, ReadOnlyRecommended:=False, CreateBackup:=True
' Schliessen von Excel
Windows("Li 10 QM-Aufbau RKD.xlt").Activate
ActiveWindow.Close SaveChanges = True
End Sub

LG Denise

Beliebteste Forumthreads (12 Monate)

Symbolleisten nur bei einer Datei

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread