Hallo,
ich möchte in einer Excel-Arbeitsmappe bestimmte Arbeitsblätter ausblenden und das Einblenden nur mit Passwort ermöglichen.
Die Arbeitsmappe soll ohne Passwort zugänglich sein, ausgeblendete Blätter jedoch nur mit Passwort zu öffnen.
Geht das?
Freundliche Grüße
NR
ich möchte in einer Excel-Arbeitsmappe bestimmte
Arbeitsblätter ausblenden und das Einblenden nur mit Passwort
ermöglichen.
Die Arbeitsmappe soll ohne Passwort zugänglich sein,
ausgeblendete Blätter jedoch nur mit Passwort zu öffnen.
Hallo Norbert,
was genau planst du, wie soll das ablaufen?
Willst du bei Öffnen der Mappe eine Abfrage ob ALLE ausgeblendeten Blätter eingeblendet werden sollen mit Passwortabfrage?
Oder willst du eine mappe an 10 Mitarbeiter o.ä. verschicken, die dann alle die eingeblendeten Blätter sehen dürfen, aber für durch PW-Eingabe bei der Abfrage nur IHR Blatt einblenden können?
PW-Abfragen können nerven. Es gibt auch die Möglichkeit bei Mappenöffnung zu überprüfen welen Usernamen der Öffner in Windows und/oder in Excel hat.
Und, egal wie du Blätter ausblendest, wahren „Schutz“ bietet das nicht.
Ansonsten, weil du fragtest ob das geht, ja es geht.
Gruß
Reinhard
Hallo Reinhard,
ja genau, ich möchte dass die Mappe ohne Passwort geöffnet werden kann und dann die Abfrage ob ausgeblendete Blätter mit Passwort geöffnet werden sollen.
Du schreibst, es geht, kannst Du mir auch sagen wie.
Gruß
Norbert
Hallo Norbert,
ja genau,
wie „ja genau“? Ich fragte ob du die passwortabfrage brauchst oder ob die Uswernamenabfrage auch reicht?
Du schreibst, es geht, kannst Du mir auch sagen wie.
Alt+F11, du erkennst dein Projekt (=deine Mappe) links in der Liste am Namen, mache einen Doppelklick auf „DieseArbeitsmappe“ deines Projektes. Kopier dann nachfolgenden Code rein.
Das Passwort geheim kannst du ja leicht im Code erkennen.
Damit das andere nicht tun können mußt du dein Projekt vor Anblick schützen.
Klicke dazu mit Rechtsklick im Editor auf dein projekt, Dort vergib unter „Schutz“ ein Kennwort, muß nicht das gleiche sein wie für die Blätter.
Nur mit diesem Kennwort kann man dann den Code sehen, abändern usw.
Derzeit blendet der Code nur Blatt Tabelle3 ein/aus.
Geht natürlich auch für beliebig viele Blätter.
Sag mal an wie deine Blätter heißen die immer eingeblendet sind und wie diejenigen die nur durch PW eingeblendet werden sollen.
ich will schon alle Blattnamen wissen, je nachdem codiere ich, aber wenn du z.B. 12 Monatsblätter hast mußte mir nicht alle 12 auflisten.
Diese Info reicht, 12 Monatsblätter in der Form:
Januar 2011
oder
Jan11
oder wie auch immer, dann weiß ich ja wie die anderen 11 genannt wurden. Wenn nicht hast du eine mistige namensvergabe 
Gruß
Reinhard
Option Explicit
Private Sub Workbook\_Open()
Dim Eing
Eing = InputBox("Bitte geben Sie ihr Kennwort ein:", "Abfrage Blättereinblendung")
If Eing "geheim" Then Exit Sub
Worksheets("Tabelle3").Visible = True
End Sub
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Worksheets("Tabelle3").Visible = xlVeryHidden
End Sub
ich brauche eine Passwortabfrage.
Die durch Passwort geschützten Blätter heißen „BAB Fahrzeuge“ und
„BAB Übersicht“
Die anderen Blätter mit unterschiedlichen Namen wie z. B.
Maut Deutschland
Maut Italien
Diesel
usw. etwa 10 Blätter
Die durch Passwort geschützten Blätter heißen „BAB Fahrzeuge“
und
„BAB Übersicht“Die anderen Blätter mit unterschiedlichen Namen wie z. B.
Maut Deutschland
Maut Italien
Diesel
usw. etwa 10 Blätter
Hallo Norbert,
Option Explicit
Private Sub Workbook\_Open()
Dim Eing, wks As Worksheet
Eing = InputBox("Bitte geben Sie ihr Kennwort ein:", "Abfrage Blättereinblendung")
If Eing "geheim" Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "BAB\*" Then wks.Visible = True
Next wks
End Sub
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "BAB\*" Then wks.Visible = xlVeryHidden
Next wks
End Sub
Ich bin kein Programmierer sondern nur einfacher Excel-Anwender und kann das nicht umsetzen was Du da schreibst.
Besteht die Möglichkeit, dass Du so eine Arbeitsmappe einrichtest?
Evtl. Kontaktaufnahme unter xxx@xxx
[MOD] Mail-Adresse entfernt
@MOD bitte Emailadresse entfernen, dankeschön
Hallo Norbert,
Ich bin kein Programmierer sondern nur einfacher
Excel-Anwender und kann das nicht umsetzen was Du da
schreibst.
Besteht die Möglichkeit, dass Du so eine Arbeitsmappe
einrichtest?
schreib bitte nicht deine emailadresse hierrein, die kann noch jahrzehntelang von Außenstehenden ausgewertet werden.
Kontaktaufnahmemöglichkeiten hast du wie ich indem man wenn man auf einen Beitrag geklickt hat auf das Briefsymbol neben dem Beitragsschreiber klickt…
Was genau kannst du nicht umsetzen?
Gruß
Reinhard
Hallo Reinhard,
danke für den Hinweis, bin halt nicht der erfahrene User.
Melde mich morgen nochmal.