Blatt sperren
19.11.2002 18:47:00
Bernd
wie kann ich ein arbeitsblatt so sperren das es nicht mehr sichtbar ist und auch nur durch mich selbst sichtbar gemacht werden kann?
habe schon über FORMAT >> BLATT >> AUSBLENDEN das blatt ausgeblendet, kann aber immer wieder über FORMAT >> BLATT >> EINBLENDEN das blatt sichtbar machen.
habe auch schon folgenden code getestet:
Private Sub Worksheet_Activate()
Dim passwort As String
passwort = InputBox("Bitte geben sie das Passwort ein!", "Passwortabfrage", "*****")
If passwort = "MeinPasswort" Then
Sheets("tabelle2").Select
Range("a1").Select
Else
MsgBox "Falsches Passwort", vbOKOnly + vbCritical, "Achtung"
Sheets("tabelle1").Select
End If
End Sub
wenn man aber beim öffnen der mappe MAKROS DEAKTIVIEREN klickt bringt der code auch nichts.
vielen dank für eure hilfe
gruss
Bernd