Gerade habe ich mit folgendem Makro die Menüpunkte "Neu" und "Speichern unter" in Excel 2000 deaktiviert:
Sub AutoOpen()
Call deactivateMenues
End Sub
Sub deactivateMenues()
Dim menu As CommandBarPopup
Dim menuBar As CommandBar
Dim ctrl As CommandBarControl
Set menuBar = Application.CommandBars("Worksheet Menu Bar")
Set menu = Application.CommandBars.FindControl(Type:=msoControlPopup, ID:=30002)
For Each ctrl In menu.Controls
If ctrl.ID = 748 Or ctrl.ID = 18 Then
ctrl.Enabled = False
End If
Next ctrl
End Sub
Das hat auch gut geklappt, nur: die Menüpunkte bleiben weg, auch wenn man das betreffende Worksheet schließt. Ja selbst wenn man Excel schließt und neu startet ist "Neu" und "Speichern unter" immer noch nicht aktiviert. Ein Neustart von Windows hat auch nichts gebracht ... wie gips denn sowas ..? So ganz im Sinne des Erfinders kann das ja nicht sein, oder?
Eigentlich möchte ich ja nur zu Dokumenten, von denen ich nicht will, daß der User sie woanders hinspeichert dieses Makro hinzufügen. Wäre ja ansich keine große Sache ...
über Hilfe und Tips würde ich mich sehr freuen und wäre Euch dankbar bis in alle Ewigkeit
viele Grüße
Thomas.