Wert AUS Userform übernehmen? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Wert AUS Userform übernehmen?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 31.10.2007, 08:06

Hallo Experten!

habe meine Passwortabfrage soweit fertig, mit Abfrage CapsLockOn.

In der Userform habe ich ein Label:

Private Sub UserForm_Initialize()
Label2.Caption = Environ("Username")

Dort wird beim Einloggen der jeweilige Username angezeigt. ( Wink

an Schnake)

Hier meine Frage: Wie kann ich diesen Username beim Schließen der Form samt des dazugehörigen Datums, Uhrzeit in einer entfernten TAbelle abspeichern?

Dies soll als Zugriffskontrolle gedacht sein.

Den Code für die gesamte Userform hab ich im letzten Threat gepostet.

Danke im Vorraus!

MIke

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 31.10.2007, 10:33

hmm wie du selber bemerkt hast Pino28 ist dein andere threat nicht soganzin der nähe wäre besser wenn du einen link mit eingefügt hättest

zum thema zugriffskontrolle kann ich dir auch wieder helfen..

kommt in der nächsten antwort da ich die entspechenden codezeilen erst auf deine anforderungen anpassen muss:

wie hättest denn gerne Datum Uhrzeit Username . Oder...

als schmankerl kann ich dir auch anbieten, das wenn der User versucht hat zu hacken das das auch in das Protokoll aufgenommen wird.

so würde das ganze dann aussehen :

http://www.picpaste.de/log.JPG

mfg Schnake

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 31.10.2007, 11:11

also hier nun der code:

1.) öffne das Modul SECURITY
und fügst den Code hier ein

Code:

Sub Check(Compname, User)
Compname = UCase(Environ("Computername"))
User = UCase(Environ("Username"))
End Sub

Sub Speichern(aktion)
Call Check(Compname, User)
User = UCase(Environ("Username"))
Pfad = Worksheets("Gerät").Range("AZ3")'HIER GIBST DU DEINEN SPEICHERPFAD AN
Datei = "Log"
Pfad = Pfad + Datei + ".xls"
zeit = Time
datum = Date
Text = datum + Chr$(9) + zeit + Chr$(9) + Compname + Chr$(9) + User + Chr$(9) + aktion
Open Pfad For Append As #1
Print #1, Text
Close #1
ende:
End Sub

2.) Für das Normale Loggen:
Klicke auf Diese Arbeitsmappe füge den Code nach
Private Sub Workbook_Open() ein

Code:

aktion="Gestartet"
call Security.Speichern(aktion)

3.) für das Loggen mit falschem Passwort
füge in deinem Userform secur nach
Titel = "OHNE PASSWORT GEHTS NICHT!"
den code ein :

Code:

Aktion="Passwort falsch"+Secure.TextBox1.Value ' versuche ob das Geht
call Security.Speichern(aktion)

bin weiterhin für dich zur verfügung *fg*
natürlich für alle wo probleme mit vba haben

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 31.10.2007, 11:43

Hallo Schnake!

ist natürlich ein richtig klasser Service! von Dir ! Vielen Dank!
Prima deine Hilfbereitschaft! Das Forum ist klasse!
Hier kurz der Code für die UserForm "Secure"

Wenn du einmal dabei bist: Ich beisse mir z.Zt. die Zähne aus, das Label4 Mit dem Text "Zugriffsdaten werden gespeichert" zum Blinken zu bringen.

Deine Codes teste ich nachher sofort! soweit schonmal vielen Dank!

Private Sub CmdOK_Click()
PWWR = Sheets("Gerät").Range("AZ2")
Passwort = Sheets("Gerät").Range("AZ1")
If Secure.TextBox1.Value = Passwort Then
Sheets("Gerät").Select
ActiveSheet.Unprotect
Columns("AA:AZ").Select
Selection.EntireColumn.Hidden = True
Range("C11:C13").Select
Selection.Locked = False
Range("B11:B13").Select
Selection.Locked = False
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\welcome.wav"")")
ActiveSheet.Protect
Range("H8").Select
Unload Secure
Call security.Zu
Sheets("Gerät").Range("AZ2") = ""
'Sheets("Start").Select

Else
PWWR = PWWR + 1
Text = "Bitte Neueingabe, der Code war FALSCH!"
Label1.Caption = Text
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\bad.wav"")")
If PWWR > 1 Then
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Na, wer wird denn hier Hacken wollen? Anwendung wird geschlossen! Wink

"
Stil = vbCritical
Titel = "OHNE PASSWORT GEHTS NICHT!"

Antwort = MsgBox(Mldg, Stil, Titel)
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\so.wav"")")

Unload Secure
Application.Quit
ThisWorkbook.Close False

End If
Sheets("Gerät").Range("AZ2") = PWWR
End If

End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
Sheets("Gerät").Range("AZ2") = PWWR

Label1.Caption = "Bitte gib das IT-Passwort ein!"
Label2.Caption = Environ("Username")
Label4.Caption = "Zugriffdaten werden gespeichert"

End Sub

Private Sub CommandButton2_Click()
Unload Secure
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\zutritt.wav"")")

End Sub

Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Bitte mit dem Button 'Abbruch' schließen!"
cancel = True
End If
End Sub
===============================================
Modul Security:

Sub Zu()

With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.ShowStartupDialog = False
.ShowWindowsInTaskbar = False
.CommandBars("Cell").Enabled = False 'Zellmenü
.DisplayFormulaBar = False

End With
For X = 1 To 30
Application.CommandBars(X).Enabled = False
Next

End Sub

Sub auf()
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.ShowStartupDialog = True
.ShowWindowsInTaskbar = True
.CommandBars("Cell").Enabled = True 'Zellmenü
.DisplayFormulaBar = True

End With
For X = 1 To 30
Application.CommandBars(X).Enabled = True
Next

End Sub

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 31.10.2007, 12:15

hm blinken ist sehr aufwändig. nimm liber eine sehr helle farbe einHellblau oder so das fällt auf dunklem hintergrunf auch sehr auf

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 31.10.2007, 21:44

@Schnake:

funzt leider nicht, aber die IDEE ist richtig G..il!!

MIke

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 31.10.2007, 23:48

HAllo!

Hast du noch eine Idee für mein Prob?

Gruß Mike

Im Anhang das Problem!

Mappe2.xls

Beschreibung:

Download

Dateiname:

Mappe2.xls

Dateigröße:

243 KB

Heruntergeladen:

37 mal

Zuletzt bearbeitet von Pino28 am 01.11.2007, 07:14, insgesamt einmal bearbeitet

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 01.11.2007, 02:38

hi pino.. lade doch mal eien leere tabelle hier hoch dnn kann ich mir das genauer anschauen , weil sonst muss ich extra nochmals alles aufbauen.. dankeschön

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 01.11.2007, 22:48

HAllo!

Ok, das Blinken vergessen wir mal, aber mit dem Übernehmen der User, Netzwerk und PC Name Uhrzeit wie deine TAbelle, Aktion wäre richtig klasse, aber leider gehts nicht.

Gibt Laufzeitfehler 13 aus, Typen unverträglich.

Ich würde die Daten der Zugriffskontrolle am Liebsten in einer externen MAppe im Blatt "Zugriffe" abspeichern wollen. Hab ich den Pfad dazu evtl. falsch definiert?`

Wäre schön wenn ihr mir nochmal helfen könntet!

Gruß

Mike

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 01.11.2007, 23:30

huch da sind keine makros drinne... ich brauch da schon ne funktionierende Xls tabelle...

aber der aubau gefällt mir...

Zuletzt bearbeitet von schnake am 01.11.2007, 23:32, insgesamt einmal bearbeitet

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 01.11.2007, 23:32

Was sol ich genau reinpacken? Habe ziemlich viele "geheime" Daten und PAsswörter drin, die nicht so schnell zu entfernen sind!

hier die Datei ohne Passwörter
MIke

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 01.11.2007, 23:46

Pino28 hat Folgendes geschrieben:

Was sol ich genau reinpacken? Habe ziemlich viele "geheime" Daten und PAsswörter drin, die nicht so schnell zu entfernen sind!

MIke

ich brauch nur das haupblatt mit dem vbacode drinn das dürfte reichen ..
dazu den namen der exeltabelle ( wo die logdaten geschrieben werden sollen) das blatt hast du ja gesagt heist zugriffe das psst dan schon an angaben

psst du hast keine datei angehängt Wink

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 01.11.2007, 23:48

Bin noch am kämpfen ,darf ja keine .XLT hochladen!
**GRRR**

Jetzt ist es zu groß!!

Och mann! Crying or Very sad

mom

Mike

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 01.11.2007, 23:53

Hallo Schnake wie soll ich die denn nun zerschnipseln?

hat ca. 800kb.

per mail?

MIke

Pino28
Besserwisser

Anmeldedatum: 17.10.2007
Beiträge: 93

Verfasst am: 01.11.2007, 23:55

Also die Namen kannst du dir ja aussuchen, die stehen noch nicht fest!

MIke

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	FINDEN liefert #WERT!	PhoenixTS82	Microsoft Excel Hilfe	1	29.11.2008, 13:41
	Eingabewert in selber Zelle mit feste...	senna94	Microsoft Excel Hilfe	1	28.11.2008, 13:13
	Feld B sperren, wenn ein Wert in Feld...	matze63	Microsoft Excel Hilfe	3	26.11.2008, 14:23
	Wert addieren bis höchstzahl erreicht...	Chris100189	Microsoft Excel Hilfe	2	25.11.2008, 14:03
	Höchster u zweithöchster Wert	heli	Microsoft Excel Hilfe	4	23.11.2008, 13:21

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de