Funktion trotz Blattschutz

Forumthread: Funktion trotz Blattschutz

27.09.2024 11:51:02

Simon

Hallo

unter Städte stehen ca 50 Stück.
Es gibt Nutzer die alle brauchen, aber auch Nutzer die nur bestimmte brauchen.
Wenn ich den Blattschutz mit PW aktiviere kann man keine Städte mehr auswählen.

Gibt es eine Möglichkeit das man doch wieder Städte auswählen kann, ohne den Blattschutz du deaktivieren.
Da die anderen Nutzer das PW nicht bekommen.

Userbild

Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Funktion trotz Blattschutz

27.09.2024 12:35:20

GerdL
AW: Funktion trotz Blattschutz

27.09.2024 14:05:54

Simon
AW: Funktion trotz Blattschutz

27.09.2024 22:25:04

Waldemar II
AW: Funktion trotz Blattschutz

28.09.2024 09:02:01

Simon

AW: Funktion trotz Blattschutz

27.09.2024 12:35:20

GerdL

Moin Simon,

ohne Blattschutz.

Sub Makro1()

'

' Makro1 Makro

'



'

    With Range("a1").Validation

        .Delete

        Select Case Application.UserName

        Case "Simon"

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

        xlBetween, Formula1:="A,B,C"

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

        Case "Tanja"

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

        xlBetween, Formula1:="A,B"

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

        Case Else

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

        xlBetween, Formula1:="A,C"

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

        End Select

    

    

    End With

End Sub

Gruß Gerd

AW: Funktion trotz Blattschutz

27.09.2024 14:05:54

Simon

Danke..

Leider kann ich den Blattschutz nicht abschalten.
Damit nicht alle in den Formeln spielen können.

AW: Funktion trotz Blattschutz

27.09.2024 22:25:04

Waldemar II

Was spricht dagegegen, den Blattschutz für die Zellen zu deaktivieren, in welchen der Städte-Drop-Down gilt?
Wenn du das Verschieben der Zellen in ihrer Auswirkung reduzieren willst, würde die INDIREKT-Funktion Abhilfe verschaffen, welche jedoch die Rechenzeit erhöht.
Dem jedoch kann man auch begegnen, indem man die potentiellen Verschieber auf ihre eventuellen Unbedachtsamkeiten aufmerksam macht und bei dochmaligen Dumm-Tun die entsprechenden Bezüge mittles Runterziehen einfach wieder herstellt.
Aufmerksam gemacht mittels WERT-Fehlermeldung würde einem die Misere eh' nicht entgehen.
Das lässt die Datei weiterhin schnell tun und wäre bei Tolpatschigkeit leicht wieder reparierbar.
Verstanden ... ? ;-)

AW: Funktion trotz Blattschutz

28.09.2024 09:02:01

Simon

Danke für die Info..
Werde die Städteauswahl wohl weglassen...

Beliebteste Forumthreads (12 Monate)

Forumthread: Funktion trotz Blattschutz

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread