Exelberechtigung VBA in andere Arbeitblätter übernehmen

Devil0401 · 2024-11-09T01:19:54+00:00

Habe eine Anwesenheitsliste mit mehreren Mitarbeitern. Jeder kann aber nur seine Zellen bearbeiten. Da ich mehrere Arbeitsblätter habe Januar, Februar usw. habe ich bisher in jedem Arbeitsblatt die Berechtigungen zugewiesen. Gibt es eine Möglichkeit das ich das nur in einem Arbeitsblatt mache und es in die anderen Kopiere ?

Solange die gesperrten Zellen auf allen Blättern gleich bleiben, geht es einfach.
Du musst nur ein "Blankomonat" als Vorlage haben und kannst aus diesem Blatt, nachdem alle Berechtigungen gesetzt sind, alle anderen durch Kopieren und Umbenennen des ganzen Blattes generieren. Dafür sollte immer nur der Monatsanfang ein Datum (z.B.: 01.01.2024) haben und die Folgetage sollten per Formel mit +1 berechnet werden.
Alternativ:
Im "Workbook_SheetSelectionChange"-Event, je nach User, das Auswählen bestimmter Zellen einfach verhindern, indem stattdessen z.B. A1 ausgewählt wird. Wer nix auswählen kann, kann auch nix ändern. Dann brauchst du gar kein Blattschutz mehr und kommst nur mit einem einzigen Makro aus.
Hier ein Beispiel, wie es geht:
https://www.herber.de/bbs/user/173478.xlsm

Da sind noch soviel andere Sachen mit drin das er z.b. Automatisch die Schulferien und so mit einbindet, Automatisch Feiertage und Wochenenden einträgt. Hatte mir das eigentlich mit VBA überlegt. Habe schon was Funktioniert aber noch nicht.

Sub KopiereBerechtigungen()
Dim ws As Worksheet
' Ein beliebiges Arbeitsblatt als Master nehmen
Set MasterArbeitsblatt = ThisWorkbook.Sheets("Januar")

For Each ws In ThisWorkbook.Worksheets
If ws.Name > MasterArbeitsblatt.Then
' Blattschutz und Berechtigungen wie im Masterblatt setzen
ws.Unprotect
ws.Protect AllowFormattingCells:=MasterArbeitsblatt.Protection.AllowFormattingCells, _
AllowFormattingColumns:=MasterArbeitsblatt.Protection.AllowFormattingColumns, _
AllowFormattingRows:=MasterArbeitsblatt.Protection.AllowFormattingRows, _
AllowInsertingColumns:=MasterArbeitsblatt.Protection.AllowInsertingColumns, _
AllowInsertingRows:=MasterArbeitsblatt.Protection.AllowInsertingRows, _
AllowDeletingColumns:=MasterArbeitsblatt.Protection.AllowDeletingColumns, _
AllowDeletingRows:=MasterArbeitsblatt.Protection.AllowDeletingRows, _
AllowSorting:=MasterArbeitsblatt.Protection.AllowSorting, _
AllowFiltering:=MasterArbeitsblatt.Protection.AllowFiltering, _
AllowUsingPivotTables:=MasterArbeitsblatt.Protection.AllowUsingPivotTables
End If
Next ws
End Sub

Exelberechtigung VBA in andere Arbeitblätter übernehmen

Forumthread: Exelberechtigung VBA in andere Arbeitblätter übernehmen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Exelberechtigung VBA in andere Arbeitblätter übernehmen

Forumthread: Exelberechtigung VBA in andere Arbeitblätter übernehmen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread