Hallo,
ich habe foldendes Problem: Und zwar habe ich eine Datei zugängig für viele Personen mit einem Blattschutz versehen. beim Öffnen dieser Datei wird nach dem Nachnamen gefragt. Ist es nicht mein Nachname haben die anderen nur die Möglichkeit etwas in 2 Spalten der Tabelle einzutragen, leider kann der Autofilter dann auch nicht verwendet werden. Benutze ich die Funktion "EnableAutoFilter = True" funktionert das zwar bei den anderen. Sobald ich aber meinen Namen eingebe ist der Blattschutzt auch aktiv, und mein Vollzugriff ist auch weg.
Name = InputBox("Bitte geben Sie Ihren Nachnamen ein")
If Name <> "Meier" Then
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End If
Wer kann mir helfen?
ich habe foldendes Problem: Und zwar habe ich eine Datei zugängig für viele Personen mit einem Blattschutz versehen. beim Öffnen dieser Datei wird nach dem Nachnamen gefragt. Ist es nicht mein Nachname haben die anderen nur die Möglichkeit etwas in 2 Spalten der Tabelle einzutragen, leider kann der Autofilter dann auch nicht verwendet werden. Benutze ich die Funktion "EnableAutoFilter = True" funktionert das zwar bei den anderen. Sobald ich aber meinen Namen eingebe ist der Blattschutzt auch aktiv, und mein Vollzugriff ist auch weg.
Name = InputBox("Bitte geben Sie Ihren Nachnamen ein")
If Name <> "Meier" Then
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End If
Wer kann mir helfen?
