2 Dropdowns, Wert kopieren und in eines Tabellenblatt rein kopieren

[schauan]

Hallöchen,

ich bin immer noch am Rätseln, wer nun eigentlich Zugriff bekommen soll und wer nicht ...

Der Sinn dahinter ist, dass keiner die anderen Blätter einblenden darf.

Wirklich keiner?

Ist wenn ich das Tabellenblatt ausblende, kann ich selbst mich dem "einfachen" Link nicht drauf zu greifen.

Ansonsten verstehe ich bei "keiner" auch das nicht:

Das Problem ist jetzt nur, dass andere Leute nicht den Link verfolgen können, da die Bilder auf meinem Desktop sind.

Wenn Du bei aktivem Schutz der Mappe Blätter einblenden willst, musst Du ihn kurz deaktivieren und danach wieder aktivieren.

Allerdings solltest Du bei dem Ereignis BeforeSave das Ausblenden aller betreffenden Blätter programmieren, sonst sieht der nächste zumindest das, was zuvor eingeblendet war.
Wenn Du nach dem Speichern in der Datei gleich weiter machen willst, würdest Du als netter Programmierer im Ereignis AfterSave den Zustand vor dem Speichern wiederherstellen.

[ExcelVBAAnfänger]

Hallo schauan,

erst mal Danke, dass du dir noch weiterhin die Mühe machst.

Das mit dem 2. und 3. Zitat von mir kann man jetzt vergessen, da ich jetzt ein paar Schritte weiter bin oder es anders gelöst bzw. angegangen habe.


Also zum 1. Zitat:
Ich habe in der Arbeitsmappe ungefähr 27 Blätter, davon sollen aber nur 4 sichtbar sein.
Das fünfte ist dann entweder Layout 33, Layout 54 oder Layout 55.

Diese werden dann durch einen VBA Code angezeigt oder ausgeblendet.
Soweit so gut.

Aber wenn ich dann die Arbeitsmappe schütze, also ein Passwort hinterlege, damit mein Vertriebler nicht ausersehen dem Kunde unser KnowHow preis gibt, funktioniert dieser Code nicht.

Deswegen bräuchte ich eine Code, der die 3 Layouts Tabellenblätter vorm Arbeitsmappenschutz ausnimmt.
Leider habe ich gar nichts im Internet darüber gefunden.

Gruß
ExcelVBAAnfänger

[schauan]

Hallöchen,

wie ich schon schrieb. Wenn Du Aktionen im Makro hast, die sich mit dem Mappenschutz beißen, dann kurz aufheben ...

ActiveWorkbook.Unprotect Password:="Geh heim"
'hier was machen ...
'
'... und dann wieder schuetzen
ActiveWorkbook.Protect Password:="Geh heim", Structure:=True, Windows:=False

[ExcelVBAAnfänger]

Hallo zusammen,

wir haben es geschafft!

Es war zwar ein echt langer weg, aber danke vor allem schauan und ralf_b, dass ihr mich immer weiter unterstützt habt!

So, hier ist jetzt der Code, mit dem alles funktioniert:

Code:

Private Sub Worksheet_Deactivate()
ActiveWorkbook.Unprotect Password:="Passwort"
Dim rücksprungBlatt As Worksheet
Set rücksprungBlatt = ActiveSheet
If IsError(Worksheets("Specification").Cells(30, 4)) Then
        Worksheets("Layout 33").Visible = False
        Worksheets("Layout 54").Visible = Flase
        Worksheets("Layout 55").Visible = False
ElseIf Worksheets("Specification").Cells(30, 4).Value = "Layout 33" Then
        Worksheets("Layout 33").Visible = True
        Worksheets("Layout 54").Visible = False
        Worksheets("Layout 55").Visible = False
ElseIf Worksheets("Specification").Cells(30, 4).Value = "Layout 54" Then
        Worksheets("Layout 33").Visible = False
        Worksheets("Layout 54").Visible = True
        Worksheets("Layout 55").Visible = False
ElseIf Worksheets("Specification").Cells(30, 4).Value = "Layout 55" Then
        Worksheets("Layout 33").Visible = False
        Worksheets("Layout 54").Visible = False
        Worksheets("Layout 55").Visible = True
End If
rücksprungBlatt.Activate
ActiveWorkbook.Protect Password:="Passwort", Structure:=True, Windows:=False
End Sub

Viele Grüße
ExcelVBAAnfänger