Code verdoppeln
14.02.2013 13:08:49
Mirko
kann jemand helfen, ich möchte das nicht nur die "Tabelle2" sondern auch die "Tabelle3" von der Passwortabfrage verschont bleibt.
Private Sub CommandButton1_Click()
Dim ws As Worksheet, PW$
PW = InputBox("Bitte das Passwort eingeben!", "PASSWORT")
If PW = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Tabelle2" Then
If ws.ProtectContents = True Then
ws.Unprotect PW
Else
ws.Protect PW
End If
End If
Next ws
End Sub
weiterhin sollte dies bei diesem Code auch die Tabelle3 eingebunden werden, d.h. es soll in Tabelle2 und in Tabelle3 der username abgefragt werden.
Private Sub Workbook_Open()
Tabelle2.Cells(2, 1).Value = Environ("username")
'Dim Buffer As String * 100
'Dim BuffLen As Long
' BuffLen = 100
' GetUserName Buffer, BuffLen
' Worksheets("userdaten").Range("R1").Value = Left(Buffer, BuffLen - 1)
Worksheets("Tabelle2").Range("R1").Value = Environ("username")
end if
End Sub
Danke und Gruß Mirko