VBA - Sortieren und filtern trotz gesperrter Zellen und arbeitsblatt

[Niko]

Hallo an alle,
 
versuche mit meinen bescheidenen Kenntnissen ein Code in den vorhandenen VBA Code des Blattes einzufügen um Sortieren und Filtern trotz gesperrter Zellen und Arbeitsblatt, aber irgendwie bekomme ich es nicht hin.
 
Habe versucht diesen Code Schnipsel einzufügen doch es klappt nicht, wahrscheinlich füge ich ihn in den falschen VBA Bereich/Zeilen ein oder er ist ganz falsch.
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, userinterfaceonly:=True, AllowSorting:=True, EnableAutoFilter:=True
 
Datei eingefügt: 
  Mappe1_test_Sortieren_mit_pass.xlsm (Größe: 31,21 KB / Downloads: 3)
 
Bitte um Hilfe, wie und wo muss ich es einstellen/einfügen um Sortieren und Filtern zu können, trotz gesperrter Zellen und Arbeitsblattes.
 


Danke in Voraus

Niko

[Atlan]

Sub Workbook_Open()

ActiveSheet.Protect userinterfaceonly:=True, Password:="xxx"

ActiveSheet.EnableOutlining = True 'für Gliederung

ActiveSheet.EnableAutoFilter = True 'für Autofilter

End Sub


'kann das passen ?'
'wobei in der 2ten Zeile die '3 x' dein Passwort enthalten.'

[Niko]

Hi, danke vorab für deine antwort.

Doch egal wie den Code Einbinde, er funktioniert nicht.

Ein Lösungsvorschlag der in der eingefügten datei auch funktionieren könnte, oder falls ich es falsch mache eine kleine anleitung, würde mir weiterhelfen.

Danke,
Niko

[Atlan]

ich habe es bei mir so eingebunden

[Niko]

Habe es wie Sie empfohlen haben eingesetzt doch es funktioniert nicht.
Bin mir sicher das die eingefügte Datei von mir mit Ihren Code auch nicht bei Ihnen funktionieren wird.

anbei der fehler sowie der code wie er eingefügt worden ist.

   

Option Explicit
Sub Workbook_Open()

ActiveSheet.Protect userinterfaceonly:=True, Password:="1234"

ActiveSheet.EnableOutlining = True 'fuer Gliederung

ActiveSheet.EnableAutoFilter = True 'fuer Autofilter

End Sub

Private Sub Workbook_Open()
Me.Unprotect ("1234")
ActiveWindow.WindowState = xlMaximized
ActiveWindow.DisplayGridlines = False
Application.CommandBars.ExecuteMso "MinimizeRibbon"
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.DisplayAlerts = False
Me.Protect ("1234")

End Sub

Sub Workbook_Deactivate()
  Me.Unprotect ("1234")
ActiveWindow.DisplayGridlines = True
Application.CommandBars.ExecuteMso "MinimizeRibbon"
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayAlerts = True
ActiveWindow.DisplayWorkbookTabs = True
Me.Protect ("1234")


End Sub

Danke,

Niko

[Atlan]

https://de.extendoffice.com/documents/ex...sheet.html

sorry, 2ter Teil vergessen, mit den Einstellungen Seite 3 !!!!
Wichtig