Ich möchte beim Schützen der Datei, das der UserName eingesetzt wird.
Der UserName steht in der Mappe:
Sheets("Datenbank").Range("J1").Value = Application.UserName
Hier das Schützen Makro:
Windows("1-NW-PLK-Datenbank.xls").Activate
Sheets("Datenbank").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
"ww" war bisher der Schutz-Name
Für das aufheben habe ich folgendes Makro:
Sub N_Datenbank_Schutz_aufheben()
On Error Resume Next
Application.ScreenUpdating = False
10: Err.Clear
Sheets("Datenbank").Unprotect '("ww")
If Err.Number = 1004 Then
MsgBox " Falsches Kennwort ! "
GoTo 10
End If
Range("A1").Select
Application.ScreenUpdating = True
''' Sheets("Datenbank").Range("J1").Value = Application.UserName
End Sub
Ich möchte das der User seinen Namen einsetzt um den Schutz aufzuheben,
leider weiß ich nicht Wie,Wo ?
Gruß Walter