Mehrere If Anweisungen
15.11.2013 13:41:59
Marlene
habe einen Code unter Workbook Open hinterlegt, dass nur von mir geschulte Personen
die XLS öffnen können.
XLS wird von einer Abteilung bearbeitet und ich wollte dies nicht mit passwort machen, da sich das innerhalb einer Abteilung doch verbreitet...
Private Sub Workbook_Open()
If Application.UserName = "Nachname, Vorname" Then 'hier die geschulten Mitarbeiter eintragen
GoTo Freigabe
Else
MsgBox "Bitte lassen Sie sich zuerst von xxx Tel.9999 schulen. Ohne Schulung keine Bearbeitung möglich"
ActiveWorkbook.Close savechanges:=False
End If
Freigabe:
xxxx weiterer Code
Ich bringe es nicht auf die Reihe weitere Mitarbeiter hinzuzufügen, ohne dass ich ne Fehlermeldung bekomme.
Kann mir jemand die Form von CASE aufzeigen, wie ich den schreiben muss
so dass ich weitere Personen hinzufügen kann ?
Das mit CASE bring ich nicht auf die Reihe...
Danke schonmal
:-)
Stefan