Office: Speichern unter/ Speichern Problem Macro

Hi,
habe nen kleines Problem mit meinem Excel Macro.
Undzwar soll bei aktiviertem Schreibschutz das Speichern/Speichern unter deaktiviert sein. Wenn der Schreibschutz deaktiviert ist, soll lediglich die Speichern funktion aktiviert sein (habe Commandbars und Bearbeitungsleiste komplett ausgeblendet, Speichern soll über einen Button abgewickelt werden)

Hier das Makro bis dahin

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveWorkbook
if .Readonly Then
  MsgBox ("Bitte Schreibschutz deaktivieren")
   Else
 If SaveAsUI Then
        Cancel = True
    End If
   End If
   End With
End Sub

Private Sub Workbook_Active()
ActiveWorkbook.close savechanges:=False
ThisWorkbook.Saved = True
End Sub

Private Sub Externer_SaveButton()
With ActiveWorkbook
 If .Readonly Then
  MsgBox ("Bitte Schreibschutz deaktivieren")
   Else
      ActiveWorkbook.Save
  End If
  End With
  End Sub

Damit soll erreicht werden, dass der Benutzer bei aktiviertem Schreibschutz nicht die möglichkeit hat, die Datei unter einem anderen Namen zu speichern (Excel 2003 bietet bei aktiviertem schreibschutz von selbst die speichern unter funktion an). Ist der Schreibschutz deaktiviert (Kalkulation befindet sich z.B. nicht mehr auf einer CD) kann der benutzer wieder normal speichern.

Das Makro zeigt mir ejtzt zwar an, dass der schreibschutz aktiv ist, bietet aber trotzdem noch die "Speichern unter" funktion an. :-?

mfg

 

Vielleicht hilft Dir:
http://www.ozgrid.com/forum/showthread.php?t=26224&page=1

Gruß, Michael

 

funktioniert einwandfrei ... danke für den tipp :)

da sieht man mal, wie einfach es sein kann