Spalten bei gewissen Usernamen ausblende

Hallo liebe Community,
ich hoffe es geht euch allen gut!
Ich erstelle für meinen Bereich gerade einen Dienstplan und brauche bitte eure Unterstützung bei den folgenden Herausforderungen:
Spalten ausblenden bei Usernamen in Spalte C:
Ich möchte in den Zeilen18 140 das alle Spalten bis auf die Spalte mit meinem Anmeldename ausgeblendet werden und allen anderen Zellen mit einem Schreibschutz versehen werden. Die Zeile mit meinem Usernamen (z.B 18) soll ich regulär bearbeiten können.
Bin ich ein User, dessen Anmeldename nicht in der Spalte C steht, möchte ich alle Spalten sehen und bearbeiten können. Dass dies kein hundertprozentiger Schutz ist, ist mir klar. Darüber hinaus möchte ich gerne, dass die Formen gelbe Markierung bei allen Usern nicht angezeigt werden, die in Spalte C stehen. Abschließend möchte ich für die User, die in Spalte C stehen die schwarz umrandeten Zellen grau eingefärbt haben.
Userbild

Über eure Unterstützung würde ich mich sehr freuen!
Besten Dank und viele Grüße
Marko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marko,
hier ein Beispiel wie es "ansatzweise" gehen könnte:


Option Explicit
'das Makro startet mit Öffnen der Arbeitsmappe
Private Sub Workbook_Open()
Dim rngMA As Range
Dim zeUser As Range
Dim shCount As Long
With Sheets("KW_29")
'zunächst den Bereich der Mitarbeter*innen als Objekt definierne
Set rngMA = .Range("C18:C140")
'das open-Makro ermittelt den Usernamen
Set zeUser = rngMA.Find(Application.UserName, LookIn:=xlValues, lookat:=xlWhole)
'der gesamte Bereich des MA wird ausgeblendet
rngMA.Rows.Hidden = True
'ist der Name vom angemeldeten User bekannt, wird dessen Zeile wieder sichtbar
If Not zeUser Is Nothing Then
.Rows(zeUser.Row).Hidden = False
.Range("G7:AK8").Interior.ColorIndex = 48
'jetzt die Shapes ausblenden
For shCount = 5 To 55 'nur als Beispiel Shapes 5 (Startziffer) bis (letzteZiffer) 55
'hier die Ordnungsnummern Deiner (hoffentlich in Reihenfolge) aus-/einzublendenden Shapes nutzen
.Shapes(shCount).Visible = False
Next
Else
rngMA.Rows.Hidden = False
.Range("G6:AK9").Interior.ColorIndex = -4142
For shCount = 5 To 55
.Shapes(shCount).Visible = True
'hier die Ordnungsnummern der aus-/einzublendenden Shapes nutzen
Next
End If
End With
End Sub

Deine Arbeitsmappe kann ich nicht öffnen.
Die Mappe versucht auf nicht vorhandene Dateien zuzugreifen und entfernt dann (auch bei gedrückter Shift-Taste) die enthaltenen Makros.
Im Übrigen gehe ich mit RPP63 und seinen Bedenken konform.
Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Spalten bei gewissen Usernamen ausblende

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread