Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden und schützen

Spalten ausblenden und schützen
rseinert
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
Extra-Blatt, dieses verstecken ...
Volker
Hallo Wie_auch_immer_Dein_Name_ist,
wuerde die sensiblen Daten in ein separates Blatt verlegen und dieses mit xlVeryHidden verstecken. Nach Klick auf eine zu erstellende Schaltflaeche wird ein Passwort abgefragt und - wenn richtig - dann das Blatt angezeigt.
Gruss
Volker Croll
www.crolltools.decolor>
AW: Extra-Blatt, dieses verstecken ...
rseinert
Hallo Volker,
hab mir das mit dem extra Tabellenblatt schon fasst gedacht, dass das im eigentlichen Blatt nicht gut funktioniert.
Aber xlVeryHidden klingt nach VB - und davon hab ich keine Ahnung.
Wie würde denn das konkret aussehen, wenn es Dir nicht zu viel Mühe macht.
Gruß Ralf
Anzeige
AW: Extra-Blatt, dieses verstecken ...
Erich
Hallo Ralf,
es wäre im Blatt auch möglich, wenn unter Format/Blatt die Möglichkeit "Einblenden"
für den "normalen Benutzer" gesperrt wird und dieses "Einblenden" nur mit einem
Passwort möglich ist.
Bastle an einem ähnlichen Problem und habe die UserForm mit Passwort bereits.
Was mir fehlt ist die Sperre des "Einblendens". Bin mir sicher in den letzten Tagen
im Forum eine ähnliche Problemlösung bereits gesehen zu haben - hab sie aber noch nicht
gefunden.
Evtl. könnte ich mich heute abend nochmals melden.
mfg
Erich
AW: Extra-Blatt, dieses verstecken ...
rseinert
Hallo Erich,
wäre echt nett, wenn Du heute abend was findest.
Gruß Ralf
Anzeige
AW: Extra-Blatt, dieses verstecken ...
Erich
Hallo Ralf,
leider habe ich momentan nicht soviel Zeit; aber hier mal eine Musterdatei
(Urversion von Nepumuk):
https://www.herber.de/bbs/user/4973.xls
Vielleicht kannst Du ja mal testen.
Melde mich die nächsten Tage nochmal.
Falls Du eine Lösung findest, würde die mich auch interessieren.
mfg
Erich
AW: Ein kleines Beispiel ...
rseinert
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
Anzeige
Sehe keine andere Moeglichkeit ...
06.04.2004 14:35:51
Volker
Hallo Ralf,
wenn - aus den von Dir genannten Gruenden - es nicht in Frage kommt, dass Blatt zu schuetzen, bleibt Dir nur die Variante mit den Extra-Blatt. Denn wie auch immer Du Spalten ausblendest, ist dies allein durch die "fehlenden" Spalten-Buchstaben fuer jeden sofort zu sehen.
Nur das versteckte Blatt taucht selbst im "Dokumentinhalt" (Rechtsklick auf Datei, dann EIGENSCHAFTEN, Register DOKUMENTINHALT) nicht auf.
Gruss
Volker Croll
www.crolltools.decolor>
...wer suchet der findet .....
Erich
Hallo Ralf,
hat zwar etwas gedauert - aber schau mal hier:
https://www.herber.de/forum/archiv/380to384/t383505.htm
In das Tabellenmodul:

Private Sub Worksheet_Deactivate()
Application.CommandBars("Format").Controls("Spalte").Controls("Einblenden").Enabled = True
End Sub



Private Sub Worksheet_Activate()
Application.CommandBars("Format").Controls("Spalte").Controls("Einblenden").Enabled = False
End Sub

