Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Tabellenblätter öffnen nur mit Passwort
11.01.2007 13:07:23
Thorsten
Hallo,
besteht die Möglichkeit innerhalb einer Arbeitsmappe bestimmte Tabellenblätter mit einem Passowrt zu schützen - so dass sich diese dann erst öffnen lassen.
Wenn ja- wie geht das ?
Liebe Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter öffnen nur mit Passwort
11.01.2007 13:24:37
Doby
Hi,
Über Format-Blatt-ausblenden kannst Du ganze Tabellenblätter verstecken.
Mit Extras-Schutz-Arbeitsmappe schützen ist dann das Finden und Einblenden dieses Blattes nicht mehr möglich.
Hoffe die Antwort hilft.
Viele Grüße
AW: Tabellenblätter öffnen nur mit Passwort
11.01.2007 13:48:40
Kai
Du könntest es vielleicht mit einem Makro lösen und zwei Schaltflächen eine um Deine Blätter zu schützen, eine um dein Blatt Schutz aufzuheben.
Blätter Schützen:
Sub Schaltfläche1_BeiKlick()
Sheets("Tabelle1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
usw bis Blatt 60
Blattschutz aufheben:
Sub Schaltfläche2_BeiKlick()
Sheets("Tabelle1").Select
ActiveSheet.Unprotect
Sheets("Tabelle2").Select
ActiveSheet.Unprotect
usw bis Blatt 60
Vielleicht konnte ich Dir etwas weiterhelfen
Anzeige
AW: Tabellenblätter öffnen nur mit Passwort
11.01.2007 14:37:48
Marko
das Makro ist etwas einfacher! du musst nur noch dein Passwort eintragen und den Namen von dem Tabellenblatt das aus und eingeblendet werden soll
Das Makro legst du auf eine Schaltfläche deiner Hauptseite

Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "Hier dein Paßwort eintragen"
With Worksheets("Hier Name vom Tabellenblatt eintragen was wieder eingeblendet werden soll")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub

Das Makro dann auf eine Schaltfläche die auf dem Tabellenblatt ist die ausgeblendet werden soll

Sub Verbergen()
Worksheets("Hier Namen vom Tabellenblatt eintragen was ausgeblendet werden soll").Visible = xlVeryHidden
End Sub

gruß Marko
Anzeige

86 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige