title image


Smiley Re: Zellen sperren nach dem Ausfüllen
Hai,das folgende Makro macht für die Zeilen 1 bis 10 hoffentlich das, was tu brauchst:Private Sub Worksheet_Change(ByVal Target As Excel.Range)r = Target.RowIf r > 10 Then Exit SubEnd IfCells(r, 1).ActivateFor I = 0 To 18 If ActiveCell.Offset(0, I).Value = "" Then Exit Sub End IfNextJaNein = MsgBox("Zeile ist ausgefüllt, Zellen sperren?", vbYesNo)If JaNein = 6 ThenActiveSheet.Unprotect password:="abc"For I = 0 To 18 ActiveCell.Offset(0, I).Locked = TrueNextActiveSheet.Protect password:="abc"End IfEnd SubUm das Makro anzulegen, wechsel in den VBA-Editor, Doppelklick auf die Tabelle, für die es gelten soll und Modul einfügenWorti

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: