Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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


104 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige