Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA programmierung Zeilen ausblenden

VBA programmierung Zeilen ausblenden
27.10.2005 12:56:40
maennle
Hallo zusammen,
nach einiger Weile hab ich es jetzt geschafft, mir bestimmte Spalten einer Tabelle mittels Button ausblenden zu lassen. Leider funktioniert diese Programmierung nur auf ungeschützten Blättern. Ich müsste aber den Befehl auf eben dieses ebenfalls anwenden.
Jemand ne Idee?
Grüße und danke
maennle

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA programmierung Zeilen ausblenden
27.10.2005 13:00:26
Sascha
Hallo maennle!
Mit
ActiveSheet.Unprotect Password:="xxx" bzw.
Sheets("Tabelle1").Unprotect Password:="xxx"
schaltest Du den Blattschutz aus, um ihn wieder einzuschalten, den gleichen Code, aber mit "Protect" statt "Unprotect" verwenden!
Rückmeldung wäre nett! - Gruß Sascha
AW: VBA programmierung Zeilen ausblenden
27.10.2005 13:23:06
maennle
Hey Sascha,
hat perfekt geklappt, ich hab einfach den Code der beiden Buttons mit den befehlen eingefasst, so das er mir den Blattschutz immer wieder aktiviert.
Tausend Dank.
noch ne Frage:
Ich bin mit VBA absolut jungfräulich, wie kann ich verhindern, dass ein Benutzer meiner Vorlage dann via Editor den Code betrachten bzw. verändern kann oder das Blattpasswort ausliest?
Nochmals merci
Gruß vom maennle
Anzeige
AW: VBA programmierung Zeilen ausblenden
27.10.2005 13:42:11
Sascha
Hallo maennle!
Du wechselst mit ALT+F11 in den VBA-Editor und machst im "Projekt-Explorer" einen Rechtsklick auf dein "VBAProject", wählst "Eigenschaften von VBAProject" aus, klickst auf den Reiter "Schutz", hakst "Projekt für die Anzeige sperren" an und gibt ein Passwort ein - fertig!
Rückmeldung wäre nett! - Gruß Sascha
AW: VBA programmierung Zeilen ausblenden
27.10.2005 14:16:48
meannle
Optimal, sag ich da nur......................
Danke nochmals...........
mit jeder Antwort stellen sich mir neue Fragen!.........
Gibt es in Excel die Möglichkeit, nur vorher definierte Benutzer eine Mappe bearbeiten zu lassen?
Gruß
maennle
Anzeige
AW: VBA programmierung Zeilen ausblenden
27.10.2005 16:17:41
Sascha
Hallo maennle!
Was mir jetzt spontan einfällt, ist dass Du unter "Extras-Optionen-Sicherheit" ein
"Kennwort zum Öffnen" eingibst und den Personen, die Zugriff auf die Datei haben sollen, dass Kennwort mitteilst!
Rückmeldung wäre nett! - Gruß Sascha
AW: VBA programmierung Zeilen ausblenden
27.10.2005 16:35:05
maennle
Hi Sascha,
hab ich auch schon gesehen, ist auch ganz gut soweit, nur ist dieses Password hald relativ allgemein.
Bei einer personenbezogenen Authentifizierung wäre das natürlich geschickter, weil in meinem Fall keiner der Benutzer seine preisgeben würde.......
Trotzdem danke, ohne Dich wäre ich längst nicht soweit.......
Kann ich via VBA bei jeder Öffnung des Dokumentes/mappe alle gesperrten Zellen auch wirklich sperren, d.h. nicht mal aktivieren, nur ungesperrte Zellen aktiviert werden können?
Bis denne
maennli
Anzeige
AW: VBA programmierung Zeilen ausblenden
27.10.2005 16:40:53
Sascha
Hallo maennle!
Eine personalisierte Passworteingabe kann ich Dir leider nicht bieten, versuchs doch mal in einem neuen Thread!
Hier noch der Code, damit nur ungesperrte Zellen aktiviert werden können:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="geheim"
ActiveSheet.EnableSelection = xlUnlockedCells
Rückmeldung wäre nett! - Gruß Sascha
AW: VBA programmierung Zeilen ausblenden
27.10.2005 17:10:06
maennle
muss ich das in alle Blätter reinschreiben?
AW: VBA programmierung Zeilen ausblenden
28.10.2005 10:52:20
Sascha
Hallo maennle!
Hier ein Code, um alle Blätter zu schützen/auf allen Blättern den Schutz aufzuheben:

Sub schutz()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="geheim"
Sheets(i).EnableSelection = xlUnlockedCells
Next i
End Sub



Sub kein_schutz()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="geheim"
Next i
End Sub

Rückmeldung wäre nett! - Gruß Sascha
Anzeige
AW: VBA programmierung Zeilen ausblenden
28.10.2005 11:51:10
maennle
Hab den unter "diese Arbeitsmappe" eingefügt:

Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="bla"
Sheets(i).EnableSelection = xlUnlockedCells
Next i
End Sub

Es funzt....!
Wo genau müsste ich Deinen Code einfügen?
Gruß

319 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Anzeige
bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
Matthias
Hi,
ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
24.01.2010 16:55:43
Thread-ID: 1132489
4 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Spalten und Zeilen ausblenden per Makro
Stefan

Hallo,
ich möchte per Makro bestimmte Spalten und Zeilen ausblenden. Der mit dem Makrorcorder erst aufgezeichnete und angepaßte Weg blendet mir dann allerdings alle Spalten und Zeilen aus.
Kann mir bitte jemand helfen, wie ich den Code schreiben muss?
Sub Fall2_Spalten_Zeilen_ausb...
06.04.2010 10:10:32
Thread-ID: 1150290
9 Beiträge
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 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
4
5
6
5
3
3
8
7
7
3
1
2
5
6
9
5
2
2
4
1
3
2
6
3