ich habe mir hier aus der Recherche folgendes Programm geholt.
das habe ich bei meiner Datei in -DIESE ARBEITSMAPPE- eingefügt.
Private Sub workbook_open()
With Application.CommandBars("worksheet menu bar").Controls("datei")
.Controls("Speichern").Enabled = False
.Controls("Speichern unter...").Enabled = False
End With
End Sub
Das Programm funktioniert auch, aber so gut, das alle geöffneten Arbeitsmappen keine "Speicher" und "Speichern unter" Möglichkeit mehr haben.
Was ist da falsch? Es soll nur für die Datei mit dem Namen ORGANI.xls für beide Tabellenblätter sein.
Für Hilfe wäre ich dankbar!"
Gruß REgina