Office: Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe

Arbeitsblätter ein- bzw ausblenden nach Zellinhalt in einer geschützten Arbeitsmappe

Hallo zusammen,
dass habe ich bisher hinbekommen...wenn die Arbeitsmappe nicht geschützt ist dann geht es natürlich...nur wenn ich die Arbeitsmappe schütze geht´s nicht...
Ich hoffe es kann mir jemand helfen.

VG Weismänn

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngZelle As Range
Set rngZelle = Range("d3")

With Worksheets(1)
If Not rngZelle Is Nothing Then
If IsNumeric(rngZelle) Then
Worksheets(2).Visible = False
ElseIf Not IsNumeric(rngZelle) Then
Worksheets(2).Visible = True
End If
End If
End With
End Sub

 

Hallo,

was genau ist die Frage?

 

Ich war zu schnell mit dem Return

 

Hallo,

also dann fange ich mal vorne an:

• Gleichartige Daten gehören grundsätzlich auf ein Tabellenblatt
• Alle "Schutzmaßnahmen" die Excel so anbietet, verdienen den Namen nicht.
• Ein Quelltextschnipsel eignet sich kaum, ein Problem zu veranschaulichen.

Also bitte eine Beispielarbeitsmappe, in der die Struktur erkennbar ist. Zusätzlich Hinweise, was du da womit bezwecken willst.

 

Ich hab mal was Angehängt.

 

Hallo,

also noch mal: was versprichst du dir davon? Jeder halbwegs versierte Excel-Anwender kann das aushebeln.

 

Hallo Klaus Dieter,
die Mitarbeiter die diese Liste bearbeiten sollen nun mal die Abrechnungsliste nicht sehen!!!
Hier wird auch keiner auf die Suche gehen ob da was ausgeblendet ist oder nicht....
Kannst du mir einen Tip geben wie ich es machen kann?

 

Hallo,

was machen dann die Mitarbeiter, die die Abrechnungsliste nicht sehen sollen, in der Datei?

 

Ich sehe du möchtest mir bei meinem Problem nicht Helfen!
Dir einen schönen Abend.

 

Hallo,

bevor ich konkrete Vorschläge mache, möchte ich schon alle Zusammenhänge kennen. Also drehe ich deinen Vorwurf mal um: du möchtest gar keine Hilfe, weil du nicht bereit bist, alles umfassend zu erklären.

 

Hi,

ich kann Klaus-Dieter nur recht geben. Ein Schutz, der durch eine Eingabe in einer beliebigen Zelle aufgehoben wird, ist kein Schutz. Mal ganz davon abgesehen, dass alle Schutzmaßnahmen innerhalb von Excel für die Katz sind und nur dazu nützlich sind, ein versehentliches Ändern zu erschweren. Wenn du verhindern willst, dass jemand die Abrechnungsliste sehen kann, dann helfen nur die Schutzmechanismen des Filesystems.

Wenn du dennoch darauf bestehen willst: Um ein Blatt in einer geschützten Arbeitsmappe ein- /auszublenden, musst du zunächst den Mappenschutz aufheben und danach wieder einschalten. Wie das geht? Schmeiß den Makrorekorder an und mach es händisch, dann kennst du die Befehle.

Und so ganz nebenbei:

• Einrückungen helfen den Überblick über einen Code zu behalten
• wenn man schon einen With-Block in den Code schreibt, sollte man ihn auch benutzen oder gefälligst weg lassen
• wieso sollte rngZelle jemals Nothing sein, wenn du der Variablen direkt vorher mit Set eine feste Zelle zugewiesen hast?
• wieso ein ElseIf, das genau nur das Gegenteil der If-Abfrage darstellt? Hier würde ein einfaches Else genügen
• die Positionsnummer des Blattes oder auch der Name des Blattes sollte in solchen Codes eher nicht verwendet werden, da sie vom Benutzer geändert werden können
• wieso setzt du die Sichtbarkeit des Blattes bei jeder Änderung im Blatt statt nur dann, wenn D3 geändert wurde?

Ich mach jetzt mal den snb. Dein bisheriger Code kann durch einen Einzeiler ersetzt werden:

Code:

Worksheets(2).Visible = Not IsNumeric(Range("D3"))

Besser wäre jedoch

Code:

If Not Intersect(Target, Range("D3")) Is Nothing Then Tabelle2.Visible = Not IsNumeric(Range("D3"))

Hier wird die Sichtbarkeit nur gesetzt, falls D3 geändert wurde.

 

Hallo HKindler,
ich weiß das Excel für solchen Schutz nicht ausgelegt ist und wenn ich WILL alles zu Knacken ist,
aber für meine Bedürfnisse langt es erst mal...keiner meiner Mitarbeiter macht irgendwas mutwillig kaputt oder Formatiert was um.
Es geht einfach darum einen kleinen Schutz vor Schusseligkeit zu haben...mehr nicht.
Die Zelle D3 ist natürlich Schreibgeschützt damit man nicht aus versehen irgendwas ändert.

Ich verwende deinen Code und er Funktioniert super...Herzlichen Dank dafür.

Herzliche Grüße Weismänn

 

Hallo Exl121150,
nein es sollte die ganze Arbeitsmappe geschützt sein.
VG Weismänn

 

Wie willst du dann das Blatt aus-/einblenden? Steckt in D3 eine Formel? Dann solltest du den Code nochmals ändern, da er jetzt nur auf eine Eingabe in D3 reagiert.

Irgendwie ist eine konstruktive Kommunikation mit dir nicht leicht, da du Infos - wenn überhaupt - nur tröpfchenweise weiter gibst.

 

Hallo Helmut,

aber dafür ist er schnell beleidigt.