Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

eine tabelle i d Arbeitsmappe m paßwort schützen

eine tabelle i d Arbeitsmappe m paßwort schützen
03.11.2007 11:41:00
mesu
hallo liebe Excelfreunde,
ich möchte die Tabelle 1 in einer Arbeitsmappe per Paßwort schützen. Weiß jemand, wie das geht.
Vielen Dank für eure Hilfe
mesu

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine tabelle i d Arbeitsmappe m paßwort schütz
03.11.2007 12:42:00
Beverly
Hi,
Extras -&gt Schutz -&gt Blatt schützen und dort das Passwort eingeben
________________________________________

AW: eine tabelle i d Arbeitsmappe m paßwort schütz
03.11.2007 13:21:39
mesu
Hallo Karin,
danke für deine Antwort. Ich möchte aber die Tabelle so schützen, dass man sich die gesamte Tabelle nur mit einem Paßwort anschauen kann. d. h. wenn der User die Arbeitsmappe geöffnet hat, und die Tabelle 1 anklickt, dann soll das Paßwort abgefragt werden.
Ich denke, dass ist nur mit einem VBA möglich. Weiß dort vielleicht jmd. bescheid?
Gruß
Mesu

Anzeige
AW: eine tabelle i d Arbeitsmappe m paßwort schütz
03.11.2007 13:45:49
Beverly
Hi,
das ging aus deinem Beitrag nicht so deutlich hervor.
Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim strAnzeige As String
If ActiveSheet.Name = "Tabelle1" Then
Application.EnableEvents = False
Worksheets("Tabelle2").Activate
strAnzeige = InputBox("Bitte das Passwort eingeben")
If strAnzeige  "Passwort" Or strAnzeige = "" Then
MsgBox "Falsches Passwort"
Else
Worksheets("Tabelle1").Activate
End If
Application.EnableEvents = True
End If
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Tabelle2").Activate
End Sub


Diesen Code ins Klassenmodul DieseArbeitsmappe.
Bis später,
Karin

Anzeige
AW: eine tabelle i d Arbeitsmappe m paßwort schütz
03.11.2007 14:22:17
mesu
hey karin,
herzlichen dank. echt klasse. danke für deine hilfe
Gruß
mesu

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige