Office: (Office 2010) Bestimmtes Blatt mit Passwort schützen

Hallo,

ist es möglich ein bestimmtes Tabellenblatt in einer Datei mit einem Passwort zu versehen und dieses ohne Pass-eingabe unsichtbar zu machen?

Gruß Cimoto

:)

 

Hallo,

Excel selbst hält dazu keine Funktion bereit. Es gibt aber mehrere Möglichkeiten selbst etwas zu stricken (VBA). Das Tabellenblatt ist aber in jedem Fall ohne Passworteingabe absolut unsichtbar(xlhidden/xlveryhidden)-also auch nicht im Register sichtbar.

Bspw. könntest du nur ein Tabellenblatt in der Mappe sichtbar lassen und auf diesem Blatt eine Tabellenblattauswahl bereitstellen. Bei Auswahl eines Blattes erfolgt die Abfrage und der Abgleich des Passwortes über VBA-Code und das gewählte Blatt wird ggf. sichtbar gemacht.

Beim Mappenstart:
Sub Workbook_Open ()
' Thisworkbook.Worksheet(2).Visible=xlVeryHidden
end Sub

zum sichtbar machen:
......
If password="12345" then
' Thisworkbook.Worksheet(2).Visible=True
end if

Gruß JWD

 

Wolltest du das als VBA ??? *Smilie


ansonsten markierst du alle spalten des blattes, blendest die aus
dann sagst du blatt sichern und schützen.

aber mit VBA ist auch nicht schlecht =)

 

Hallo cimoto,

wenn Du vorhaben solltest, auf dem ausgeblendeten Blatt sensible Daten zu speichern: Keine Methode des "Versteckens" von Informationen in Excel ist so sicher, dass man sie nicht umgehen könnte. Also bitte die Daten garnicht erst in Mappen speichern, die den eigenen Rechner verlassen könnten.

Grüße
EarlFred

 

also meine datei wird von mehreren leuten in der firma benutzt, alles ohne passworteingabe beim öffnen aber mit blattschutz. jetzt habe ich aber ein tabellenblatt das sensible daten enthält und die nur für mich zugänglich sein sollten! ich habe mir das so vorgestellt, das ich auf einem anderen blatt ein button einfüge mit dem eine passwortabfrage gestartet wird, ist das passwort richtig soll dieses eine tabellenblatt sichtbar werden. jetzt weiß ich allerdings nicht, wie sich die ganze sache verhält wenn man die datei speichert und schließt!? ist dann beim nächsten öffnen dieses blatt unsichtbar oder nicht?

oder verlange ich zu viel von vba bzw. excel? ist dies so umsetzbar?

@earlfred.. darüber bin ich mir im klaren, aber die leute die diese datei in die hände bekommen würden sich erst gar nicht die mühe machen das passwort zu hacken!

 

ja mit nem Button ist das schon möglich.

Earl hat schon "eigentlich" recht...dann darfst du und deine Kollege nie den Fehler machen zu vergesse den Button zu drücken.

Erstelle einfach unter Steuerelemente ein Button und drücke rechtsklick dort müsste dann "Makro zuweisen" stehen. Jetzt müsstest du nur das gespeicherte Makro auswählen und OK drücken.

Jetzt habe ich leider kein richtiges Makro dafür.

Hilf dir das weiter?

Code:

 

VBA Lösung:

beim Schließen der Mappe alle Sheets unsichtbar machen, Speichern, schließen. Etwa so...

Code in DieseArbeitsMappe:

Sub Workbook_BeforeClose(Cancel As Boolean)
Thisworkbook.Worksheet(2).Visible=xlVeryHidden
'
'weitere Sheets unsichtbar machen
'
Thisworkbook.Save
End Sub

Sorry für die Codedarstellung. Mein Firmenrechner blockiert alle Steuerelemente im Antwortblock

Gruß JWD

 

Hallo,

wenn Du mit der Einschränkung leben kannst, dass die vorgeschlagenen Methoden binnen Sekunden umgehbar sind...
Ob sich Deine Kollegen die Mühe machen oder nicht - ich würde es sein lassen.

Grüß
EarlFred

 

bei dem makro kommt index ausserhalb des gültigen bereichs! habe es auf "tabelle20" angepasst..

und wieso darf ich nicht vergessen den button zu drücken? durch drücken soll doch erst die passwortabfrage kommen und dann das blatt sichtbar werden.
ohne passworteingabe soll es unsichtbar sein!

 

In der Codezeile war ein Tippfehler. Es muss heißen:

ThisWorkbook.Worksheets(2).Visible = xlVeryHidden
ThisWorkbook.Worksheets(2).Visible = true

Du kannst aber auch den Tabellennamen verwenden:

ThisWorkbook.Worksheets("meineTabelle").Visible = xlVeryHidden
ThisWorkbook.Worksheets("meineTabelle").Visible = true

Bei Ansprache mit Namen umgehst du Verwechslungen bei den Tabellenblättern. Ansonsten sollten die Codezeile einwandfrei funktionieren.

Gruß JWD

 

Hallo, jwd

Nur, wenn eine Umbenennung durch die Benutzer ausgeschlossen wird.

Ansonsten sollte man auf den Codenamen der Tabelle ausweichen, aber auch das ist alles andere als sicher.

Das Klassenmodul DieseArbeitsmappe setzt eigentlich voraus, dass die Aktionen in der Mappe mit dem Makro stattfinden sollen - warum nutzt Du ThisWorkbook? Warum erst eine Tabelle sicher ausblenden, um sie gleich darauf dann einzublenden? WEarum kein Hinweis, dass eine Tabelle in der Mappe zwingend eingeblendet sein muss?

Gruß
CodeWarrior

 

ok das funktioniert! und wie schaffe ich das jetzt mit der passwortabfrage auf einem button?

 

Danke CodeWarrior,

für Deine Ergänzung. Meine Zeilen waren nur als Schnipsel zum probieren gedacht. ThisWorkbook: Zeile war aus einem anderen Project. In diesem Fall reicht Sheets(2).Visible=xlVeryHidden.

Thx JWD

 

Hallo Cimoto,

das kommt darauf an, wie weit Du bist.

Hast Du den Button schon auf dem Sheet? Dann in den Codebereich der "Button-Tabelle" folgendes:

Code:
Option Explicit

Private Sub CommandButton1_Click() 'Buttonnamen noch anpassen
If InputBox("Bitte Passwort eingeben!", "Passwortabfrage") = "meinPasswort" Then
Sheets(20).Visible = True
End If
End Sub

Gruß JWD

 

japp *Smilie genauso habe ich mir es vorgestellt! vielen dank für eure unterstützung!

gruß cimoto

ps. Application.InputBox gefällt mir besser.. *wink.gif*