Zellschutz ohne Blatschutz
02.10.2004 06:55:47
Linette
ich bitte um Eure Hilfe, ich hab eine grössere datei mit vielen eintragsmöglichkeiten und viele zellen mit formeln und veknüpfungen, die zum teil auch verändert werden können und müssen. da mehrere Nutzer zugriff und eintragungsrechte haben kann ich den blattschutz für manche zellen nicht nehmen.
Deshalb wollte ich Unterschiedliche Zellbereiche mit PW Abfrage schützen.
Z.B. (A39:AV40), (D5:M350) Ich habe hier ein beispiel aber es funktioniert nicht richtig, es schütz die komplette zeile 40 aber nur A39 es soll aber A39:AV40 schützen.
Was mach ich falsch?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim pw As String
If Target.Column = 1 And Target.Row = 40 Or Target.Row = 39 Then 'für Zellen C2 und C5, ggf. anpassen
pw = InputBox("Bitte Passwort eingeben !")
If pw <> "test" Then
Range("a1").Select
Exit Sub
Else
End If
End If
End Sub
Danke linette