mir fällt nichts mehr ein ;( Habe alles versucht aber irgendwo funktioniert es nicht!
Ich möchte eigentlich nur eine Datei zwischenspeichern in der alle Zellen aller Tabellenblätter gesperrt werden, quasi nur zum anschauen. Wollte eigentlich dass die Zwischenspeicherung dann automatisch geschlossen wird, so dass die unveränderte Originalfassung geöffnet bleibt. Wäre für einen Tipp dankbar ;)
Sub Speichern()
Dim wks As Worksheet
Dim rng As Range
With Worksheets("Tabelle1")
strDateiname = ThisWorkbook.Path & "\" & .Range(" J4") & "_" & .Range("R8") & "_" & .Range(" _
R6") & "_" & "Backup" & "_" & Format(Date, "YYYYMMDD") & ".xls"
End With
ActiveWorkbook.SaveCopyAs strDateiname
Workbook.Name = strDateiname.Open
ActiveWorkbook.Unprotect
For Each wks In Worksheets
wks.Unprotect
For Each rng In ActiveSheet.UsedRange.Cells
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
wks.Protect
Next wks
ActiveWorkbook.Protect
ActiveWorkbook.Close
End Sub
Gruss
Salim