Funktion trotz Blattschutz?

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Range("I1").Text = "JA" Then 'JA Rows("03:04").EntireRow.Hidden = True End If If Range("I1").Text = "NEIN" Then 'NEIN Rows("03:04").EntireRow.Hidden = False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler ActiveSheet.Unprotect "ABC" If Range("I1").Text = "JA" Then 'JA Rows("03:04").EntireRow.Hidden = True End If If Range("I1").Text = "NEIN" Then 'NEIN Rows("03:04").EntireRow.Hidden = False End If Err.Clear On Error GoTo Fehler Fehler: ActiveSheet.Protect "ABC" If Err.Number <> 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hi Daniel,
wie würde das in meiner funktion aussehen wenn ich in Tabelle3(HuW) die Zeilen 35 bis 53 ausblenden will wenn in Tabelle1(Basis1) in Zelle F21 eine 0 ist?
Zeilen 35-43 anzeigen wenn F21 eine 1 und Zeilen 45-53 ausgeblendet
Zeilen 35-53 einblenden wenn F21 eine 2 steht.
Also F21=0 Zeilen 35-53 aus, F21=1 Zeilen 35-43 ein 45-53 aus, F21=2 Zeilen 35-53 ein
Zeilen 35-53 in Tabelle3
Dieser Code in Tabelle1

Private Sub Worksheet_change(ByVal Target As Range)
On Error GoTo Fehler
ActiveSheet.Unprotect "123"
If Range("A21").Text = "JA" Then 'JA
Rows("22:28").EntireRow.Hidden = False
Range("B1").Select
End If
If Range("A21").Text = "NEIN" Then 'NEIN
Rows("22:28").EntireRow.Hidden = True
Range("B1").Select
End If
If Range("F21").Text = "0" Then '0 Mieterwechsel
Columns("K:O").EntireColumn.Hidden = True
Range("A1").Select
End If
If Range("F21").Text = "1" Then '1 Mieterwechsel
Columns("K:M").EntireColumn.Hidden = False
Columns("N:O").EntireColumn.Hidden = True
Range("B1").Select
End If
If Range("F21").Text = "2" Then '2 Mieterwechsel
Columns("K:O").EntireColumn.Hidden = False
Range("B1").Select
End If
Err.Clear
On Error GoTo Fehler
Fehler:
ActiveSheet.Protect "123"
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

…wird, Daniel,
wird das bspw bei jedem Öffnen der Datei automatisch ausgeführt. Damit ist dann auch dieser unterschiedliche Schutz gewährleistet, anderenfalls nur der Blattschutz generell.
MS erwähnt sowohl diese Methode als auch ein temporäres Unprotect gleichwertig. Inwiefern jetzt die Vorteile der letzteren die der ersteren Methode überwiegen sollten, ist mir unklar. Die Nachteile der letzteren sind dagg klar, bspw falls die Datei unbeabsichtigt nach Aufheben des Blattschutzes gespeichert wird und Xl abstürzt bevor der Blattschutz wieder gesetzt wird. Wesentliche Nachteile der ersteren Methode kann ich dagg nicht erkennen, es sei denn, freigegebene Dateien bereiten hierbei Probleme. Aber die sorgen ja ohnehin für noch andere.
Die von dir genannte Begründung ändert allerdings nichts an der Subjektivität deiner generellen Aussage und somit wenigstens formalen Inkorrektheit, zumal das hier und anderswo schon oft vorgeschlagen wurde.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread