Makro per Makro in neue Datei kopieren
miss18
ich hoffe Ihr könnt mir noch einmal helfen.
Ich habe folgendens Makro (siehe SUB AbteilungX) für die Freigabe der Dokumentenübersicht für eine bestimmte Abteilung. Diese Freigabe-Makros sind in einer Exceldatei (.xls). Wenn ich die Datei sozusagen freigebe, wird aus der Original-Exceldatei (.xls) eine Kopie als XLT (damit mehrere MA gleichzeitig darauf arbeiten können) gespeichert und diese wird dann den MA zur Verfügung gestellt. Von da aus können sie die Dokumente herunterladen.
Da die Datei aber XLT zur Verfügung gestellt wird, ist das Problem wenn der MA diese schliessen _
will, kommt die Abfrage wegen dem speichern. Diese will ich nun deaktivieren. Dafür habe ich das passende Makro schon gefunden allerdings muss ich dieses Makro in das untere nun irgendwie einbauen, dass er automatisch wenn es als XLT gepseichert wird in "DieseArbeitsmappe" dieses kleine Makro (siehe Private Sub Workbokk ...) dort hinterlegt. Da bei jeder Freigabe das XLT überschrieben wird ( _
alle 2-3 Tage) kann ich es nicht immer per Hand integireren.
Könnt Ihr mir bitte helfen wie ich das kleine Makro in das große einbauen kann? Ich weiß es gä _
be andere möglichkeiten wie z.B.
- nicht als XLT abspeichern: muss da mehrere Mitarbeiter gleichzeitg darauf arbeiten müssen
- das kleine Makro in die Original-Datei einbauen: zu großes Risiko, da mehrere MA mit dieser _
Datei arbeiten und nicht jeder so gewissenhaft ist und regelmäßig abspeichert.
Das heißt dieses System ist laut meinem Vorgesetzten nicht stark veränderbar und somit ist der _
Einbau des kleinen Makro in das große Makro der einzige Weg, den wir haben.
Ich hoffe, Ihr könnt mir noch einmal Mal helfen, da ich endlich dieses Projekt abschliessen _
will und das hoffentlich das letzte Hindernis ist.
Vielen vielen Dank im Voraus.
GLG Denise
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.DisplayAlerts = True
End Sub
Sub AbteilungX()
'Speicher des Dokumentes als xlt
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\AbteilungX.xlt", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
' Links oben in Tablellenblatt springen
Sheets("AbteilungX").Select
Range("B2:H2").Select
' Speichern im Ordner
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\AbteilungX.xlt", _
FileFormat:=xlTemplate, ReadOnlyRecommended:=False, CreateBackup:=True
' Schliessen von Excel
Windows("AbteilungX.xlt").Activate
ActiveWindow.Close SaveChanges = True
End Sub
Anzeige