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

Verschiedene Benutzer

Verschiedene Benutzer
12.01.2006 07:15:01
Klaus
Guten Morgen zusammen
Ich habe eine Arbeitsmappe, in der beim Start folgendes Makro ausgeführt wird:
Private Sub Workbook_Open()
Sheets("Hilfstabelle").Protect userInterfaceOnly:=True
Sheets("Auftrag").Protect userInterfaceOnly:=True
Sheets("Auftrag2").Protect userInterfaceOnly:=True
Sheets("Kalender").Protect userInterfaceOnly:=True
UserForm1.Show
Nun möchte ich, dass der OptionButton1 in der Userform1 nur bei bestimmten Benutzern (mehrere) auf "Enabled = True" gesetzt wird (die Usernamen sind bekannt). Bei allen anderen Benutzern soll der OptionButten1 auf "Enabled = False" gesetzt werden.
Kann jemand helfen?
Gruss Klaus

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

Betreff
Datum
Anwender
Anzeige
AW: Verschiedene Benutzer
12.01.2006 07:25:00
Hajo_Zi
HAllo KLaus,
ändere in der Userform die Eigenbschaft des OptionsButton auf False.

Private Sub Workbook_Open()
Sheets("Hilfstabelle").Protect userInterfaceOnly:=True
Sheets("Auftrag").Protect userInterfaceOnly:=True
Sheets("Auftrag2").Protect userInterfaceOnly:=True
Sheets("Kalender").Protect userInterfaceOnly:=True
Userform1.OptionButton1.Enabled = Enverion("Username") = "Kurt" _
Or Enverion("Username") = "Paul"
Userform1.Show
End Sub


AW: Verschiedene Benutzer
12.01.2006 07:37:24
Hajo_Zi
Hallo Klaus,
schreibfehler Environ
Gruß Hajo
Anzeige
AW: Verschiedene Benutzer
12.01.2006 07:25:40
ede
guten morgen klaus,
versuch mal inetwa so:

Private Sub UserForm_Activate()
MyUsername = "Meierw"
CommandButton1.Enabled = False  'für alle deabktivieren
Select Case MyUsername
Case "Meier", "Schulze"  ' für diese aktiv
CommandButton1.Enabled = True
End Select
End Sub

gruss
AW: Verschiedene Benutzer
12.01.2006 08:13:12
Klaus
Dank Euch beiden, für die schnelle Hilfe, werde beides ausprobieren
Gruss Klaus

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige