Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
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
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten automatisch einblenden

Spalten automatisch einblenden
15.07.2020 09:28:36
Umberto
Hallo zusammen,
ich habe ein kleines Problem und komme leider selbst nicht mehr weiter. Ich habe bereits im Internet recherchiert aber bisher noch nichts gefunden das funktioniert. Meine Situation sieht wie folgt aus:
Ein Makro in meiner Datei führt beim Schließen die folgenden Befehle für ein einzelnes Sheet aus: einen bestimmten Bereich sperren, bestimmte Spalten ausblenden und am Ende noch das Sheet mit einem Passwort schützen. Problem: Nachdem der Nutzer den Blattschutz per Passwort deaktiviert hat muss er die ausgeblendeten Spalten manuell wieder sichtbar machen.
Gibt es eine Möglichkeit die Spalten automatisch sichtbar zu machen, sobald der Nutzer den Blattschutz aufgehoben hat? Solange das Blatt geschützt ist soll nichts passieren, in dem Moment wo der Blattschutz aufgehoben wird soll das ganze aber automatisch passieren. Also so etwas wie: If ActiveSheet.Unprotect Then Sheets("Sheet1").Columns("XYZ").EntireColumn.Hidden = False? Und wo müsste ich den Code hinterlegen bzw. welches Event muss ich verwenden?
Mein aktueller Code sieht wie folgt aus:
'Bereich sperren
Sheets("Sheet1").Select
Sheets("Sheet1").Range("A:B").Select
If Selection.Locked = False Then
Selection.Locked = True
Selection.FormulaHidden = False
End If
'Sensible Spalten ausblenden
If Sheets("'Sheet1").Columns("X").EntireColumn.Hidden = False Or Sheets("Sheet1").Columns("Y").EntireColumn.Hidden = False Or Sheets("Sheet1").Columns("Z").EntireColumn.Hidden = False Or Sheets("Sheet1").Columns("X:Y").EntireColumn.Hidden = False Or Sheets("Sheet1").Columns("X:Z").EntireColumn.Hidden = False Or Sheets("Sheet1").Columns("Y:Z").EntireColumn.Hidden = False Then Sheets("Sheet1").Columns("X:Z").EntireColumn.Hidden = True
End If
'Blattschutz mit Passwort aktivieren
Sheets("Sheet1").Select
ActiveSheet.Protect Password:="XYZ", DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Hoffe es kann mir jemand helfen. Schon mal vielen Dank im Voraus!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten automatisch einblenden
15.07.2020 09:37:46
Werner
Hallo,
so wie ich das sehe, gibt es ja wohl einen eingeschränkten Nutzerkreis, der die Berechtigung (das Passwort) hat, um alles sehen/bearbeiten zu können.
Da würde ich beim Start der Mappe den Nutzernamen abfragen und, wenn der Nutzer zu diesem erlauchten Kreis gehört, die entsprechenden Spalten einzublenden und den Blattschutz aufzuheben.
Gruß Werner
AW: Spalten automatisch einblenden
15.07.2020 10:33:21
Umberto
Hallo,
vielen Dank für die Rückmeldung. Ja das ist richtig, es gibt einen beschränkten Nutzerkreis.
Wie würde der Code hierfür aussehen (am besten inklusive meinem aktuellen Code)? Prinzip: Nutzer A ist berechtigt und sieht einfach alles. Bei Nutzer B hingegen wird ein bestimmter Bereich gesperrt, bestimmte Spalten ausgeblendet und er darf keine Inhalte ändern. Er darf lediglich sortieren und auf die gesamte Spalte A zugreifen, da ich hier ein weiteres Makro habe das bei Doppelklick aktiviert wird.
Ich bin damals auch auf die Variante mit dem Nutzernamen gestoßen, aber ich wusste nicht wie ich das programmieren muss.
Anzeige
AW: Spalten automatisch einblenden
15.07.2020 10:55:25
Werner
Hallo,
ins Workbook_Open 
Private Sub Workbook_Open()
'abgefragt wird der Windows-Anmeldename
Select Case UCase(Environ("Username"))
'hier alle Berechtigten erfassen
'alles in Großbuchstaben
Case "KEINER", "ALLE"
With Worksheets("Sheet1")
.Columns("X:Z").Hidden = False
.Columns("A:B").Locked = False
.Unprotect Password:="XYZ"
End With
Case Else
With Worksheets("Sheet1")
.Columns("X:Z").Hidden = True
.Cells.Locked = False
.Columns("A:B").Locked = True
.Protect Password:="XYZ", DrawingObjects:=False, Contents:=True, Scenarios:=False,  _
_
AllowSorting:=True, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Select
End Sub
Und ohne dir zu Nahe treten zu wollen. Deinen VBA-Status solltest du noch mal überprüfen. Code mit Select und Status gut passen nicht zusammen.
Gruß Werner
Anzeige
AW: Spalten automatisch einblenden
15.07.2020 11:46:33
Umberto
Vielen Dank für den Code. Ich habe ihn ausprobiert, aber irgendwie wird mein Nutzername nicht erkannt. In meinem Fall gehören Max Mustermann und Erika Mustermann zu den berechtigten Personen. Wo liegt der Fehler?
Private Sub Workbook_Open()
'abgefragt wird der Windows-Anmeldename
Select Case UCase(Environ("Username"))
'hier alle Berechtigten erfassen
'alles in Großbuchstaben
Case "MAX MUSTERMANN", "ERIKA MUSTERMANN"
With Worksheets("Sheet1")
.Columns("X:Z").Hidden = False
.Columns("A:B").Locked = False
.Unprotect Password:="XYZ"
End With
Case Else
With Worksheets("Sheet1")
.Columns("X:Z").Hidden = True
.Cells.Locked = False
.Columns("A:B").Locked = True
.Protect Password:="XYZ", DrawingObjects:=False, Contents:=True,
Scenarios:=False, AllowSorting:=True, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Select
End Sub

Anzeige
AW: Spalten automatisch einblenden
15.07.2020 11:58:44
Werner
Hallo,
erst mal der Code nochmals. Da war noch ein Fehler drin, EntireColumn hatte noch gefehlt. 
Private Sub Workbook_Open()
Select Case UCase(Environ("Username"))
Case "KEINER", "ALLE"
With Worksheets("Sheet1")
.Columns("X:Z").EntireColumn.Hidden = False
.Columns("A:B").Locked = False
.Unprotect Password:="XYZ"
End With
Case Else
With Worksheets("Sheet1")
.Columns("X:Z").EntireColumn.Hidden = True
.Cells.Locked = False
.Columns("A:B").Locked = True
.Protect Password:="XYZ", DrawingObjects:=False, Contents:=True, Scenarios:=False,  _
_
AllowSorting:=True, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Select
End Sub
Hat aber mit deinem Problem nichts zu tun.
Environ("Username") = der Windows Anmeldename
Lass dir den entsprechenden Namen mal in einer Messagebox ausgeben. 
MsgBox Environ("Username")

Diesen Namen in Großbuchstaben mußt du in der Case Anweisung angeben.
Gruß Werner
Anzeige
Korrektur
15.07.2020 12:10:07
Werner
Hallo,
hier jetzt nochmal der Code. Das EntireColumn braucht es doch gar nicht, ist doppelt gemoppelt. Aber die Reihenfolge im Code hatte nicht gepasst. Blatt muss erst entsperrt werden bevor was ein oder ausgeblendet werden kann. 
Private Sub Workbook_Open()
Select Case UCase(Environ("Username"))
Case "KEINER", "ALLE"
With Worksheets("Sheet1")
.Unprotect Password:="XYZ"
.Columns("X:Z").Hidden = False
.Columns("A:B").Locked = False
End With
Case Else
With Worksheets("Sheet1")
.Unprotect Password:="XYZ"
.Columns("X:Z").Hidden = True
.Cells.Locked = False
.Columns("A:B").Locked = True
.Protect Password:="XYZ", DrawingObjects:=False, Contents:=True, Scenarios:=False,  _
_
AllowSorting:=True, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Select
End Sub
Das Problem mit den Usernamen siehe obige Antwort.
Gruß Werner
Anzeige
AW: Korrektur
15.07.2020 15:59:51
Umberto
Vielen Dank, jetzt klappt alles!
Gerne u. Danke für die Rückmeldung. o.w.T.
15.07.2020 16:23:23
Werner

300 Forumthreads zu ähnlichen Themen

Zeilen aus- / einblenden
Thomas

Hallo,
ich möchte folgendes machen:
Entprechend dem Wert im Feld B3 sollen verschieden Zeilen ein- bzw. aus-geblendet werden.
Steht zum Beispiel im Feld B3 der Wert 1 sollen die Zeilen "B7:B15" ausgeblendet werden
Steht im Feld B3 der Wet 2 sollen die Zeilen "B8:B15" ausgeblende...
11.09.2008 18:24:56
Thread-ID: 1009202
8 Beiträge
Anzeige
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Anzeige
Zeile automatisch Einblenden
eliewsam

Hallo VBA-Experten,
ich bin auf der Suche nach einem Makro, das von einer beliebigen Zelle aus, die nächste Zeile einblendet, sofern diese ausgeblendet ist.
Vielleicht kann mir hierbei jemand weiterhelfen. Gruß Elie
08.02.2009 18:45:00
Thread-ID: 1048414
2 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Excel beim Öffnen nicht sichtbar
Dirk

Hallo Excelgemeinde!
Ich habe mal eine Frage und hoffe mal wieder auf euch!
Ich möchte einen Code beim Öffnen der Datei starten, ohne dass Excel auf dem Desktop erscheint.
Mit folgendem Code wird Excel kurz sichtbar und wird dann ausgeblendet.
Private Sub Workbook_Open() Appli...
06.05.2009 19:28:53
Thread-ID: 1073466
6 Beiträge
kleinster, resp grösster nicht ausgeblendeter Wert
Peter

Guten Abend
Ich möchte aus einem Spaltenbererich den grössten, resp. den kleinsten Wert ermitteln. Dabei dürfen nur Werte aus nicht ausgeblendeten Zeilen berücksichtigt werden.
Wie kann ich das anstellen?
Danke für eine Antwort.
Gruss, Peter
16.06.2009 20:38:45
Thread-ID: 1082045
2 Beiträge
Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
Anzeige

Links zu Excel-Dialogen

MessageBox

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
7
11
5
10
2
1
3
5
1
3
2
8
1
18
6
5
1
3
12
4
4
1
4
2
7