Herbers Excel-Forum - das Archiv
Lese-und Schreibschutz auf einzelnem Tabellenblatt
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ InputBox
- Lese-und Schreibschutz auf einzelnem Tabellenblatt von Uwe vom 15.12.2003 10:10:29
- AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt - von Thomas H. am 15.12.2003 10:43:06
- AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt - von Uwe am 15.12.2003 17:15:07
- AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt - von Uwe am 15.12.2003 17:15:07
- AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt - von Thomas H. am 15.12.2003 10:43:06
 |
Betrifft: Lese-und Schreibschutz auf einzelnem Tabellenblatt
von: Uwe
Geschrieben am: 15.12.2003 10:10:29
Hallo,
ich benötige weider mal ( nach langer Zeit ) euere Hilfe.
In einer Arbeitsmappe habe ich 10 Tabellenblätter angelegt. Die Balttregister sind ausgeblendet und die Navigation efolgt über Makro vom ersten Arbeitsblatt aus. Ein Blatt soll nun mit einem Leseschutz belegt werden.
Nur die Mitarbeiter mit dem entsprechenden Kennwort sollen dieses Tabellenblatt zu Gesicht bekommen ( schreibgeschützt ). Die Abfrage müsste also beim Anklicken der Schaltfläche auf dem ersten Tabellenblatt erfolgen.
Herzlichen Dank für jeden Hinweis
Gruß Uwe
 |
Betrifft: AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt
von: Thomas H.
Geschrieben am: 15.12.2003 10:43:06
Hallo Uwe!
Versuche es doch einmal mit folgendem Makro... Hoffe es hilft dir, TH
Sub Passwort()
Dim i As Long
Dim bytVersuche As Long
Dim strBName As String
' Eintrittsbildschirm anzeigen
Worksheets("Intro").Visible = True
Worksheets("Intro").Select
' Zeilen-/Spaltenbezeichnungen ausblenden
ActiveWindow.DisplayHeadings = False
' Tabellenreiter ausblenden
ActiveWindow.DisplayWorkbookTabs = False
bytVersuche = 2 ' Rückwärts-Zähler für Versuche
strBName = InputBox("Bitte das Passwort eingeben" & Chr(13) & _
"(Das Passwort ist ""Hallo"")")
If strBName = "Hallo" Then
Worksheets("Intro").Visible = False
Worksheets("Daten").Visible = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Exit Sub
Else
For i = 1 To 3 ' Anzahl möglicher Versuche
strBName = InputBox("Noch " & bytVersuche & " Versuche", _
"Passwort-Eingabe")
If strBName = "Hallo" Then
Worksheets("Intro").Visible = False
Worksheets("Daten").Visible = True
ActiveWindow.DisplayWorkbookTabs = True
Exit Sub
ElseIf strBName <> "Hallo" Then
' Zähler für Versuche = rückwärtszählen
bytVersuche = bytVersuche – 1
If bytVersuche = 0 Then
MsgBox ("3 Fehlversuche, die Mappe wird " & _
"geschlossen")
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End If
Next i
End If
End Sub
|
Betrifft: AW: Lese-und Schreibschutz auf einzelnem Tabellenblatt
von: Uwe
Geschrieben am: 15.12.2003 17:15:07
Hallo Thomas,
herzlichen Dank,
super geklappt,
ich habe etwas reduziert und die Passwortabfrage läuft nun nach meinen Vorstellungen.
Danke schön!!
Uwe
| |