Thema Datum  Von Nutzer Rating
Antwort
18.03.2019 12:04:23 Ralph
NotSolved
18.03.2019 12:06:10 Gast13920
NotSolved
18.03.2019 16:15:37 Ralph
NotSolved
18.03.2019 16:17:30 Gast69939
NotSolved
18.03.2019 16:18:17 Ralph
NotSolved
18.03.2019 16:20:34 Gast65403
NotSolved
18.03.2019 16:30:17 Ralph
NotSolved
18.03.2019 17:01:11 Gast91466
NotSolved
18.03.2019 16:52:59 RPP63
NotSolved
18.03.2019 17:04:39 Gast54033
NotSolved
19.03.2019 12:04:38 Werner
NotSolved
19.03.2019 13:34:58 Ralph
NotSolved
19.03.2019 15:55:08 Gast84686
NotSolved
19.03.2019 16:45:04 Gast58982
NotSolved
19.03.2019 16:52:26 Gast82952
NotSolved
19.03.2019 16:53:15 Gast38092
NotSolved
19.03.2019 17:13:36 Ralph
NotSolved
Blau VBA Code nur auf bestimmten Blättern anwenden
19.03.2019 17:30:25 Werner
Solved
19.03.2019 18:13:48 Ralph
NotSolved

Ansicht des Beitrags:
Von:
Werner
Datum:
19.03.2019 17:30:25
Views:
527
Rating: Antwort:
 Nein
Thema:
VBA Code nur auf bestimmten Blättern anwenden

Hallo Ralph,

eigentlich bin ich ziemlich genervt und wollte nicht mehr antworten. Warum? Weil es offensichtlich zu viel verlangt ist Code den man zur Verfügung gestellt bekommt zumindest mal zu testen.

Zudem ist das hier mittlerweile ein ziemliches rein in die Kartoffeln - raus aus den Kartoffeln.

Erst Blattname geht nicht, weil die umbenannt werden, dann jetzt doch wieder über die Blattnamen.

Na ja, ich will mal nicht so sein.

Private Sub Workbook_Open()
Dim wks As Worksheet
 
For Each wks In ThisWorkbook.Worksheets
    Select Case wks.Name
        'Blätter die nicht "entsperrt" werden sollen
        'hier in der Case Anweisung aufführen
        Case "Ausnahme1", "Ausnahme2"
             'nix machen
        Case Else
             wks.Protect userinterfaceonly:=True, Password:="1907"
             wks.EnableOutlining = True 'für Gliederung
    End Select
Next
End Sub

Gruß Werner


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.03.2019 12:04:23 Ralph
NotSolved
18.03.2019 12:06:10 Gast13920
NotSolved
18.03.2019 16:15:37 Ralph
NotSolved
18.03.2019 16:17:30 Gast69939
NotSolved
18.03.2019 16:18:17 Ralph
NotSolved
18.03.2019 16:20:34 Gast65403
NotSolved
18.03.2019 16:30:17 Ralph
NotSolved
18.03.2019 17:01:11 Gast91466
NotSolved
18.03.2019 16:52:59 RPP63
NotSolved
18.03.2019 17:04:39 Gast54033
NotSolved
19.03.2019 12:04:38 Werner
NotSolved
19.03.2019 13:34:58 Ralph
NotSolved
19.03.2019 15:55:08 Gast84686
NotSolved
19.03.2019 16:45:04 Gast58982
NotSolved
19.03.2019 16:52:26 Gast82952
NotSolved
19.03.2019 16:53:15 Gast38092
NotSolved
19.03.2019 17:13:36 Ralph
NotSolved
Blau VBA Code nur auf bestimmten Blättern anwenden
19.03.2019 17:30:25 Werner
Solved
19.03.2019 18:13:48 Ralph
NotSolved