Alle Zellen sperren und zwischenspeichern

Forumthread: Alle Zellen sperren und zwischenspeichern

09.07.2007 16:14:00

Salim

Hallo Zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Zellen sperren und zwischenspeichern

09.07.2007 22:54:18

fcs

Hallo Salim,
mit folgenden Anpassungen funktionierts. Zwecks besser Übersichtlichkeit hab ich Activesheet und ActiveWorkbook durch entsprechende Objektvariablen ersetzt.
Gruß
Franz


Sub Speichern()
Dim wks As Worksheet, wbThis As Workbook, wbSave As Workbook
Dim rng As Range
Set wbThis = ThisWorkbook
With wbThis.Worksheets("Tabelle1")
strDateiname = ThisWorkbook.Path & "\" & .Range(" J4") & "_" & .Range("R8") & "_" & _
.Range("R6") & "_" & "Backup" & "_" & Format(Date, "YYYYMMDD") & ".xls"
End With
wbThis.SaveCopyAs strDateiname
Set wbSave = Workbooks.Open(FileName:=strDateiname)
wbSave.Unprotect
For Each wks In wbSave.Worksheets
wks.Unprotect
For Each rng In wks.UsedRange.Cells
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
wks.Protect
Next wks
wbSave.Protect
wbSave.Close savechanges:=True
End Sub

AW: Alle Zellen sperren und zwischenspeichern

10.07.2007 09:29:00

Salim

Hallo Frankz,
vielen Dank für die Hilfe.
Ich wollte den Code etwas abändern und jetzt kommt die Fehlermeldung: Die Locked Eigenschaft desRange-Objektes kann nicht festgelegt werden. Der Befehl rng.Locked = True wird markiert.


Private Sub CommandButton1_Click()
Me.Hide
Dim wks As Worksheet, wbThis As Workbook, wbSave As Workbook
Dim rng As Range
Set wbThis = ThisWorkbook
With wbThis.Worksheets("Abrechnungsblatt")
strDateiname = ThisWorkbook.Path & "\" & .Range(" J4") & "_" & .Range("R8") & "_" & _
.Range("R6") & "_" & "Backup" & "_" & Format(Date, "YYYYMMDD") & ".xls"
End With
wbThis.SaveCopyAs strDateiname
Set wbSave = Workbooks.Open(Filename:=strDateiname)
wbSave.Unprotect
For Each wks In wbSave.Worksheets
wks.Unprotect
For Each rng In wks.UsedRange.Cells
If Not IsEmpty(rng) Then rng.Locked = True
Next rng
wks.Protect
Next wks
wbSave.Protect
wbSave.Close savechanges:=True
End Sub

Kannst du es verstehen? Wäre Dankbar für ein zweites Feedback!
Übrigens, wäre es möglich, falls die Zwischenspeicherung geöffnet ist und man versucht eine Speicherung zu tätigen, dass ein MsgBox erscheint, dass man die Zwischenspeicherung zuerst schliessen muss? Herzlichen Dank für deine Unterstützung.
Gruss
Salim

AW: Alle Zellen sperren und zwischenspeichern

10.07.2007 14:46:44

Wolli

... weiter in https://www.herber.de/forum/messages/885678.html

Beliebteste Forumthreads (12 Monate)

Alle Zellen sperren und zwischenspeichern

Forumthread: Alle Zellen sperren und zwischenspeichern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Alle Zellen sperren und zwischenspeichern

Forumthread: Alle Zellen sperren und zwischenspeichern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread