Zellen nach Zahleneingabe schützen

Hallo Excelfreunde,
wer kann mir helfen?
In einer geschützten Tabelle, habe ich diverse Zellen (in einem nicht zusammenhängenden Bereich) vom Zellschutz ausgenommen.
In den meisten der vom Zellschutz áusgenommenen Zellen habe ich per Gültigkeitsprüfung sichergestellt, dass nur ganze Zahlen eingegeben werden können.
Ich würde nun per VBA gerne folgendes erreichen. Immer wenn ich die Tabelle (nicht die Datei) schließe, soll zunächst der Zellschutz aufgehoben (Passwort: "Test") werden. Danach sollte geprüft werden, welche Zellen (inzwischen) Zahlen enthalten und vom Zellschutz ausgenommen sind. Für diese Zellen sollte nun auch der Zellschutz aktiviert werden. Danach sollte der Passwortschutz mit dem genannten Passwort wieder aktiviert werden.
Für eure Hilfe bei der Umsetzung meines Vorhabens bereits an dieser Stelle vielen Dank.
Gruß
Fritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fritz
Bei einem Close-Ereignis müsstest du die Speicherung "erzwingen", was nicht unbedingt erwünscht ist. Ich würde daher ein Save-Ereignis wählen, der Code bleibt aber der selbe.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim WS As Worksheet
Dim Zelle As Range
For Each WS In ThisWorkbook.Worksheets
WS.Unprotect Password:="test"
For Each Zelle In WS.UsedRange
If Zelle.Text <> "" Then Zelle.Locked = True
Next Zelle
WS.Protect Password:="test"
Next WS
End Sub

Da jedesmal jede einzelne Zelle frisch überprüft werden muss, wäre es günstig, wenn du nur den relevanten Bereich ansprechen würdest.
Gruss
Chris

Sub Worksheet_Deactivate() Dim Zelle As Range ActiveSheet.Unprotect Password:="test" For Each Zelle In ActiveSheet.UsedRange If Zelle.Text <> "" Then Zelle.Locked = True Next Zelle ActiveSheet.Protect Password:="test" End Sub

Sub Worksheet_Deactivate() Dim Zelle As Range ActiveSheet.Unprotect Password:="test" For Each Zelle In Worksheets("Tabelle1").UsedRange If Zelle.Value <> "" Then Zelle.Locked = True Next Zelle ActiveSheet.Protect Password:="test" End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Dim Zelle As Range If Sh.Type = -4167 Then Sh.Unprotect Password:="test" For Each Zelle In Sh.UsedRange If Zelle.Value <> "" Then Zelle.Locked = True Next Zelle Sh.Protect Password:="test" End If End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Dim Zelle As Range On Error Resume Next If Sh.Type = -4167 Then Sh.Unprotect Password:="test" For Each Zelle In Sh.UsedRange If Zelle.Value <> "" Then Zelle.Select Selection.Locked = True 'Zelle.Locked = True End If Next Zelle Sh.Protect Password:="test" End If End Sub

Beliebteste Forumthreads (12 Monate)

Zellen nach Zahleneingabe schützen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen nach Zahleneingabe schützen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread