Ich möchte unter Excel den Menüpunkt "Speichern" deaktivieren. Die Datei soll nur mittels "Speichern unter" gespeichert werden können.


Kann jemand helfen?

Hallo pp_mark,

schau mal hier:

<pre>
Sub test()
Dim c As CommandBarButton
Set c = Application.CommandBars("Standard").FindControl(msoControlButton, 3)
c.Enabled = False
Set c = Application.CommandBars("Worksheet Menu Bar").FindControl(msoControlButton, 3, , , True)
c.Enabled = False

End Sub
Sub test1()
Dim bar As CommandBar, c As Control
For Each bar In Application.CommandBars
On Error Resume Next
bar.FindControl(msoControlButton, 3, , , True).Enabled = False
Next bar
End Sub
</pre>


Gruß Markus

Danke!

Unter Win 98 und Office 2000 funktionieren beide Versionen. Allerdings kann "Speichern" immernoch mittels Strg+S durchführen. Aber das ist nicht so schlimm.

Ich hab jetzt nur eine "kleines " Problem.

"Seichern" ist jetzt für immer deaktiviert !! Auch für neue Mappen!


??????


EDIT:

Hat sich erledigt. Ich muß ja alles wieder rückgängig machen!