Spalten ausblenden und schützen

rseinert · 1970-01-01T00:00:00+00:00

Hallo Zusammen, in einer Excel-Tabellen, die mehreren Bearbeitern zugänglich ist, sollen zwei Spalten mit leicht sensiblen Daten vor den Bearbeitern dauerhaft versteckt werden. Die Geschäftleitung soll durch Eingabe eine Passwortes (oder ähnliches) die Spalten wieder einblenden und bearbeiten können. Was jedoch wichtig ist: Die Bearbeiter müssen trotz der zwei ausgeblendeten Spalten die Tabelle um Zeilen erweitern können! Ist das überhaupt möglich und wenn ja wie? Wie sicher ist so eine Methode? Also ich meine nicht das cracken des Passwortes, sondern so einfache Sachen wie Kopieren des ganzen Tabellenblattes und Einfügen in ein neues Tabellenblatt und Spalten dann Einblenden. Beispieldatei: https://www.herber.de/bbs/user/4939.xls

Hallo Zusammen,
ich hab mit den zwei Dateien von Erich und Volker mal etwas rum experimentiert.
Also: Wenn ich ein ganzes Blatt verstecken will - Kein Problem, da ist Volkers Lösung super. Wenn man noch das VBProjekt mit Passwort verbirgt, ist das für den normalen Hausgebrauch ausreichend sicher.
Bei meinem eigentlichen Problem bin ich jedoch nicht weiter gekommen. In der Urversion von Nepomuk kann ich zwar die Spalten ausblenden, aber auch genau so leicht wieder einblenden. Einzige Abhilfe ist ein Blattschutz, dass kann ich aber nicht machen, weil die Tabelle von jedermann um Zeilen erweitert werden darf.
Ich habe mal ein bisschen recherchiert und bin dabei auf folgenden Artikel gestoßen:
https://www.herber.de/forum/archiv/228to232/t229594.htm - Da haben sich Formumbesucher auch schon mit dem Problem befasst und keine Lösung gefunden.
Kann es also sein, dass es was ich benötige (Spalten sicher verbergen)gar nicht gibt?
Viele Grüße Ralf

Hallo Zusammen!
ich hab mit dem Entwurf von Erich mal ein bisschen rumgespielt also:
Das Teil ist echt gut - ein paar Kinderkrankheiten kriegen wir auch noch weg.
Das Aus-/Einblenden hab ich umgeschrieben(mit Forum Hilfe). Habe mich auf die Spaltenüberschriften bezogen, da wenn jemand gemein ist und vor den auszublendenden Spalten ein paar Spalten einfügt, dann verschiebt sich alles und die zu verdeckenden Spalten kommen zum Vorschein. (Habs irgendwie geschafft)
Neu:


Sub Einblenden()
Dim iCol As Integer
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden1" Then
Columns(iCol).Hidden = False
End If
Next
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden2" Then
Columns(iCol).Hidden = False
End If
Next
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden3" Then
Columns(iCol).Hidden = False
End If
Next
End Sub


Sub Ausblenden()
Dim iCol As Integer
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden1" Then
Columns(iCol).Hidden = True
End If
Next
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden2" Then
Columns(iCol).Hidden = True
End If
Next
For iCol = 1 To 256
If Cells(1, iCol) = "Ausblenden3" Then
Columns(iCol).Hidden = True
End If
Next
End Sub

Ausblenden1 Ausblenden2 Ausblenden3 sind in diesem Fall die Spalten-Überschriften und die kann kein unautorisierter User ändern. Geht das o. K ?
Jetzt hab ich nur noch eine Bitte:
Lässt sich eine Routine hinzufügen, dass zwingend, wenn die Datei geschlossen wird, die drei Spalten ausgeblendet werden. Kann ja sein, dass zerstreuter Chef das manuelle Schließen über Eingabefeld Chefsache vergißt.
Viele Grüße Ralf

Forumthread: Spalten ausblenden und schützen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial