VBA Code if or then nicht richtig
13.05.2009 11:25:25
andreas
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G" ausgeblendet werden.
Code ist nicht richtig, habe es auch schon mit "or" versucht aber hatte auch nicht das gewünschte Ergebnis.
Frage: wo ist der Fehler?
Sub Benutzer()
Dim Benutzer As String
Benutzer = Environ$("Username")
ActiveSheet.Unprotect ("")
If Benutzer "Andreas" Then
Columns("F:G").Hidden = True
If Benutzer "martin2" Then
Columns("F:G").Hidden = True
End If
Else: Columns("F:G").Hidden = False
End If
ActiveSheet.Protect ("")
End Sub
vielen Dank für die Hilfe
Andreas