title image


Smiley Re: wie lautet denn die Fehlermeldung?___ot
Hallo



deine Datei habe ich bekommen und den Code wie folgt modifiziert



entegegen deiner ursprünglichen Aussage sind die Formeln nicht in F sondern in M:O







      

Sub Schutz()

Dim WsA As Worksheet

Dim Rn As Range

Dim Rw, Lg As Long, Cl As Integer

Dim Prt As Boolean



On Error Resume Next



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(Lg, 1), Cells(Lg, 12))

        If Rn.Value = "" Then

'            Rn.Select

            Prt = False

            Rn.Locked = False

            Exit For

        Else

'            Rn.Select

            Prt = True

            Rn.Locked = True

        End If

    Next Rn

Next Lg



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

WsA.Range("M3:O33").Locked = True

WsA.Range("M3:O33").FormulaHidden = True

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

Next WsA



End Sub 





Code eingefügt mit Syntaxhighlighter 3.0







Ich schicke dir die Datei wieder zurück, dann siehst du, was ich sonst noch so angestellt habe. Die Formeln gehen jetzt bis zeile 32, blenden sich aber aus, wenn C der selben zeile leer ist.



Schönes WE

Viel Erfolg wünscht Wastl



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: