UserNamen Schutz...
08.12.2004 11:07:23
Walter
habe folgendes Makro geschrieben, mit Hilfe auch/durch das Forum.
Ich möchte beim Schützen das der UserName verwendet wird.
Funktioniert auch, jedoch muß ich beim Schutz aufheben die Buchstaben GROß schreiben, kann man das ändern Buchstaben klein oder groß Schreiben ? Egal.
Hier mein Makro zum Schützen:
Sub N_Datenbank_Zeile_einfügen()
Dim z
Dim Antwort
Sheets("Datenbank").Select
ActiveSheet.Unprotect Range("P1") 'in P1 steht der UserName
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 1), Cells(z, 9)).Select Then
Antwort = MsgBox("Zeile wirklich Einfügen ?", vbYesNo)
If Antwort = vbNo Then
Worksheets("Datenbank").Activate
Else: Selection.Insert 'Insert=Einfügen
End If
End If
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select 'geht zur aktiven zelle
Sheets("Datenbank").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:=Range("P1")
End Sub
Hier meine Makro für Schutz aufheben:
Sub N_Datenbank_Schutz_aufheben()
Application.ScreenUpdating = False
10: Err.Clear
If ActiveSheet.Protect = True Then
Application.Dialogs(xlDialogProtectDocument).Show
If Err.Number = 1004 Then
MsgBox " Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Bitte geben Sie IHREN User-Namen ein !"
GoTo 10
End If
Range("A1").Select
Application.ScreenUpdating = True
End If
End Sub
Mit freundlichen Grüssen
Walter