Spaltensichtbarkeit funktioniert nicht
14.11.2022 16:16:55
Andi
ich habe eine Excel erstellt, die ich von meinem PC aus über Teams teile, damit die Personen der Abteilung auf dem offen zugänglichen AbteilungsPC daran arbeiten können.
Da eine Spalte und eine Tabellenblatt Datenschutzrelevante Inhalte haben, welche nicht jeder sehen soll, hab ich die mit dem folgenden Code ausgeblendet. Nun habe ich allerdings das Problem, dass wenn ich die Liste an meinem PC bearbeite und speichere, die versteckten Spalten plötzlich am AbteilungsPC sichtbar sind. Wenn ich die Datei dann schließe und wieder öffne sind die Spalten wieder weg.
Ziel ist es, dass ich an meinem PC alles sehen kann aber der AbteilungsPC nur beschränkte Sichtbarkeit hat.
Ich würde mich über jede Hilfe freuen.
Grüße Andi
Sub VisCalcTime() ' Sichtbarkeit Spalte H einschränken
Dim strName1 As String
Dim strName2 As String
Dim strName3 As String
strName1 = "xXAdminXx" ' Nur der hier angegebene Nutzername kann Spalte H sehen
Application.ScreenUpdating = False
With Worksheets("Aufgabenübersicht")
.Columns.Hidden = False
.Columns("H").Hidden = Application.UserName strName1 'Spalte H ausblenden
End With
Application.ScreenUpdating = True
Application.ScreenUpdating = False
With Worksheets("Archiv")
.Unprotect
.Columns.Hidden = False
.Columns("H").Hidden = Application.UserName strName1 'Spalte H ausblenden
.Protect
End With
Application.ScreenUpdating = True
If Application.UserName strName1 Then 'Tabellenblätter ausblenden
Worksheets("Auslastung").Visible = False
Worksheets("Stundenaufwand").Visible = False
Else
Worksheets("Auslastung").Visible = True
Worksheets("Stundenaufwand").Visible = True
End If
End Sub