In Kombination von der Urversion von Nepumuk müsste es irgendwie funktionieren!?
Bitte kurzes Feedback - Danke!
mfg
Erich
Anzeige
Und was, wenn Makros nicht aktiviert sind ?
Volker
Hallo Ralf,
natuerlich geht das. Aber der Anwender braucht die Tabelle doch nur ohne Makroaktivierung zu oeffnen, schon kann er die Spalten einblenden (weil er - wie ich schon schrieb - durch die fehlenden Buchstaben, dies ja muehelos erkennt).
Da die Forderung ist, dass die Daten moeglichst versteckt sein sollen, fuehrt - denke ich - kein Weg am Extra-Blatt vorbei.
Gruss
Volker Croll
www.crolltools.decolor>
.. dann Startmakro aktivieren erzwingen...
Erich
Hallo Ralf,
Hallo Volker,
dann muss die Datei so aufbereitet werden, dass beim Starten ohne Aktivierung die
"sensiblen Blätter" ausgeblendet bleiben; Muster:
https://www.herber.de/bbs/user/5024.xls
mfg
Erich
Anzeige
Dann sind wir uns doch einig, oder ?
Volker
Hallo zusammen,
es sind doch meine Worte, es ueber ein verstecktes Blatt zu loesen (siehe meine Beispieldatei). Mein Einwand bezog sich doch auf ausgeblendete Spalten.
Gruss
Volker Croll
www.crolltools.decolor>
..ja - aber unterschiedliche Wege......
Erich
Hallo Volker,
habe mal versucht eine Kombination zu finden:
https://www.herber.de/bbs/user/5046.xls
Siehe in der Menüleiste der Datei oben rechts: CHEFSACHE
Tabelle Sensibel
Besten Dank für kurzes Feedback!
Das ist die Stärke des Forums - weiterentwickeln...
...ob Ralf unsere Ideen noch verfolgt?
mfg
Erich
Anzeige
AW: ..ja - aber unterschiedliche Wege......
rseinert
Hallo Zusammen,
ich verfolge das auf jeden Fall noch. Vielen Dank übrigens für die Hilfen.
Zu Zeit bin ich etwas gestreßt (13 Std Tag gehabt) und werde mir die Sache mal über Ostern in Ruhe anschauen
Gruß Ralf
Danke und mein Resuemee ...
Volker
Hallo zusammen,
schoen, dass Ralf noch am Ball ist. Denke, dass er jetzt einige Ansaetze hat, die Ihn weiterbringen.
Wie meistens, gibt's verschiedene Ansaetze. Fuer meinen Geschmack ist Dein Loesungweg, Erich, bezogen auf die Aufgabenstellung(!) zu aufwendig. Abgesehen davon muesste da noch einiges abgefangen werden, klick z.B. mal unter CHEFSACHE auf AUSBLENDEN, wenn Du Dich im Start-Makro-Blatt befindest; schon meldet sich der Debugger.
Auch dass beim Oeffen zunaechst noch Dein ...deaktiviert...-Blatt erscheint (stell Dir den Ablauf mal auf einem alten Pentium 1 mit wenig RAM vor) kann dazu fuehren, dass der DAU um Hilfe schreit, noch bevor er die Entertaste losgelassen hat.
Aber bitte, das ist alles nur konstruktiv gemeint.
Denke der Betrag ist mittlerweile auch schon sehr lang geworden und wird demnaechst eh im Archiv verschwinden.
Deshalb schnell noch allen
schoene Ostern gewuenscht!
Gruss
Volker Croll
www.crolltools.decolor>
Anzeige
AW: Danke und mein Resuemee ...
Erich
Hallo zusammen,
mir ging es ebenfalls nicht darum, eine Endlösung bereitzustellen, sondern Ideen
(weiter-)zuentwickeln, wobei der Anwender indiviudell entscheiden muss, welchen
Aufwand er betreibt, je nach Größe des Projekts.
Also ebenfalls schöne Ostern..........
mfg
Erich
AW: Danke und mein Resuemee ...
rseinert
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Spalten ausblenden (verbundene Zellen)
Horst_Hb

Hallo,
meine Frage: in 2. Zeile habe ich von Spalte 15 bis 76 immer 2 Zellen nebeneinander verbunden, worin die fortl. Tagesdatume stehen (O2:BX2-> OP2; QR2 ...). 12 Mappenregister als Monate. Wie kann ich denn verbundene Zellen (Spalten somit) ausblenden. Ausblendkriterien: a) Alle Spal...
13.08.2008 14:47:00
Thread-ID: 1001545
6 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Listbox, letzter Eintrag nicht sichtbar
ede

Hallo,
ich habe eine Listbox in ein Excelsheet eingebunden. Passend zu dem ausgewählten Eintrag wird die Auswahl in eine Zelle geschreiben, die Input für eine Grafik ist. Funktioniert alles soweit bestens.
Als ListfillRange habe ich einen namentlich definierten Bereich eingegeben : "Bau...
11.11.2008 15:19:10
Thread-ID: 1023583
7 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
5
3
3
1
15
4
2
6
22
3
8
4
2
7
4
8
1
10
5
2
7
6
6
4