AW: Textfelder sperren für einige Zugriffe
27.08.2014 13:25:02
Klaus
Hallo Mirko,
einfach in deinen Code eingebaut, so:
folgt der gleichen Logik wie die anderen sperren - es wird erst alles erlaubt, und dann wieder verboten falls der User nicht "soundso" heisst.
Private Sub Workbook_Open()
Tabelle6.Cells(2, 1).Value = Environ("username")
Worksheets("Tabelle6").Range("R1").Value = Environ("username")
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
Sheets("Tabelle1").Shapes.Range(Array("TextBox 1")).Visible = True
If Worksheets("Tabelle6").Range("R1").Value "pfoh02" _
And Worksheets("Tabelle6").Range("R1").Value "musik01" _
And Worksheets("Tabelle6").Range("R1").Value "jendr02" _
And Worksheets("Tabelle6").Range("R1").Value "Pfoh.M" _
And Worksheets("Tabelle6").Range("R1").Value "" Then
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
Sheets("Tabelle1").Shapes.Range(Array("TextBox 1")).Visible = False
End If
End Sub
Übrigens: Die Datei hatte mich zunächst ausgesperrt, da ich natürlich nicht in der User-Liste stand. Ich habe etwa 17 Sekunden gebraucht um das zu "hacken" (mit Absicht in Anführungsstrichen). Nur damit du dir klar bist wie sicher eine solche Schutzmaßnahme ist: nicht sehr.
Oh eine Kleinigkeit noch: füge auch dieses Makro ein.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
Sheets("Tabelle1").Shapes.Range(Array("TextBox 1")).Visible = False
End Sub
Dadurch verhinderst du, dass dein Schutz ganz simpel durch "ohne Makros starten" umgangen wird. Macht das ganze einen mü sicherer :-)
Grüße,
Klaus M.vdT.