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

Passwort per Makro eingeben

Passwort per Makro eingeben
29.09.2005 15:17:30
Mark
Hallo zusammen,
ich versuche mit meinen rudimentären aber sich stetig mehrenden VBA-Kenntnissen eine Arbeitsmappe zu erstellen, bei man die relevanten Seiten nur dann sehen kann, wenn man die Makros aktiviert.
Hierzu verwende ich eine Startseite, die mittels eines Makros die zuvor ausgeblendeten Seiten einblendet. Soweit kein Problem. Damit aber bei nicht aktivierten Makros (soweit xlcrack nicht zur Verfügung steht) diese Blätter nicht einfach eingeblendet werden können und man somit die Makroaktivierung umgehen kann, was ich nicht möchte, da man die Mühe, die ich mir gemacht habe schließlich auch sehen soll, muss die gesamt Arbeitsmappe mit einem Passwort geschützt werden. Ich habe auch versucht ein entsprechendes Makro aufzuzeichnen, aber das hat gleich gar nicht geklappt. Das Eingeben des Passwortes für die Arbeitsmappe scheint das Problem zu sein.
Ich habe hier schon mehreres Threads zu ähnlichen Problemstellungen gefunden, konnte aber die Lösungen nicht umsetzen bzw. sie haben nicht gepaßt oder funktioniert.
Bereits jetzt vielen Dank für Eure Hilfe...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort per Makro eingeben
29.09.2005 15:23:17
Hajo_Zi
Hallo Mar,
ich gehe mal davon aus das das VBA Projekt geschützt ist. Blende die Tabellen mit
Sheets("Tabelle1").Visible = xlVeryHidden
aus
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW: Passwort per Makro eingeben
29.09.2005 15:24:31
Rene
Hi,
wenn du nur ein passwort brauchst, dann mach im Workbooks_open event ein
if inputbox("Passwort eingeben: ") "123" then
thisworkbook.saved
thisworkbook.close
end if
lg René
Anzeige
AW: Passwort per Makro eingeben
29.09.2005 15:31:10
IngGi
Hallo Mark,
mit folgendem kleinem Makro kannst du alle Blätter deiner Arbeitsmappe, bis auf deine Startseite so ausblenden, dass sie nur per Makro, also nicht von Hand wieder eingeblendet werden können. Den Blattnamen in der If-Abfrage musst du natürlich anpassen. Entscheidend ist hier die Verwendung von xlVeryHidden an Stelle von xlHidden. Die Blätter kannst du dann in deinem Makro per .visible = True wieder einblenden.

Sub ausblenden()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "Name deiner Startseite" Then
ws.Visible = xlVeryHidden
End If
Next 'ws
End Sub
Gruß Ingolf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige