title image


Smiley @LXus, Wastl und alle - VBA - Zellen schützen
Hi,



http://spotlight.de/zforen/mse/m/mse-1130412536-1833.html



hier hatte mit Lxus schon sehr weiter geholfen,

ich hatte mich auch schon für dir richtige Antwort bedankt, doch jetzt merke ich,

dass da doch noch ein kliener Haken ist. Beim ersten mal dachte ich es hätte geklappt,

doch jetzt kommt wieder einbe Fehlermeldung und es funzt nicht :O((



kann mir einer den Code "verbessern"?



*******************************************************

Private Sub Workbook_Beforeclose()

Dim WsA As Worksheet

Dim Rn As Range

Dim Rw, Lg As Long, Cl As Integer

Dim Prt As Boolean



For Each WsA In ActiveWorkbook.Worksheets

WsA.Unprotect ("123") '<- Passwort für das Arbeitsblatt hier ebenfalls eintragen

WsA.Cells.Locked = False

Rw = WsA.Range("A65536").End(xlUp).Row

For Lg = 2 To Rw Step 1

For Each Rn In WsA.Range(Cells(Rw, 1), Cells(Rw, 12))

If Rn.Value = "" Then

Prt = False

Exit For

Else

Prt = True

End If

Next Rn

If Prt = True Then

WsA.Range(Cells(Rw, 1), Cells(Rw, 12)).Locked = True

End If

Next Lg

WsA.Range(Cells(1, 1), Cells(1, 12)).Locked = True

WsA.Range(Cells(2, 6), Cells(Rw, 6)).Locked = True

WsA.Range(Cells(2, 6), Cells(Rw, 6)).FormulaHidden = True

WsA.Protect Password:="123" '<- Passwort für das Arbeitsblatt ist 123

Next WsA



End Sub





Lieben dank

Micha

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: