Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter mit Passwortschutz beim öffnen entferne

Autofilter mit Passwortschutz beim öffnen entferne
21.10.2014 12:07:45
Stephan
Guten Tag zusammen,
Ich habe eine Passwortgeschützte Tabelle bei der der Autofilter aktiv ist.
Beim öffnen der Tabelle soll jedoch jeweils der Autofilter entfernt werden und die Tabelle jedoch wieder mit Passwortschutz versehen werden. Dabei soll der Filter bedient werden können. Auch soll das Makro zu keinem Fehler kommen, falls beim Öffnen kein Filter gesetzt wird. Ich habe versucht das ganze mit diversen Makros die ich aus dem Netz gefunden haben zu basteln. Kommt jedoch immer zu einem Fehlerüberlauf.
Gestartet habe ich mit folgende Makro: 
Private Sub Workbook_Open()
Worksheets("KVP@Wander_Liste").ShowAllData
End Sub
Dies funkttioniert auch soweit, jedoch nicht mit Passwort und es eben kommt auch zu einem Fehler beim öffnen, falls kein Filter gesetzt ist. Hat jemand eine Lösung.
Ich wünsche allseits en Guete.
Lieber Gruss Stephan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter mit Passwortschutz beim öffnen entferne
21.10.2014 14:16:14
fcs
Hallo Stephan,
etwa so 
Private Sub Workbook_Open()
Dim wks As Worksheet
Set wks = Worksheets("KVP@Wander_Liste")
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then
.Unprotect Password:="test"
.ShowAllData
.Protect Password:="test", AllowFiltering:=True
End If
End If
End With
End Sub
'oder so
Private Sub Workbook_Open()
Dim wks As Worksheet, intFilter As Integer
Set wks = Worksheets("KVP@Wander_Liste")
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then
.Unprotect Password:="test"
For intFilter = 1 To .AutoFilter.Filters.Count
If .AutoFilter.Filters(intFilter).On = True Then
.AutoFilter.Range.AutoFilter Field:=intFilter
End If
Next
.Protect Password:="test", AllowFiltering:=True
End If
End If
End With
End Sub
Gruß
Franz

Anzeige
AW: Autofilter mit Passwortschutz beim öffnen entferne
21.10.2014 15:03:51
Stephan
Hallo Franz,
super funktioniert einwandfrei. Besten Dank!
Lieber Gruss
Stephan

301 Forumthreads zu ähnlichen Themen

Tabellenblatt einblenden mit Passworteingabe
Claudia

Hallo guten Morgen zusammen,
ich habe eine Datei mit einigen ausgeblendetetn Tabellenblättern. WEnn ich diese einblende werde ich nach einem Passwort abgefragt und dann blendet es auch ein. Code nachstehend. Das Passwort ist bekannt und lautet test.
Private Sub Gesamt() If InputBox("B...
14.12.2008 11:48:00
Thread-ID: 1032748
3 Beiträge
Anzeige
Nur eine Zelle mit Passwort schützen
Horst

Hallo!
Ich möchte nicht ein ganzes Excelblatt mit einem Passwort schützen, sondern nur eine Zelle innerhalb eines Blattes.
Kann man dieses?
Und wenn ja wie?
Tabelle1.Range("A1").Protect Password:="123" oder
ActiveCell.Protect Password:="123" oder
Selection.Protect Passwo...
26.11.2009 08:53:47
Thread-ID: 1120172
3 Beiträge
Tabellenblatt nur mit PW öffnen
Heinz

Hallo Leute
Gibt es eine Möglichkeit,wenn ich in einer Arbeitsmappe auf das Blatt "Test" gehen möchte,das da eine PW abfrage erscheint?
Danke & Gruß
Heinz
23.09.2010 15:30:04
Thread-ID: 1179098
5 Beiträge
Anzeige
Aktualisieren nur mit Datei öffnen ?!?
urs

Hallo allerseits
Ich benutze schon länger eine Xls-Datei (4.3 Mbite) mit vielen Verweisen und Vergleichen.
Dabei wird vorallem auf eine grosse Kenndatendatei zugegriffen.
Beim ersten Zugreifen auf diese Kenndatendatei funktioniert alles tadellos. Selbst wenn ich in den Zellen das...
26.04.2011 08:53:19
Thread-ID: 1211345
3 Beiträge
Excel mit Passwort öffnen
Stefan

Hallo,
mir wurde hier vor einiger Zeit ein Makro zur Verfügung gestellt, das auch hervorragend funktioniert. Ich habe 2 Beispielmappen "Workflow_GSZ_Aktionen" (Quelltabelle) und "Workflow_GSZ_2011.xlsx" (Zieltabelle) hochgeladen.
https://www.herber.de/bbs/user/75984.xlsx (Zieltabelle)
02.08.2011 12:19:50
Thread-ID: 1224550
7 Beiträge
Userform nur mit Passwort speichern
Falk

Hallo
Es soll das Speichern der Arbeitsmappe nur mit Kennwortabfage über eine Userform möglich sein.
Kennwort falsch dann mit Fehlermeldung abbrechen und Mappe schliesen.
Beim schließen über X oder Abrechen soll das Speichern natürlich auch verhindert werden
Danke Falk
31.01.2012 09:33:57
Thread-ID: 1248615
4 Beiträge
eine Spalte nur mit Passwort Ein oder Ausblenden
Josef_T

Guten Morgen allerseits,
habe bislang die Spalte H, konventionell über Format -Ausblenden ausgeblendet. Diese Spalte wird aber immer wieder von Mitarbeitern eingeblendet, die nicht dazu befugt sind. Die Spalte beinhaltet Lohndaten.
Frage: kann man eine einzelne Spalte per VBA dauerhaft...
17.09.2012 09:21:44
Thread-ID: 1278887
4 Beiträge
versteckte Tabelle mit Passwort
Fritz_W

Hallo VBA-Experten,
ich würde gerne per Makro die versteckte Tabelle "Daten" einblenden, wenn vorher das korrekte Passwort eingegeben wurde. Beim Verlassen der Tabelle soll diese automatisch wieder versteckt ('veryhidden') werden.
Für eure Hilfen im Voraus besten Dank.
mfg
Fritz...
09.10.2012 17:39:12
Thread-ID: 1281158
5 Beiträge
Anzeige

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
2
5
2
4
3
2
6
3
3
4
1
4
13
1
3
1
4
2
7
2
11
10
2
3
16