Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

von Tabelle1 zu Tabelle2 Wechsel .....

Forumthread: von Tabelle1 zu Tabelle2 Wechsel .....

von Tabelle1 zu Tabelle2 Wechsel .....
05.02.2003 18:30:25
Lidia
Hallo
Ich habe meine Tabelle2 mit einem Passwort geschützt
Ich wollte wenn ich von Tabelle1 zu Tabelle2 Wechsel das ein MsgBox mir das Passwort von Tabelle2 abfragt, bei richtiger antwort soll die Tabelle2 öffnen, bei Falscher eingebe soll die Meldung erschein „Falsches Passwort“ und die Tabelle2 soll geschlossen bleiben
Wer kann mir helfen?
Danke
Gruß Lidia

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: von Tabelle1 zu Tabelle2 Wechsel .....
05.02.2003 18:34:12
Bernd Held

Hallo Lidia,

lege das folgende Ereignis hinter die Tabelle2 (rechter Mausklick auf den Tabellenreiter dieser Tabelle udn Code anzeigen aus dem Kontextmenü wählen).

Private Sub Worksheet_Activate()
s = InputBox("Bitte Passwort eingeben!")
If s = "Test" Then
Else
Msgbox "Falsches PW"
Sheets("Tabelle1").Activate
End If
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de



Anzeige
Re: von Tabelle1 zu Tabelle2 Wechsel :-)....
05.02.2003 19:00:01
Lidia

Danke

Re: von Tabelle1 zu Tabelle2 Wechsel .....
05.02.2003 19:30:44
Hans

Hallo
Das gleichen suchen ich auch
Bei mir klappt deine Lösung nicht.
Ich habe folgende Makro für Tabelle2
Sub Hans ( )
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Rows("1:3").EntireRow.Hidden = False
Rows("4:35").EntireRow.Hidden = True
Rows("36:66").EntireRow.Hidden = False
Rows("67:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Vielleicht klappt nicht mit diese Makro zusammen?

Hast du vielleicht eine Lösung für mich?
Danke
Gruß Hans

Hanskrt@hotmail.com



Anzeige
Re: von Tabelle1 zu Tabelle2 Wechsel .....
05.02.2003 20:48:25
Bernd Held

Hallo Hans,

funktioniert bei mir:

Private Sub Worksheet_Activate()
s = InputBox("Bitte Passwort eingeben!")
If s = "Test" Then
Else
MsgBox "Falsches PW"
Hans
End If
End Sub

Unter Modul 1 schreibst Du Dein Makro Hans.

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige