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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 649619
Url: https://administrator.de/contentid/649619
Printed on: April 18, 2024 at 16:04 o'clock
5 Comments
Latest comment
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"!
