Das Archiv des Excel-Forums

Nur bestimmte User können klicken

Bild

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...
Bild


Betrifft: AW: Nur bestimmte User können klicken
von: Nepumuk
Geschrieben am: 28.09.2003 19:27:03

Hallo Martin,
1. Lass den Button sichtbar und sperr einfach das Programm. Das geht so:

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



2. Versieh die Mappe mit einem Schreibschutzkennwort und schreib folgenden Code in das Klassenmodul "DieseArbeitsmappe":

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


Code eingefügt mit: Excel Code Jeanie

Damit kann keiner ohne das Kennwort etwas verändern.
Gruß
Nepumuk


Bild


Betrifft: AW: Nur bestimmte User können klicken
von: Martin
Geschrieben am: 28.09.2003 19:43:23

Hi Nepumuk

Danke! Ich habe noch eine MsgBox eingefügt, die dem Anwender sagt, das sein UserLevel nicht ausreicht. Das ist schön demütigend ;-)


 Bild

Excel-Beispiele zum Thema " Nur bestimmte User können klicken"

Befindet sich die aktive Zelle in einem bestimmten Bereich? download Werte eins bestimmten Monats summieren download
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Anzahl eines bestimmten Wochentages im Monat download Alle Dateien ab einem bestimmten Datum listen download
Daten eines bestimmten Jahres filtern download Word mit bestimmtem Dokument starten download
Bestimmte Anzahl von Zeichen zulassen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Zeile löschen, wenn ein bestimmter Wert vorkommt download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Kommentarfenster in bestimmter Größe erstellen download
Wert einer bestimmten Zelle merken download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
Feststellen, ob eine bestimmte Zelle markiert ist download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten download
Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle download
Errechnung der Maximaltemperatur an bestimmtem Datum download Datenmaske mit einem bestimmten Datensatz aufrufen download
Nur Zeilen mit bestimmtem Inhalt kopieren download Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download
Einem Datum eine bestimmte Anzahl von Jahren hinzufügen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen download Bestimmte Wochentage ohne Feiertage listen download
Dateien mit bestimmtem Inhalt suchen download ListBox-Elemente beim Anklicken in Tabelle übertragen download