Chrissmeli
Newbie
- Registriert
- Mai 2023
- Beiträge
- 2
Hallo miteinander,
ich würde für meinen Verein eine Google Tabelle benötigen indem man sich
in der ersten Spalte in jeder Zelle nur einmal eintragen kann.
Nach dem Eintrag sollte diese Zelle mit einem Blattschutz gesperrt werden.
Im Excel wäre dies folgender Makrocode
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngBereich As Range
'Nur Spalte C bis S
Set rngBereich = Intersect(Target, Range("C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,Q:Q,R:R,S:S"))
If Not rngBereich Is Nothing Then
'Blatt schützen
ActiveSheet.Protect "Passwort", UserInterFaceOnly:=True
For Each c In rngBereich
'Zelle nach Eingabe sperren
If Not IsEmpty(c) Then c.Locked = True
Next c
End If
End Sub
Es wäre super, wenn mir hier jemand helfen könnte.
Vielen dank für Eure Unterstützung.
ich würde für meinen Verein eine Google Tabelle benötigen indem man sich
in der ersten Spalte in jeder Zelle nur einmal eintragen kann.
Nach dem Eintrag sollte diese Zelle mit einem Blattschutz gesperrt werden.
Im Excel wäre dies folgender Makrocode
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngBereich As Range
'Nur Spalte C bis S
Set rngBereich = Intersect(Target, Range("C:C,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,Q:Q,R:R,S:S"))
If Not rngBereich Is Nothing Then
'Blatt schützen
ActiveSheet.Protect "Passwort", UserInterFaceOnly:=True
For Each c In rngBereich
'Zelle nach Eingabe sperren
If Not IsEmpty(c) Then c.Locked = True
Next c
End If
End Sub
Es wäre super, wenn mir hier jemand helfen könnte.
Vielen dank für Eure Unterstützung.