Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Arbeitsblatt nur mit Passwort anzeigen
07.03.2006 10:11:29
Jutta
Hallo,
habt Ihre eine Idee, wie ich das anstellen kann, dass man einzelne Tabellenblätter nur mit Passwort sehen & bearbeiten kann ? Wenn ich die nur ausblende, kann ja doch wieder jeder nachschauen...
Gruß
Jutta

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt nur mit Passwort anzeigen
07.03.2006 10:25:24
Bertram
Hallo Jutta,
das fällt mir so spontan ein. ist allerdings sicher nur eine Behelfslösung:

Private Sub Worksheet_Activate()
Dim passwort As String
ActiveSheet.UsedRange.Font.ColorIndex = 2
passwort = InputBox("Passwort?")
If passwort = "xxx" Then
ActiveSheet.UsedRange.Font.ColorIndex = xlAutomatic
Else
Sheets(1).Activate
End If
End Sub

Gruß
Bertram
AW: Arbeitsblatt nur mit Passwort anzeigen
07.03.2006 10:31:55
Jutta
Hallo Bertram,
gar nicht schlecht. Danke !
Gruß
Jutta
AW: Arbeitsblatt nur mit Passwort anzeigen
07.03.2006 10:30:21
Harald
Hi Jutta,
hier ein Beispiel von der famosen Herber Excel-CD
diesen Code einer Schaltfläche zuordnen
Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "MeinPaßwort")
Select Case sPassWord
Case "MeinPaßwort"
With Worksheets("Geheim")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
..und zum verstecken könntest Du im Mappenmodul folgendes eintragen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Geheim").Visible = xlVeryHidden
End Sub

Gruss Harald
Anzeige
AW: Arbeitsblatt nur mit Passwort anzeigen
07.03.2006 10:46:17
Jutta
Klasse ! Perfekt !
Danke !!
Gruß
Jutta
Danke für die Rückmeldung owT
07.03.2006 10:57:00
Harald
Gruss Harald

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige