Blattschutz und speichern

Forumthread: Blattschutz und speichern
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Blattschutz und speichern

Paul

Hallo,
ich möchte verhinder, dass die Zelleninhalte einmal abgespeicherter Dateien anschliessend nicht mehr geändert werden können, d.h. beim Speichern der DAtei sollten alle "nichtleeren" Zellen mit einem Blattschutz belegt werden, geht sowas?
Gruß Paul

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Blattschutz und speichern

welga
AW: Blattschutz und speichern

Paul
Code in "Diese Arbeitsmappe" ! stand dabei !

Matthias

AW: Blattschutz und speichern

07.10.2010 15:32:52

welga

Hallo,
versuch es mal so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wbc As Range
Dim ws  As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
For Each wbc In .UsedRange
If Not wbc  "" Then
wbc.Locked = False
Else
wbc.Locked = True
End If
Next wbc
.Protect
.EnableSelection = xlUnlockedCells
End With
Next ws
End Sub

Diesen Code in "Diese Arbeitsmappe"
Gruß

AW: Blattschutz und speichern

07.10.2010 17:32:29

Paul

Hallo,
hab deinen Code in die Mappe kopiert, aber leider ohne Erfolg, siehe Tester.xls
Gruß Paul
https://www.herber.de/bbs/user/71798.xls

Code in "Diese Arbeitsmappe" ! stand dabei !

07.10.2010 18:01:26

Matthias

kwT=kein weiterer Text