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

Ausblenden über VBA trotz Blattschutz

Forumthread: Ausblenden über VBA trotz Blattschutz

Ausblenden über VBA trotz Blattschutz
29.09.2005 17: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 17: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

Anzeige
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 17: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 17:49:45
Bernhard
Wo muss ich das genau einfügen? Hat bisher leider nicht funktioniert.
Trotzdem danke!
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 18: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
Anzeige
AW: Ausblenden über VBA trotz Blattschutz
29.09.2005 19: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 10:05:41
Bernhard
Vielen Dank! Hat funktioniert
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum