Office: Tabellenblätter effektiv "verstecken"

Hallo!

Ich bin`s mal wieder... ;-)

Mit folgendem Code "verstecke" ich alle Blattregisterkarten:

ActiveWindow.DisplayWorkbookTabs = False

Zusätzlich habe ich unter Extras, Optionen, Ansicht das Häkchen bei "Blattregisterkarten" entfernt.

Soweit so gut. Der User meines Tools wird mittels Befehlsschaltflächen von Tabellenblatt zu Tabellenblatt geführt. Die Tabellenblätter dürfen aber nur in einer bestimmten Reihenfolge ersichtlich werden und daher müssen die Blattregisterkarten versteckt bleiben.

Gibt es einen Makro-Code, welcher das öffnen der Tabellenblätter - z.B. das Zurück-Setzen des Häkchens bei den "Blattregisterkarten" - effektiv unterbindet, die schrittweise Benützung aber dennoch möglich macht?

Vielen, herzlichen Dank für eure Ideen?

Grüsse, Matthias

:)

 

Hallo Matthias,

über den Arbeitsmappenschutz kannst Du das Einblenden der Blattregisterkarten verhindern :

Mappe schützen : ActiveWorkook.Protect "passwort", windows:=true, structure:=true
Schutz aufheben : ActiveWorkook.Unprotect "passwort"

PS: Unter Excel 2007 scheint dieser Mappenschutz in Bezug auf Blattregisterkarten nicht mehr zu funktionieren !?!?!?

Darüberhinaus müsstest Du verhindern, dass man per StrgBild hoch bzw. StrgBild runter durch die Blattregister "switchen" kann :

Application.OnKey "^{PgUp}",""
Application.OnKey "^{Pgdn}",""

Um die Tastenkombinationen wieder zu aktivieren :
Application.OnKey "^{PgUp}"
Application.OnKey "^{PgDn}"

 

Hallo zusammen,

spricht irgend etwas gegen das Ausblenden der Tabellenblätter mittels
Code:

Damit ist das betreffende Tabellenblatt mit Excel-Bordmitteln nicht mehr einzublenden, nur noch per VBA.

Gruß Ingolf

 

Hallo!

Vielen Dank für eure Antworten.

Wenn ich folgenden Code verwende ++Worksheets("Tabelle1").Visible = xlSheetVeryHidden++ kann ich leider die "versteckten"
Tabellenblätter nicht mehr ansteuern.

Wie und wo muss ich folgenden Code einbauen:

Mappe schützen : ActiveWorkook.Protect "passwort", windows:=true, structure:=true
Schutz aufheben : ActiveWorkook.Unprotect "passwort"

resp.

Application.OnKey "^{PgUp}",""
Application.OnKey "^{Pgdn}",""

Um die Tastenkombinationen wieder zu aktivieren :
Application.OnKey "^{PgUp}"
Application.OnKey "^{PgDn}"


Vielen Dank für eure Hilfe!

Gruss, Matthias

 

Hallo Matthias,

auch mit ausgeblendetem Tabellenblatt sind fast alle Aktionen uneingeschränkt möglich. Was unter anderem nicht mehr möglich ist, ist das Markieren einer Zelle oder eines Zellbereiches mittels Select. Allerdings ist es für fast alles, was man mit einer Zelle machen kann, nicht erforderlich, diese zuvor zu markieren (mir fällt im Moment so aus dem Stegreif sogar überhaupt nichts ein, wofür erst markiert werden muss!). In all jenen Fällen, in denen dann doch einmal markiert werden muss, oder eine andere Aktion bei ausgeblendetem Tabellenblatt nicht möglich ist, kann man das Tabellenblatt vor der Aktion ein- und danach wieder ausblenden, also
Code:

Gruß Ingolf