Passwort mehreren Arbeitsmappen in einem bestimmten Ordner zuweisen

-1

Lassen Sie mich Ihnen das Problem sagen. Wir erstellen einen zusammenfassenden Bericht, basierend auf einem Bericht Ich kann Dateien in separaten Arbeitsmappen aufteilen.Passwort mehreren Arbeitsmappen in einem bestimmten Ordner zuweisen

Das Hauptproblem ist:

ich viele Möglichkeiten versucht, mit einem anderen Passwort Mehrere Arbeitsmappen zu schützen. In meiner Excel-Passwort-Datei haben alle Liste der Excel-Namen in Spalte A und Liste eines anderen Passwortes in Spalte B (mindestens 100 Excel-Dateien und kann maximal 500 Dateien erreichen) nach Excel-Spalte Ein Name muss Passwort-Spalte B im Ordner zuweisen Arbeitsmappe. Es ist wirklich schmerzhaft für jeden Monat manuell zu tun

Gibt es eine einfache Möglichkeit, mehrere Arbeitsmappen zu schützen, ohne sie zu öffnen und jedes Passwort über VBA-Codes zuzuordnen? Wie pro mein Wissen können wir das gleiche Passwort für alle Arbeitsmappe zuweisen, aber anderes Passwort Suche nach meinem Excel gespeicherte Passwort als

erforderlich

Wirklich zu schätzen Ihre Hilfe

Quelle

2017-02-12 Basavaraj k.s.

_ "Ich habe versucht, mehrere Möglichkeiten zum Schutz mehrerer Arbeitsmappen mit unterschiedlichen Passwort" _: zeigen Sie uns eine dieser Möglichkeiten – user3598756

Vielen Dank für Ihre Antwort .... –

Sub Passwordprotect() 'Passwortgeschützte Dateien öffnen Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Workbooks.Open "C: \ Cb.xlsx", Falsch ActiveWorkbook.SaveAs Dateiname: = "C: \ Cb.xlsx", Passwort: = "basu" ActiveWorkbook.Close SpeichernÄnderungen: = True End Sub hier täglich von Hand schreibe ... es lange Zeit und sogar für 500 Excel Namen nehmen und mit dem Weg brauche ich –

eine mögliche Lösung

Sub protectwpwd() 
Dim i As Long, wb As Workbook, ws As Worksheet 
    i = 1 
    Set wb = ThisWorkbook 
    Set ws = wb.ActiveSheet 
    While ws.Cells(i, 1) <> "" 
     Workbooks.Open ws.Cells(i, 1) 
     ActiveWorkbook.Saveas ws.cells(i,1),Password:=ws.Cells(i, 2) 
     ActiveWorkbook.Close 
     i = i + 1 
    Wend 
End Sub

Quelle

2017-02-12 15:51:31 h2so4

Hallo Danke für den Code schreiben Störung erhalte, weil, wie Code zu schreiben suchen Mein Ordner in Code, um Passwörter –

über die Schleife zuweisen .... Ja, wir können ... müssen ändern, wie es in den Ordner schauen sollte, die ich geben kann dann sollte es beginnen zuweisen wie erwähnt Spalte A Excel-Namen und Spalte B Passwörter Schleife bis zum Ende bitte helft mir –

Bitte modi fy, wie in Ordnerverzeichnis –

Passwort mehreren Arbeitsmappen in einem bestimmten Ordner zuweisen

Antwort

Verwandte Themen