Arbeitsblatt vor "Sicht" schützen aber nutzen
06.01.2004 22:21:15
Roland
ich möchte meine Arbeitsblätter davor schützen, dass ein "Unberechtigter" sich die Inhalte anschaut. Trotzdem arbeite ich im Verlauf mit diesen Blättern - abhängig vom eingegebenen Kennwort. Wie kann ich die Blätter schützen und trotzdem mit Makros darauf zugreifen ohne immer den Schutz aufzuheben und wieder zu aktivieren ??
Private Sub EinAusBlenden_Click()
On Error GoTo fehler
nsheet = ListBox1.ListIndex + 1
With ActiveWorkbook.Sheets(nsheet)
If .Visible = xlVeryHidden Then
.Visible = True
ListBox1.List(nsheet - 1, 1) = "ggf. sichtbar"
Else
.Visible = xlVeryHidden
ListBox1.List(nsheet - 1, 1) = "unsichtbar"
End If
End With
Exit Sub
fehler:
MsgBox ("Ein Fehler ist aufgetreten. Wahrscheinlich haben Sie versucht, auch das letzte sichtbare Tabellenblatt zu verstecken.")
End Sub
Danke für die Hilfe
Roland