Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1216to1220
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
Inhaltsverzeichnis

starten von Userformen verhindern!?

starten von Userformen verhindern!?
Userformen
Hallo zusammen
In der Recherche habe ich nichts finden können, deshalb wende ich mich an Euch, vielleicht könnt ihr mir helfen!
Private Sub Workbook_Open()
If Environ("Username")  "Lisa" Then
UserForm1.Show
Sheets("Tabelle1").Visible = True
Sheets("Tabell2").Visible = True
End If
End Sub

Mit diesem Macro verhindere ich bei bestimmten Usern das starten der Userform1, bis hier hin klappt es.
Nun habe ich mehrere Userforms(en) in meiner Mappe die alle nicht gestartet werden sollen.
Wie spreche ich alle Userformen an? Kann mir hierbei jemand helfen?
LG Lisa

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

Betreff
Benutzer
Anzeige
AW: starten von Userformen verhindern!?
08.06.2011 14:10:11
Userformen
Hallo,
meinst du das so?
Private Sub Workbook_Open()
Select case Environ("Username")
Case "Lisa", "Rudi"
'nix passiert
Case Else
UserForm1.Show
UserForm2.Show
'etc
Sheets("Tabelle1").Visible = True
Sheets("Tabell2").Visible = True
End If
End Select
End Sub

Gruß
Rudi
AW: starten von Userformen verhindern!?
08.06.2011 14:12:44
Userformen
Hallo Rudi, schönen Dank für die schnelle Antwort,
im Prinzip schon, aber kann man die Userformen als Gesamtheit ansprechen um nicht jede einzeln benennen zu müssen?
LG Lisa
nicht, dass ich wüsste owT
08.06.2011 14:37:15
Rudi
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige