---

Hallo,

ich hätte wieder mal eine Frage.
In meiner Arbeitsmappe soll die Navigation zwischen den einzelnen Sheets nur über Schaltflächen erlaubt sein. Wie kann ich das machen dass der Benutzer nicht über die Registerkärtchen unten die Sheets wechselt.

Vielleicht kann mit jemand helfen.

Vielen Dank!

LG Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Peter!
Einfach die sheets unsichtbar machen?

Private Sub Workbook_Open()
Tabelle1.Visible = xlSheetHidden
End Sub

Private Sub CommandButton1_Click()
Tabelle1.Visible = xlSheetVisible
Tabelle1.Activate
End Sub

Zu unelegant?

Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi nicole,

vielen dank für deine antwort. an diese methode habe ich schon gedacht. allerdings sollten die sheets zum besseren verständnis unten immer sichtbar sein! gibt es da eine möglichkeit?
und das zweite wäre noch:
ein blatt ist gesperrt: wie kann ich verhindern dass der user dann den sheet umbenennt?

vielen dank im voraus!

lg peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist doch wurscht, der Schutz besteht auch bei umbenanntem Tabellenblatt weiter.
Ansonsten besteht sicherlich die Möglichkeit, das Kontextmenü der rechten Maustaste zu ändern, wie weiß ich allerdings nicht, da gibt's aber sicherlich Experten für

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Peter,

das umbenennen einer Tabellen per VBA ist ein ziemlicher Aufwand. Viel einfacher wäre es, die Mappe zu schützen.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo nepumuk,

hab ich schon festgestellt. Werde mich mit dem Schutz der Arbeitsmappe zufriedengeben!
Kannst Du mir vielleicht bei folgendem Problem helfen:
In meiner Arbeitsmappe soll die Navigation zwischen den einzelnen Sheets nur über Schaltflächen erlaubt sein. Wie kann ich das machen dass der Benutzer nicht über die Registerkärtchen unten die Sheets wechselt.

Vielen Dank!

LG Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hab's nicht sonderlich getestet, evtl. als Würgaround, aber ein ziemlich uneleganter;-)

Gruss Nancy
--

Code:

---

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Not flag Then
        If Sh.Name <> "Tabelle1" Then Sheets("Tabelle1").Activate
    End If
End Sub

Private Sub CommandButton1_Click()
    flag = 1
    Sheets("Tabelle2").Activate
    flag = 0
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mappe1.zip

Hallo Peter,

ich hab dir mal ein kleines Beispiel gemacht.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi nepumuk,

vielen dank für dein beispiel! das ist eine tolle sache!

lg

peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Peter,

da fehlt noch was im Klassenmodul der Mappe, sonst gibt's eine Fehlermeldung, wenn beim öffnen der Mappe die Tabelle1 nicht die aktive Tabelle ist.

Code:

---

Private Sub Workbook_Open()
    Set objActiveSheet = Tabelle1
    Tabelle1.Select
End Sub

---

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mappe1.zip

Hallo Nicole,

versuchs mal mit der Mappe im Anhang.

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Nepumuk,

Prima! Die läuft fehlerfrei!
Danke und schönen Tag noch!!

Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP