Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Hilfe bei Makro ...

Forumthread: Hilfe bei Makro ...

Hilfe bei Makro ...
03.10.2006 19:57:46
Gast
Hallo zusammen,
ich habe da folgende Makro's gebastelt.

Sub BlattschutzEINAlle()
For Each sh In Sheets
sh.Protect Password = "MeinPasswort"
Next sh
End Sub



Sub BlattschutzAUSAlle()
For Each sh In Sheets
sh.Unprotect Password = "MeinPasswort"
Next sh
End Sub

Wie stelle ich es an wenn ich nur die Sheets "1 Woche" bis "53 Woche" schützen will?
Alle übrigen Sheets (insgesamt 10 weitere) sollen ausgeklammert werden.
Gruß Gast
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Makro ...
03.10.2006 20:52:26
Herby
Hallo Gast,
müsste nach dem Schema gehen:

Sub BlattschutzEINAlle()
Dim i As Long
Dim j As Integer
Dim Blattname As String
For i = 1 To Sheets.Count
Blattname = Sheets(i).Name
For j = 1 To 53
If Blattname = CStr(j & " Woche") Then
'MsgBox "Gefunden: " & Sheets(i).Name
Sheets(i).Protect Password = "xxx"
End If
Next j
Next i
End Sub

Viele Grüße
Herby
Anzeige
Danke ...........
03.10.2006 21:04:38
Gast
Danke für die Hilfestellung Herby
Gruß Gast
AW: Hilfe bei Makro ...
03.10.2006 20:53:20
Uduuh
Hallo,

Sub BlattschutzEINAlle()
For Each sh In Sheets
If Right(sh.name,5)="Woche" Then
sh.Protect Password = "MeinPasswort"
End If
Next sh
End Sub

Gruß aus’m Pott
Udo

Anzeige
Danke ....
03.10.2006 21:03:22
Gast
Danke für Deine Hilfstellung Udo
Gruß aus Rheinhessen Gast
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum