Nur bestimmte User können klicken

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Nur bestimmte User können klicken

Nur bestimmte User können klicken von Martin vom 28.09.2003 18:54:29
- AW: Nur bestimmte User können klicken - von Nepumuk am 28.09.2003 19:27:03
  - AW: Nur bestimmte User können klicken - von Martin am 28.09.2003 19:43:23

Betrifft: Nur bestimmte User können klicken von: Martin
Geschrieben am: 28.09.2003 18:54:29

Guten Abend,

ich habe einen schönen email-versende-Code gefunden und für meine Zwecke prima modifiziert. Nur setzte ich den Code innerhalb einer Monitoring Tabelle zu Verfolgung der Termintreue ein. Diese Excel-Tabelle können alle im Unternehmen zu Infozwecken öffnen, aber nur ich, username "xyz123", darf einen Button drücken. Bestenfalls soll dieser Button nur sichtbar sein, wenn ich mich ans Netzwerk mit dem User-Code angemeldet habe...

Geht sowas?

Danke für jede abendliche Hilfe...

Betrifft: AW: Nur bestimmte User können klicken

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function Username()
    Dim Buffer As String * 100, BuffLen As Long
    BuffLen = 100
    GetUserName Buffer, BuffLen
    Username = Left(Buffer, BuffLen)
    Username = Left(Username, InStr(Username, vbNullChar) - 1)
End Function
Public Sub Mailen()
    If Username = "xyz123" Then
'    Dein Mailprogramm
    End If
End Sub

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.ReadOnly Then ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ThisWorkbook.ReadOnly Then Cancel = True
End Sub