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
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden über VBA trotz Blattschutz

Ausblenden über VBA trotz Blattschutz
29.09.2005 15:38:27
Bernhard
Hallo Excel-Profis!
Ich habe folgendes Problem:
Folgende Routine blendet mir ständig nicht benötigte Zeilen aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("1:500").EntireRow.Hidden = False
For i = 1 To 500
If Cells(i, 11).Value = "x" Then
Cells(i, 11).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Nachdem ich dann den Blattschutz aktiviert habe, funktioniert das ganze nicht mehr.
Wie kann ich das Problem umgehen?
Für Antworten wäre ich sehr dankbar!
Mit freundlichem Gruß
Bernhard Röll

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 15:40:48
Leo 

Private Sub Worksheet_Change(ByVal Target As Range)
me.unprotect password:="xxx"
Application.ScreenUpdating = False
Rows("1:500").EntireRow.Hidden = False
For i = 1 To 500
If Cells(i, 11).Value = "x" Then
Cells(i, 11).EntireRow.Hidden = True
End If
Next i
me.protect password:="xxx"
Application.ScreenUpdating = True
End Sub

AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 15:43:29
u_
Hallo,
setze den Schutz über VBA
sheets(1).protect Password:="Test", userinterfaceonly:=true
Gruß
Geist ist geil!
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 15:49:45
Bernhard
Wo muss ich das genau einfügen? Hat bisher leider nicht funktioniert.
Trotzdem danke!
Anzeige
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 16:04:05
Bernhard
Hallo zusammen,
ich habe nun versucht den ursprünglichen Zustand wiederherzustellen und jeglichen Schutz deaktivert. Allerdings werden trotzdem keine Zeilen mehr ausgeblendet.
Wie muss ich mit diesem Blattschutz umgehen?
Grüße,
Bernhard Röll
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 17:04:15
harry
hi,
hab nur folgende "hilflösung" gefunden: du musst die zelle in spalte 11 mit der maus doppelklicken und dann einen wert eingeben.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 11 Then
Me.Unprotect Password:="xxx"
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("1:500").EntireRow.Hidden = False
For i = 1 To 500
If Cells(i, 11).Value = "x" Then
Cells(i, 11).EntireRow.Hidden = True
End If
Next i
Me.Protect Password:="xxx"
Application.ScreenUpdating = True
End Sub

liebe grüße,
harry
Anzeige
AW
30.09.2005 08:05:41
Bernhard
Vielen Dank! Hat funktioniert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige