Ich habe nachfolgendes Programm zustande gebracht. Über den Stil lässt sich sicher streiten aber es funktioniert.
Ich benötige jetzt noch die Funktion, das der Zellbereich A1:H12 nach dem speichern schreibgeschützt ist. Es sollen ALLE Zellen dieses Bereiches gesperrt sein, nicht nur die beschriebenen.
Kann mir hier jemand helfen und einen entsprechenden Code in dieses Programm einfügen?
Besten Dank im Voraus
Sub Speichern()
Dim Dateiname As String
'Benennung der Datei
Dateiname = "Bedarfsmeldung" & _
Sheets("Tabelle1").Range("C1").Value & _
Sheets("Tabelle1").Range("D1").Value
Application.DisplayAlerts = False
ActiveWorkbook.Save
With ActiveSheet
'Shapes entfernen
.Shapes.SelectAll
Selection.Delete
End With
'Speichern und Dateiform
SaveAs Filename:="Z:\" & Dateiname, FileFormat:=xlOpenXMLWorkbook
'schließt die Exceldatei
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub