Schreibschutz

Bild

Betrifft: Schreibschutz von: Daniel
Geschrieben am: 06.02.2005 17:25:45

Hallo zusammen

Kann mit jemand folgende Frage beantworten:

Ich möchte nach dem schliessen eines Excelfiles alle nichtleeren Zellen automatisch schreibschützen. Ist das möglîch? Bis jetzt habe ich folgenden Code benützt, wenn ich aber eine Eingabe korriegiern wollte ging das ohne Passwort nicht. Kann ich der Code mit dem before.close Code benützen.

Danke 1000 mal


Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
  If z.Value <> "" Then
  ActiveSheet.Unprotect Password:="1234"
  z.Locked = True
  ActiveSheet.Protect Password:="1234"
  End If
  Next z
End Sub

Bild


Betrifft: AW: Schreibschutz von: Ulf
Geschrieben am: 06.02.2005 17:46:12

Den Tabellennamen musst du anpassen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As Range
Sheets("Tabelle1").Unprotect Password:="1234"
Sheets("Tabelle1").Cells.Locked = False
For Each z In Sheets("Tabelle1").UsedRange
  z.Locked = z.Value <> ""
Next z
Sheets("Tabelle1").Protect Password:="1234"
End Sub


Ulf


Bild


Betrifft: AW: Schreibschutz von: Daniel
Geschrieben am: 06.02.2005 17:52:22


Danke Ulf, bin nahe drann aber bei schliessen erhalte ich eine Deugger Fehler und der Code bleibt hier stehen.

z.Locked = z.Value <> ""

Danke


Bild


Betrifft: AW: Schreibschutz von: Ulf
Geschrieben am: 06.02.2005 17:56:13

Kann ich nicht nachvollziehen, bei mir gehts problemlos.

Ulf


Bild


Betrifft: AW: Schreibschutz von: Ulf
Geschrieben am: 06.02.2005 18:06:01

Versuchs mal so:

Dim z As Range
Sheets("Tabelle1").Unprotect Password:="1234"
Sheets("Tabelle1").Cells.Locked = False
For Each z In Sheets("Tabelle1").UsedRange
z.Locked = Not IsEmpty(z)
Next z
Sheets("Tabelle1").Protect Password:="1234"

Ulf


Bild


Betrifft: AW: Schreibschutz von: Daniel
Geschrieben am: 06.02.2005 22:00:53

Danke so gehts...


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen Zugriff bei fortlaufenden Zeilen"