VBA zur Aktivierung des Blattschutzes sowie Freigabe der Filterfunktion

[DavidB]

Hallo,

mit dem folgenden Script:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = "XXXYYYZZZ"
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

wird beim Schließen der Excel-Datei der Blattschutz automatisch aktiviert.

Ich möchte nun aber für User die das Passwort nicht kennen die Möglichkeit einrichten, dass diese trotzdem die Filterfunktion nutzen können.

Wie kann ich das Script entsprechend umbauen?

Danke und Grüße
David

[Gast 123]

Hallo David

was waere wenn ...   du für User seine versteckte Tabelle anlegst, oder in einer versteckten Tabelle ein Textfeld erstellt, das du von der Grösse her auf Null setzen kannst, und dir dort für jeden User sein eigenes Passwort notierst? Da fühlt sich jeder geschmeichelt, und per VBA kannst du das Passwort auswerten um den Blattschutz gezielt aufzuheben.  

Ist das eine brauchbare Idee für dich ... ???

mfg Gast 123

[DavidB]

Hallo,

das bringt mir nicht viel. Es gibt mittlerweile ca. 2.000 Zeilen und ca. 60 User. Von diesen haben ca. 10 das Passwort, die anderen schauen die Liste nur an, sollen aber auch filtern können.

Grüße
D.

[DavidB]

Hat keiner eine Idee?

[Werner.M]

Hallo,

das macht man aber beim Öffnen der Datei und nicht beim Schließen.

Code:

Private Sub Workbook_Open()
Dim xPsw As String, xSheet As Worksheet

xPsw = "XXXYYYZZZ"

For Each xSheet In ThisWorkbook.Worksheets
   xSheet.Protect xPsw
   xSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
Next
   
End Sub

Gruß Werner

[Käpt'n Blaubär]

Hallo David,

ich habe mal so etwas gebaut. Das ließe sich eventuell auf Deine Wünsche zuschneiden.

[snb]

die anderen schauen die Liste nur an, sollen aber auch filtern können.

Benütze dann:

Code:

Sub M_snb()
   workbooks.add "G:\OF\beispiel.xlsx"
End Sub