Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

myWorksheet.Protect

myWorksheet.Protect
08.01.2014 13:03:33
Chris
Hallo zusammen,
wie könnte man den unten stehenden Code so optimieren, das der Schutz nur auf bestimmte Sheets angewendet wird?
Bsp.
Tabelle1 - soll geschützt werden
Tabelle2 - soll nicht geschützt werden
Tabelle3 - soll nicht geschützt werden
Tabelle4 - soll geschützt werden
Private Sub Workbook_Open()
Dim myWorksheet As Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
myWorksheet.Protect Password:="xxx", UserInterFaceOnly:=True
Next
Vielen dank für die Hilfe.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Blattnamen oder Blattindex abfragen...
08.01.2014 13:17:32
robert
Hi,
Beispiele dazu findest Du sicher in der RECHERCHE
Gruß
robert

AW: Blattnamen oder Blattindex abfragen...
08.01.2014 21:02:24
Franz
Hallo,
im Tabelle1 und Tabelle4 mittels "Code anzeigen" (rechte Maustaste) . . .
Private Sub Worksheet_Activate()
ActiveWorkbook.Protect Password:="XXX"
End Sub

bei den anderen...
Private Sub Worksheet_Activate()
ActiveWorkbook.Unprotect Password:="XXX"
End Sub

. . . platzieren.
Et voila!
Tschüss
Franz D.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige