Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Makro ...

Hilfe bei Makro ...
03.10.2006 17:57:46
Sonnenpeter
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ß Sonnenpeter

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Makro ...
03.10.2006 18:52:26
Herby
Hallo Sonnenpeter,
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
Danke ...........
03.10.2006 19:04:38
Sonnenpeter
Danke für die Hilfestellung Herby
Gruß Sonnenpeter
AW: Hilfe bei Makro ...
03.10.2006 18: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 19:03:22
Sonnenpeter
Danke für Deine Hilfstellung Udo
Gruß aus Rheinhessen Sonnenpeter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige