Hallo,

ich möchte verhindern das eine Exel-Datei vom Anwender überschrieben bzw. gespeichert wird. Es soll erlaubt sein diese Datei unter anderem Namen zu speichern.

Mit den ersten beiden Subs blende ich den Save-Button aus. Das 3. Sub vermeidet ein Überschreiben durch Verwendung des gleichen Namens. Das 4. Sub stellt sicher, dass Makros bei verwendung der Mappe aktiv sind und das letzte Sub blendet die Sicherheitsabfrage aus beim Schließen über x.

Meine Frage ist nun, warum wird bei Verwendung dieser Makros beim Schließen zweimal "1" eingeblendet und außerdem erhalte ich beim "Speichern-unter" beim drücken von Abrechen ebenalls eine erneute Abfrage. An sich funktionieren die Makros, nur stören mich die doppelten Abfragen. Leider finde ich den Fehler nicht.

Vielen Dank für die Hilfe.

Quroll

Private Sub Workbook_Windowactivate(ByVal Wn As Excel.Window)

Dim Butt As CommandBarButton

For Each Butt In Application.CommandBars.FindControls(ID:=3)
Butt.Enabled = False
Next Butt
End Sub

Private Sub Workbook_Windowdeactivate(ByVal Wn As Excel.Window)

Dim Butt As CommandBarButton
For Each Butt In Application.CommandBars.FindControls(ID:=3)
Butt.Enabled = True
Next Butt
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim vaFileName As Variant
SaveAsUI = True
vaFileName = Application.GetSaveAsFilename(InitialFileName:="", _
FileFilter:="Excel Filer (*.xls), *.xls", Title:="Save as...")

If vaFileName = ThisWorkbook.FullName Then
MsgBox ("Bitte anderen Dateinamen verwenden :)!")

Cancel = True
Exit Sub
End If
End Sub
Private Sub Workbook_Open()
     Dim ws As Worksheet

   For Each ws In ThisWorkbook.Worksheets
   ws.Unprotect ("test")
   Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
msgbox("1)
ThisWorkbook.Close SaveChanges:=False
End Sub