Office: Tabellenblätter mit Passwort versehen

Hallo, ist es möglich, dass man ausgewählte Blätter eines Dokuments gegen Zugriff schützen kann, also nicht nur gegen Veränderung (das geht ja mit Blattschutz) sondern so, dass man diese Tabellenblätter nur gegen Passwort öffnen/einsehen kann.

THX

 

Hallo,

hilft dir das nicht weiter?

http://www.office-loesung.de/ftopic266931_0_0_asc.php

 

danke, ja ich denke das ist das was ich suche.
allerdings verstehe ich nur bahnhof, mal sehen ob ich mich da irgendwie reinlesen kann. hab leider keinen plan was ich da machen muss...

 

Hi c-mate...

Manuell kannst Du das wie folgt machen...

- Excel Mappe öffnen
- Alt+F11 drücken
- Menü Ansicht -> Projektexplorer wählen
- Menü Ansicht -> Eigenschaftenfenster wählen
- Im Projektexplorer, den Baum MS Excel Objekte aufklappen
- Tabelle anklicken
- Im Eigenschaften Fenster die Eingenschaft Visible suchen
- Eine Auswahl treffen
- xlSheetHidden = versteckt, aber einblendbar
- xlSheetVeryHidden = versteckt, nur über den hier oben beschr. Weg einblendbar
- Ggf. Arbeitsmappe mit Kennwort schützen

Ein Makro würde letzten Endes nichts anderes tun, hier ein Beispiel...

Code:

Public Sub Verstecken()
  
  ThisWorkbook.Unprotect "Passwort"
  
  ThisWorkbook.Worksheets("Tabelle1").Visible = xlSheetVeryHidden
  ThisWorkbook.Worksheets("Tabelle2").Visible = xlSheetVeryHidden
  
  ThisWorkbook.Protect "Passwort"
  
End Sub

Public Sub Zeigen()
  
  If Not InputBox("Passwort eingeben...", "Nachfrage...") <> "Passwort" Then
  
    ThisWorkbook.Unprotect "Passwort"
    
    ThisWorkbook.Worksheets("Tabelle1").Visible = xlSheetVisible
    ThisWorkbook.Worksheets("Tabelle2").Visible = xlSheetVisible
    
    ThisWorkbook.Protect "Passwort"
    
  End If
  
End Sub

Tabelle1 und Tabelle2 durch Deine Namen ersetzen, Passwort auch ändern :-)

Gruß