Einzelnen Beitrag anzeigen
Alt 16.05.2018, 17:55   #1
High-5-Fabi
Neuer Benutzer
Neuer Benutzer
Standard Excel VB Code Begrenzung

Hallo Leute,



ich hätte da mal eine Frage bezüglich eines Codes in Excel. Und zwar habe ich einen Code, der die Zellen schützen/locken soll, sobald man die Datei speichert und schließt. Also eine Person trägt etwas ein, speichert und schließt die Datei und der nächste, der drauf zugreift, kann die Zellen nicht mehr bearbeiten.

Jetzt habe ich nur folgendes Problem: dieser Code soll sich nur auf Zelle A1 bis I47 beziehen und nur diese Zellen locken. Die Anderen sollen nach speichern und schließen immer noch frei zum bearbeiten sein.

Das hier ist mein jetziger Code:

Code:

Private Sub Workbook_Open()
    Dim wsh As Worksheet
    Dim rng As Range
    On Error Resume Next
    For Each wsh In Me.Worksheets
       wsh.Unprotect Password:="Secret"
       wsh.Cells.Locked = False
       Set rng = wsh.UsedRange.SpecialCells(xlCellTypeConstants)
       If Not rng Is Nothing Then
           rng.Locked = True
       End If
       Set rng = wsh.UsedRange.SpecialCells(xlCellTypeFormulas)
       If Not rng Is Nothing Then
           rng.Locked = True
       End If
       wsh.Protect Password:="Secret"
    Next wsh
End Sub
Kann mir bitte jemand von euch helfen, wäre ´ne riesen Hilfe

Mfg Fabi
High-5-Fabi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten