Office: Wert AUS Userform übernehmen?

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. ( ;-) 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

 

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

 

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

 

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! ;-)"
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

 

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

 

@Schnake:

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


MIke

 

HAllo!

Hast du noch eine Idee für mein Prob?

Gruß Mike

Im Anhang das Problem!

 

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

 

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

 

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

aber der aubau gefällt mir...

 

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

 

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 ;-)

 

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

Jetzt ist es zu groß!!


Och mann! :cry:


mom

Mike

 

Hallo Schnake wie soll ich die denn nun zerschnipseln?

hat ca. 800kb.

per mail?


MIke

 

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

MIke