title image


Smiley und noch ne Verbesserung
Hallo



damit es wirklich läuft, habe ich es nun ebenfalls in "dieseArbeitsmappe" geschrieben und die letzte meldung wegen speichern oder nicht auf elimininiert, in dem ich einfach speichere:





Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

ThisWorkbook.Save



End Sub







Code eingefügt mit Syntaxhighlighter 4.0




Viel Erfolg wünscht Wastl



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: