Office: (Office 2016) [VBA] temporäre Kopie Blattschutz aktivieren

Hallo zusammen,

ich habe folgendes Problem:

Ich habe ein Makro, welches die Arbeitsblätter nach Mailadressen in einer bestimmten Zelle durchsucht, dieses Arbeitsblatt dann in einer neuen Datei zwischenspeichert und dann versendet. Wie kann ich da jetzt noch einbauen, dass diese Kopie mit einem Blattschutz versehen wird? Er sperrt mir immer die Originaldatei. Die Datei und das Blatt haben immer andere Namen.

Code:

For Each sh In ThisWorkbook.Worksheets
        If sh.Range("A1").Value Like "?*@?*.?*" Then
            
                      
            sh.Copy
            Set wb = ActiveWorkbook
            Range("E9:E20").Value = Range("E9:E20").Value
            Range("E23:E26").Value = Range("E23:E26").Value
            Range("D2").Value = Range("D2").Value
            Range("B1").ClearContents
            
                      
            TempFileName = "Belegungsmeldung " & sh.Name & " " _
                         & Range("A3") & " "

            Set OutMail = OutApp.CreateItem(0)

            With wb
                
                .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
            

Danke und Gruß

Cray

 

Hallo, so?

Code:

            
Range("B1").ClearContents

Sheets("Tabelle1").Protect "Passwort"
                      
TempFileName = "Belegungsmeldung " & sh.Name & " " _
                         & Range("A3") & " "

 

Hallo Dirk,

danke für die schnelle Antwort. Klappt leider nicht, es kommt die Meldung "Index außerhalb des gültigen Bereichs". Das erstellte Blatt wird daraufhin nicht mehr verschickt, sondern geöffnet, ist aber ohne Blattschutz.

Gruß

Cray

 

hmm... bei mir hat es geklappt (test)

kannst du evtl., abgespeckt, eine Beispieldatei hochladen, aus der das Makro in Gänze erkennbar ist?

 

Moin!
und wenn Du das temporäre Sheet nach der Kopie aktivierst und dann den .protect über ActiveSheet auslöst?
Grüße

 

Hallo,

ich habe nochmals getestet, ich bin nun soweit, dass er die Tabelle in der Originaldatei schützt, aber die Kopie, die versendet wird, nicht. (musste statt sheets die Variable "sh" nehmen) Erstellt er die Kopie nicht mit "sh.copy"? Danach erfolgt "activate.workbook", welches dann aber wohl nicht die Kopie aktiv setzt, sondern das Original? Hatte danach dann eingesetzt "Tabelle1.Activate". Da aber anscheinend das falsche Workbook aktiv war, hat das nicht geklappt.

Sorry, mein VBA ist im Anfängerstatus, ich suche, kopiere, versuche zu verstehen und baue dann zusammen.

Ich werde mal versuchen, die Datei abzuspecken und hochzuladen, das klappt aber heute wahrscheinlich nicht mehr.

Danke und Gruß
Cray

 

Hi,

die Kopie des Blatts heißt doch so wie das Original. Daher musst du statt

Code:

Sheets("Tabelle1").Protect "Passwort"

Code:

Sheets("DeinBlattName").Protect "Passwort"

verwenden.
Da dein erzeugtes Workbook sowieso nur ein Blatt hat, reicht auch

Code:

Sheets(1).Protect "Passwort"