Re: formartierung
31.07.2002 21:33:15
Bernd
hallo hajo,ich schicke mal meinen kompletten code.
Sub zu_1()
Dim Password As String
Dim Mld, Titel, Vor, passwd, cc, tag As String
Dim lngZeile As Long
Dim std, min, sec As Byte
Mld = "Bitte Passwort eingeben!" _
& vbCrLf & "Wenn Password vergessen, dann bei Bernd (1619) melden."
Titel = "Passwortabfrage"
Vor = "Hamburger Sportverein"
tag = Date
std = Hour(Time)
min = Minute(Time)
sec = Second(Time)
cc = Environ("Username")
Password = InputBox(Mld, Titel, Vor)
passwd = Password
If Password = "hallo" Then
ActiveSheet.Unprotect Password:="lanza"
Range("c31:c1000").Select
Selection.ClearContents
ActiveSheet.Protect Password:="lanza"
Sheets("1.").Select
Range("g17").Select
Else
MsgBox "Passwort ist nicht korrekt" _
& vbCrLf & "Zugang verweigert !!!", vbOKOnly + vbCritical, "Falsches Passwort"
ActiveSheet.Unprotect Password:="lanza"
Sheets("Tabelle1").Activate
Range("a3").Activate
ActiveCell.FormulaR1C1 = " " & cc & " hat am " & tag & " , um " & std & ":" & min & ":" & sec & " Uhr, versucht mit dem Passwort >>> " & passwd & " <<<< auf die Tipseite zu gelangen."
Range("d4").Select
ActiveSheet.Protect Password:="lanza"
Sheets("tabelle1").Select
Range("e3").Select
End If
End Sub
wo muss ich jetzt die formartierung vornehmen?
gruss bernd