Blatt beim Öffnen schützen
20.04.2009 09:42:32
Tom
ich versende ein Tabellenblatt per Mail mit u.a. Code. Ich muss bei dem schreibgeschütze Blatt vor dem Senden den Schreibschutz aufheben, damit gesendet werden kann (ActiveSheet.Unprotect "XY").
Wie schaffe ich es nun, dass beim Öffnen des Arbeitsblattes erneut der Schreibschutz erst mal drin ist, da ja ohne Schreibschutz gespeichert wird?
Danke vorab
TOM
Sub perEmail()
ActiveSheet.Unprotect "XY"
lr = Cells(Rows.Count, 3).End(xlUp).Row ' lr ist die letzte beschriebene Zelle
ActiveSheet.PageSetup.PrintArea = "$A$1:$o$26"
'Druckbereich festlegen
'Das anzeigen der Envelope Commandbar ist unabdingbar ( nicht von mir funktioniert aber )
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Anbei die Datei." & Chr(13) & "Gruß" & Chr(13) & [M1].Value
.Item.To = "test.test@test.de" 'hier EMail-Addresse eintragen
.Item.Subject = "Datei " & [M1].Value
End With
End Sub