Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Arbeitsmappe/Tabellen von mehreren Dateien schützen
zurück: Makro bricht bei Application.ScreenUpdating=True ab weiter: Checkbox Textbox Passwordchar ### Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
DeltaII
Gast


Verfasst am:
03. Mai 2007, 17:18
Rufname:


Arbeitsmappe/Tabellen von mehreren Dateien schützen - Arbeitsmappe/Tabellen von mehreren Dateien schützen

Nach oben
       Version: Office 97

Hallo,

ich VBA-Neuling möchte mehrere Excel-Dateien in einem Verzeichnis mit einem Arbeitsmappenschutz UND Tabellenschutz (mehrere Tabellenblätter pro Datei) schützen.

Folgendes Makro habe ich für den Tabellenschutz schon gefunden (funktioniert sehr gut):


Code:
Sub BlattschutzSetzen()
    Dim sSource$, iCount%, iCounter%
    Dim wks As Worksheet
    sSource = "c:\..."
    With Application.FileSearch
      .NewSearch
      .LookIn = sSource
      .Filename = "*.xls"
      .SearchSubFolders = True
      .Execute
      iCount = .FoundFiles.Count
      For iCounter = 1 To iCount
        Workbooks.Open Filename:=.FoundFiles(iCounter)
         For Each wks In ActiveWorkbook.Worksheets
            wks.Protect Password:="xxx"
            Next wks
        ActiveWorkbook.Close True
      Next iCounter
   End With
End Sub


Allerdings weiß ich nicht, wie man gleichzeitig einen Arbeitsmappenschutz inkl. Passwort hinzufügt.

Folgendes Makro funktioniert für EINE Datei auch gut, bei knapp 70 Dateien, die ich schützen muss, ist das allerdings zu aufwändig:

Code:
Option Explicit

Const mypwdSheet As String = "Tabelle"
Const mypwdWorkbook As String = "Mappe"

Sub ProtectMe()
   Dim ws As Object
   
   For Each ws In ActiveWorkbook.Sheets
       ws.Protect Password:=mypwdSheet
   Next
   ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=mypwdWorkbook
End Sub


Hat hier jemand noch einen Tipp? Vielen Dank im voraus und beste Grüße,

Tim
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: in der Zelle nur die Formel schützen trotzdem etwas eingeben 1 MagicZimmis 1400 06. Feb 2005, 11:42
ae in der Zelle nur die Formel schützen trotzdem etwas eingeben
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: SummeWenn mit 2 oder mehreren Bedingungen 1 jones 2000 1134 20. Dez 2004, 15:29
Kuwe SummeWenn mit 2 oder mehreren Bedingungen
Keine neuen Beiträge Excel Formeln: Vergleich zweier Tabellen 2 Enjoy82 1975 25. Nov 2004, 13:50
Enjoy82 Vergleich zweier Tabellen
Keine neuen Beiträge Excel Formeln: Tabellen auswertung, errechnung, ausgabe 4 L*R 905 11. Nov 2004, 15:34
L*R Tabellen auswertung, errechnung, ausgabe
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit mehreren Kriterien 6 beat. 1330 29. Okt 2004, 13:04
KrExceln SUMMEWENN mit mehreren Kriterien
Keine neuen Beiträge Excel Formeln: Verknüpfungen zu anderen Tabellen 2 Flohh 1027 21. Okt 2004, 06:54
Flohh Verknüpfungen zu anderen Tabellen
Keine neuen Beiträge Excel Formeln: Inhalte aus zwei Excel Tabellen in dritter zusammenfassen 0 AB 3289 11. Okt 2004, 13:49
AB Inhalte aus zwei Excel Tabellen in dritter zusammenfassen
Keine neuen Beiträge Excel Formeln: Hilfe! Wenn..Dann mit mehreren Dann-Werten 4 Nina81 803 25. Aug 2004, 11:51
Nina81 Hilfe! Wenn..Dann mit mehreren Dann-Werten
Keine neuen Beiträge Excel Formeln: Grafiken aus Tabellen über Formeln übernehmen 2 Shooter 1313 19. Aug 2004, 08:04
xpecidy Grafiken aus Tabellen über Formeln übernehmen
Keine neuen Beiträge Excel Formeln: Werte aus zwei tabellen vergleichen 3 nfips 2974 29. Jul 2004, 21:01
fl618 Werte aus zwei tabellen vergleichen
Keine neuen Beiträge Excel Formeln: Informationen aus verschiedenen Tabellen 2 Gast 1138 28. Jul 2004, 18:37
Arnim Informationen aus verschiedenen Tabellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum