Spalten Ausblenden bei Mehr-User-Betrieb
05.05.2022 09:56:17
Raphael
ich habe hier eine Arbeitsmappe auf welche mehrere Usergruppen gleichzeitig Zugreifen.
Dies wird über OneDrive realisiert.
Gruppe 1 darf schreiben (3 Personen - nennen wir sie User A, B und C)
Gruppe 2 kann nur Lesen
Nun habe ich mehrere Buttons erstellt, mit denen ich Spalten aus- und wieder Einblenden kann.
Bis jetzt bin ich davon ausgegangen das Excel dies wie Filter behandelt und jeder User seine eigene Ansicht hat. Bei den Filtern funktioniert das auch, aber beim Ein-/Ausblenden wohl nicht.
Wenn nun User A Spalten ausblendet, werde diese auch bei User B und C ausgeblendet.
Gibt es eine Möglichkeit das dies User abhängig gemacht wird?
Also wenn User A Spalten ausblendet, dass User B und C weiterhin alle Spalten (oder Ihre eigene Auswahl) sieht?
Leider finde ich hierzu nichts im Netz (evtl. sehe ich auch den Wald vor lauter Bäumen nicht).
Hier mein Code für das Asublenden der Spalten
'*** Spalten ausblenden für Kontroller
Public Sub Liefertermin_Click()
With ThisWorkbook.Worksheets("Magdeburg")
'*** PWD muss für unberechtigte USER entfernt werdem, sonst funkioniert das hier nicht
.Unprotect Password:=strPWD
.Columns.Hidden = False
.Columns("A").Hidden = True
.Columns("G:H").Hidden = True
'.Columns("J").Hidden = True
.Columns("O:S").Hidden = True
.Columns("V").Hidden = True
.Columns("X:AM").Hidden = True
.Columns("AO").Hidden = True
.Columns("AT").Hidden = True
.Columns("AV:BA").Hidden = True
.Columns("BD:BS").Hidden = True
'*** gbolUser = True dann ist der User berechtigt und das PWD muss nicht gesetzt werden
If gbolUser = False Then
.Protect Password:=strPWD, AllowFiltering:=True
Else
End If
End With
End Sub
Gerne Spende ich dem/den Helfer oder Helferinnen eine Tüte Gummibären.
Mfg
Raphael