Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabellenblatt: Kopie erstellen mit Schreibschutz
zurück: 2 Spalten veegleichen und Wert aus zelle davor übernehmen weiter: DropDown mit Mehrfachauswahl Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Steffixxx
Gast


Verfasst am:
15. März 2011, 11:56
Rufname:

Tabellenblatt: Kopie erstellen mit Schreibschutz - Tabellenblatt: Kopie erstellen mit Schreibschutz

Nach oben
       Version: Office 2003

Hallo zusammen,

ich baue mal wieder darauf, dass mir hier weiterhin so hervorragend von den Experten geholfen werden kann Smile

Habe mir ein Makro zusammengebastelt, dass mir ein Tabellenblatt beim Speichern einer Datei automatisch unter einem anderen Namen und einem anderen Pfad speichert. Funktioniert hervorragend. Jetzt würde ich nur gerne noch, dass die erstellte Kopie automatisch schreibgeschützt ist. Ist das überhaupt möglich???

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)



Dim Pfad As String

'Pfad anpassen
Pfad = "Speichertort"
'Pfad = ThisWorkbook.Path & "\"

'prüfen ob Pfad existiert
If Dir(Pfad) = "" Then
  MsgBox "Pfad existiert nicht", , "Abbruch"
  Exit Sub
End If

On Error GoTo Fehler

Application.ScreenUpdating = False
'eventuell schon vorhandene Datei ohne Rückfrage überschreiben
Application.DisplayAlerts = False

ThisWorkbook.Worksheets("Name zu kopierendes Tabellenblatt").Copy
ActiveWorkbook.SaveAs (Pfad & "Name neue Datei")
ActiveWorkbook.Close


Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Einlastungsplanung gespeichert in" & vbNewLine & vbNewLine _
        & Pfad, , ""

Exit Sub

Fehler:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub



Vielen, vielen Dank im Voraus für die Hilfe!!!!

Eure Steffi
werni
Solala


Verfasst am:
15. März 2011, 12:09
Rufname: werni
Wohnort: Ennenda GL

AW: Tabellenblatt: Kopie erstellen mit Schreibschutz - AW: Tabellenblatt: Kopie erstellen mit Schreibschutz

Nach oben
       Version: Office 2003

Hallo Steffi

Meinst du so?

ThisWorkbook.Worksheets("Name zu kopierendes Tabellenblatt").Copy
ActiveWorkbook.SaveAs (Pfad & "Name neue Datei"), FileFormat _
:=xlNormal, Password:="", WriteResPassword:="werni", ReadOnlyRecommended _
:=False, CreateBackup:=False
ActiveWorkbook.Close

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Steffixxx
Gast


Verfasst am:
15. März 2011, 12:18
Rufname:


AW: Tabellenblatt: Kopie erstellen mit Schreibschutz - AW: Tabellenblatt: Kopie erstellen mit Schreibschutz

Nach oben
       Version: Office 2003

Hallo Werni,

danke für die super schnelle Antwort... und dazu noch sehr hilfreich Very Happy

Habe es jetzt so eingebaut:

Code:
ActiveWorkbook.SaveAs (Pfad & "Aktuelle Einlastungsplanung"), FileFormat _
:=xlNormal, ReadOnlyRecommended _
:=True, CreateBackup:=False


Das funktioniert schon mal prima. Das heißt, die Pflicht wäre erledigt. Die Kür wäre, wenn ich jetzt am Anfang gar nicht erst die Option hätte, ob ich es schreibgeschützt öffnen möchte oder nicht (im Moment kommt eine Abfrage, dass ich es zwar schreibgeschützt öffnen sollte, ich das aber nicht muss). Also es lassen sich von vornherein keinerlei Änderungen an der Datei vornehmen außer über eine erneute Abspeicherung der Ursprungsdatei.

Trotzdem schon mal ein riesen Danke, das hilft mir wirklich und den Code hab ich mir gleich notiert Smile

Eure Steffi
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: Datum fortführend auf nächstem Tabellenblatt 5 IT-Faust 2690 23. März 2006, 20:02
Hübi Datum fortführend auf nächstem Tabellenblatt
Keine neuen Beiträge Excel Formeln: Aus einer Rangliste eine geordnete rangliste erstellen 7 Tutzi76 16793 21. März 2006, 17:08
ae Aus einer Rangliste eine geordnete rangliste erstellen
Keine neuen Beiträge Excel Formeln: Formular in Excel erstellen 2 Pebbles 11691 10. März 2006, 13:49
Gast Formular in Excel erstellen
Keine neuen Beiträge Excel Formeln: Word-Serienbriefe mit Daten aus Excel-Datei erstellen 1 doris64 8745 31. Jan 2006, 21:39
CaBe Word-Serienbriefe mit Daten aus Excel-Datei erstellen
Keine neuen Beiträge Excel Formeln: Einsatz-Statistik erstellen 5 Calmundo 4794 07. Dez 2005, 23:45
Calmundo Einsatz-Statistik erstellen
Keine neuen Beiträge Excel Formeln: Zusammenfassung von Tabellenblättern erstellen ?? 5 Sirius 2408 29. Nov 2005, 10:56
Arnim Zusammenfassung von Tabellenblättern erstellen ??
Keine neuen Beiträge Excel Formeln: Bezug aus Liste erstellen 4 Gast 1077 04. Nov 2005, 18:50
fridgenep Bezug aus Liste erstellen
Keine neuen Beiträge Excel Formeln: Tabelle aus Datenbank erstellen 3 Spargie 1458 30. Sep 2005, 13:07
Gast Tabelle aus Datenbank erstellen
Keine neuen Beiträge Excel Formeln: Erstellen von Datenblatt aus Tabellenzeile möglich? 5 harti986 1295 22. Sep 2005, 15:23
ae Erstellen von Datenblatt aus Tabellenzeile möglich?
Keine neuen Beiträge Excel Formeln: Ein - Ausgabenrechnung / Soll Haben Tabelle erstellen 6 Mario H 9535 26. Aug 2005, 21:47
Mario H Ein - Ausgabenrechnung / Soll Haben Tabelle erstellen
Keine neuen Beiträge Excel Formeln: Formulartextfelderinhalt per Button in anderes Tabellenblatt 3 Blubberbernd 1232 10. Apr 2005, 10:49
fl618 Formulartextfelderinhalt per Button in anderes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS??? 4 Julie 1238 18. März 2005, 15:01
Julie Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS???
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript