Blatt öffnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Blatt öffnen
von: Artur
Geschrieben am: 27.06.2002 - 17:07:03

Wer kann mir beim helfen?
Ich möchte in einer Mappe von einem Blatt ein anderes nur dann öffnen wenn ein Paßwort eingeben wird. Ansonsten soll dieses Blatt nicht sichtbar sein.

nach oben   nach unten

Re: Blatt öffnen
von: RainerJ
Geschrieben am: 27.06.2002 - 17:53:05

Hallo Artur

Versuch mal das

sub oeffnen
Text = msgbox("Passwort eingeben",vbokonly)
If Text = "blablabla" Then
Sheets("xyz").Visible = True
Sheets("xyz").Activate
Else
Sheets("xyz").Visible = True

a = MsgBox("Dazu sind Sie leider nicht berechtigt !!",
vbokonly)
End If

end sub

dann einen button mit dem Makro verbinden.

Gruss Rainer


nach oben   nach unten

Re: Blatt öffnen
von: Artur
Geschrieben am: 27.06.2002 - 19:34:07

Hallo Rainer, zuerst einmal Danke für Deine Hilfestellung.
Ich habe das Makro mit einer Schaltfläche verbunden. Was mir allerdings feht ist die Paßwortabfrage für das zu öffnende Blatt. Im jetzigen Zustand wir bei Betätigung des Buttons nur die MSG-Boxen eingeblendet ohne das zweite Blatt zu öffnen. Zu verdeutlichung: Ich möchte in einer Mappe von Blatt 1 Blatt 2 öffnen. Dies soll aber nur dann möglich sein, wenn ein von mir vorher festgelegtes Paßwort eingegebn worden ist


nach oben   nach unten

Re: Blatt öffnen
von: WernerB.
Geschrieben am: 29.06.2002 - 00:18:57

Hallo Artur,

teste doch mal dieses Makro:


Option Explicit
Sub Oeffnen()
Dim pwd As String
    pwd = InputBox("Passwort eingeben:", "Passwortabfrage")
    If pwd = "artur" Then
      Sheets("Tabelle2").Visible = True
      Sheets("Tabelle2").Activate
    Else
      MsgBox "Viele fühlen sich berufen," & Chr(10) & _
        "aber nur wenige sind auserwählt !", , _
        "Dezenter Hinweis für " & Application.UserName & ":"
    End If
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bild in Image einlesen lassen"