2017-04-13 4 views
0
mit Passwort gesperrt ist

Ich habe tage die geklebt wurden folgende:Excel VBA - Filtern von Daten, die

Ich mag würde in bestimmten Zeilen mit einem Passwortdaten sperren und dann noch einen Filter verwenden können, auf diesen Daten.

enter image description here

das, was ich so weit gekommen ist, aber aus irgendeinem Grund funktioniert es nicht.

Jeder Eingang wäre sehr willkommen !!!

If logbook.Cells(row_index, 1) <> "" Then 
    ActiveSheet.Unprotect password:="mypassword" 
    logbook.Cells(row_index, 11).Value = "YES" 
    logbook.Cells(row_index, 1).EntireRow.Locked = True 
    ActiveSheet.Protect password:="mypassword", AllowFiltering:=True   
Else 
    Unload Me 
End If 
+0

'AllowSorting: = True, AllowFiltering: = True 'fügen Sie diese zu' ActiveSheet.Protect' hinzu, um Sortierung und Filterung zu aktivieren. – Luuklag

Antwort

0

Wenn Sie die Daten durch VBA ändern müssen, Sie brauchen nicht es aufzuheben.

Verwenden Sie einfach UserInterfaceOnly: = True und mit AllowFiltering: = True können Sie Ihre Daten weiterhin filtern. Wie folgt:

ActiveSheet.Protect Password:="mypassword", AllowFiltering:=True, UserInterfaceOnly:=True 
0

nicht sicher, ob ich Ihre Frage vollständig verstehen, aber dies funktioniert:

Sub Test() 

    'worksheet is protected 
    'read only operations 

    Sheets("tbl").Select 
    ActiveSheet.Unprotect Password:="mypassword" 

    'changes to worksheet 

    Sheets("Tabelle1").Select 
    ActiveSheet.Protect Password:="mypassword" 

End Sub 
+0

Wenn das Blatt vollständig geschützt ist, kann ich die Daten nicht filtern. Also muss ich einen Weg finden, das Blatt zu schützen und gleichzeitig dem Benutzer zu erlauben, die Daten zu filtern. –

+0

Geschützte Blätter können meines Wissens nicht verändert werden. Entweder lesen Sie die Daten aus, die Sie benötigen, und manipulieren Sie sie an anderer Stelle oder heben Sie den Schutz für die Datenbearbeitung auf. –