Benutzerregelung & links
03.06.2008 17:35:00
Martin
hab zwei Probleme mit Excel 2000:
1: Für Excel 2003 habe ich einmal eine "Benutzerzugriffsregelung" gemacht. Beim Schliessen der Datei werden alle Blätter ausgeblendet, beim Öffnen nach Kennworteingabe bestimmte Blätter eingeblendet und davon bestimmte Bereiche zum Bearbeiten gesperrt.
Dim rngC As Range
Dim lngSpalte As Long
Worksheets("Rechte").Unprotect Password:="Dummbratze" 'Blattschutz afheben
Set rngC = Worksheets("Rechte").Range("A:A").Find(What:=Anmelden.Passwort.Text, Lookat:=xlWhole)
' Auf dem Blatt "Rechte" ist eine Tabelle mit Namen, daneben die Arbeitsblätter diue gesehen werden dürfen.
If rngC Is Nothing Then
MsgBox "Bitte geben Sie ein korrektes Kennwort ein!"
Anmelden.Passwort.Text = ""
Anmelden.Show
Else
For lngSpalte = 2 To Worksheets("Rechte").Cells(rngC.Row, Columns.Count).End(xlToLeft).Column
Select Case Worksheets("Rechte").Cells(rngC.Row, lngSpalte).Value
Case Is = "s"
Select Case Worksheets(Worksheets("Rechte").Cells(13, lngSpalte).Value).Range("HH1").Value 'Anhand eines Buchtabens in einer Zelle wird ermittelt um welchen "Typ" Blatt es sich ahndelt und dementsprechend bereiche frei gegeben.
Case Is = "E"
With Worksheets(Worksheets("Rechte").Cells(13, lngSpalte).Value)
.Visible = True
.Unprotect Password:="Dummbratze"
.Cells.Locked = False
.Range("A1:A12,B7").Locked = True
.Protect DrawingObjects:=True, AllowSorting:=False, AllowFiltering:=True, Contents:=True, Scenarios:=True, Password:="Dummbratze"
End With
In 2003 funzt das wunderbar. Geht das auch umzusetzen für 2000? Momentan macht er die Datei nur auf als seien Makros deaktiviert. Sind sie aber nicht.
2: An einem Rechner wird über Hyperlink einfügen ind er Datei ein link zu einer Datei erzeugt. Wird die Exceldatei an einen anderen Rechner übertragen funzt der link nicht mehr. Gibt man den gleichen link von dem Rechner nochmals ein, so funktioniert es.