Automatisch schliessen ohne Speichern, bedingt
16.06.2008 11:02:00
Florian
etwas kompliziert:
ich haben eine Originaldatei (LagerListeOriginal.xls), die sich mit jedem Schliessen als Kopiedatei (Lagerliste_Kopie.xls) selbst speichert. Die Kopie kann von jedem eingesehen werden und enthält denselben Code. Die Originaldatei soll jedesmal 100% gespeichert werden (ohne zu fragen). Die Kopiedatei soll vom fremden User niemals geändert werden, sondern nur durch Kopie aus der Originaldatei heraus (also per Makro).
Mein Problem nun:
Wenn die Kopiedatei geöffnet ist erscheint bei Schliessen auch die Meldung "sollen Änderungen ... gespeichert werden?". Wie schalte ich diese Meldung aus und setze sie automatisch auf nicht speichern?
Danke im Voraus!
Option Explicit
Dim MyPath As String, UhrZeit As String, Bruker As String
Dim OriginalLagerD As Workbook, SelgerLagerD As Workbook
Dim OriginalLagerS As Worksheet, SelgerLagerS As Worksheet
Dim i As Integer, j As Integer, LastRowLager As Integer
Sub LagerlisteSelger_generieren() 'Generiert die Kopiedatei der Lagerliste
Application.DisplayAlerts = False
If ThisWorkbook.Name "LagerListeOriginal.xls" Then End
MyPath = ThisWorkbook.Path
' Lege Sicherheitskopie der Lagerliste (=diese Datei) an
ThisWorkbook.Sheets("Lager").Unprotect Password:="gfz"
LastRowLager = ThisWorkbook.Sheets("Lager").Cells(Rows.Count, 1).End(xlUp).Row - Not _
IsEmpty(ThisWorkbook.Sheets("Lager").Cells(Rows.Count, 1).End(xlUp)) - 1
ThisWorkbook.Sheets("Lager").Protect Password:="gfz"
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:="\\PFAD\Lagerliste_Kopie.xls"
Workbooks(Workbooks.Count).Close SaveChanges:=True
End Sub