5
Zellenschutz abhängig von Formatierung
Hallo,
ich habe mir ein recht aufwendiges Blatt erstellt mit komplexen Formeln. Da Kollegen damit arbeiten möchte ich das Blatt schützen. Nun meine Frage:
Felder mit Formeln habe ich einheitlich grau hinterlegt. Kann ich ein Macro schreiben, was mir die grauen Felder (Passwortgeschützt)Sperrt? Da es sehr viele einzelne Zellen und Spalten sind würde ich das gerne automatisieren. Auch weil ich die Blätter immer wieder erweitere und nicht jedes mal herumfummeln will mit dem Blattschutz.
Habt ihr eine Idee wie ich das hinbekomme?
Besten Dank
lg Markus
ich habe mir ein recht aufwendiges Blatt erstellt mit komplexen Formeln. Da Kollegen damit arbeiten möchte ich das Blatt schützen. Nun meine Frage:
Felder mit Formeln habe ich einheitlich grau hinterlegt. Kann ich ein Macro schreiben, was mir die grauen Felder (Passwortgeschützt)Sperrt? Da es sehr viele einzelne Zellen und Spalten sind würde ich das gerne automatisieren. Auch weil ich die Blätter immer wieder erweitere und nicht jedes mal herumfummeln will mit dem Blattschutz.
Habt ihr eine Idee wie ich das hinbekomme?
Besten Dank
lg Markus
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 649619
Url: https://administrator.de/contentid/649619
Ausgedruckt am: 25.11.2024 um 09:11 Uhr
5 Kommentare
Neuester Kommentar
Farbe an Bedürfnisse anpassen ...
Gruß j.
Sub LockUnlockCells()
Dim cell as Range
For each cell in ActiveSheet.UsedRange
cell.Locked = IIF(cell.Interior.Color = RGB(128,128,128), True, False)
Next
End subGruß j.
Hallo,
Nutze doch die integrierten Schutzfunktionen.
Je nach dem, welche Zelle, einfach in den [Zelleigenschaften >Gesperrt] setzen.
VG
Frank
Nutze doch die integrierten Schutzfunktionen.
Je nach dem, welche Zelle, einfach in den [Zelleigenschaften >Gesperrt] setzen.
VG
Frank
Vielen Dank!
schaut nicht so kompliziert aus eigentlich. Allerdings verweigert er mir das Script mit als Fehler in "cell.allowedit = ....." mit der Antwort: falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft. Habe die Farbe allerdings korrigiert (217,217,217)
momentan steht es 1:1 so da:
Sub LockUnlockCells()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
cell.AllowEdit = IIf(cell.Interior.Color = RGB(217, 217, 217), False, True)
Next
End Sub
schaut nicht so kompliziert aus eigentlich. Allerdings verweigert er mir das Script mit als Fehler in "cell.allowedit = ....." mit der Antwort: falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft. Habe die Farbe allerdings korrigiert (217,217,217)
momentan steht es 1:1 so da:
Sub LockUnlockCells()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
cell.AllowEdit = IIf(cell.Interior.Color = RGB(217, 217, 217), False, True)
Next
End Sub
na dann müsste ich ja erst jede Zelle einzeln auswählen ;) Das ist genau das was ich verhindern möchte
Sorry hatte die falsche (readonly) Property genommen (AllowEdit statt Locked), oben korrigiert ... Vorher natürlich Sheet "unprotecten"!
