Zellschutz, ab zellposition

Forumthread: Zellschutz, ab zellposition
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Zellschutz, ab zellposition

16.03.2004 12:56:19

bis: sperrt, damit dort keiner mehr was ändern kann.

vielen dank schon mal im voraus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellschutz, ab zellposition

17.03.2004 01:02:11

Josef Ehrensberger

AW: Zellschutz, ab zellposition

17.03.2004 01:02:11

Josef Ehrensberger

Hallo Mirko!
Das funktioniert nur in verbindung mit dem Blattschutz!
Z.B. mit diesem Code.

Sub ZellenSperren()
Dim rng As Range
Dim intCol As Integer
ActiveSheet.Unprotect "passwort"
intCol = ActiveCell.Column
Set rng = Application.InputBox("Bitte wählen sie die Zeilen aus," & vbLf & vbLf & _
"die geschützt werden sollen!", "Zeilen", ActiveCell.Address, Type:=8)
If Not rng Is Nothing Then
Range(Cells(rng(1).Row, intCol), _
Cells(rng(1).Row + rng.Rows.Count - 1, intCol)).Locked = True
End If
ActiveSheet.Protect "passwort"
End Sub