Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei nicht schreibgeschützt speichern

Forumthread: Datei nicht schreibgeschützt speichern

Datei nicht schreibgeschützt speichern
21.10.2014 12:41:23
Barbara
Hallo
würde gerne ein Makro schreiben, das Folgendes macht.
Die Datei unter folgendem Namen speichern:
"Berechnung" & V_Name
wobei V_Name eine benannte Zelle ist.
Und die Schwierigkeit:
Die vorliegende Datei ist schreibgeschützt, sie soll aber nicht schreibgeschützt gespeichert werden. Und da komme ich nicht dahinter, auch nicht mit Makrorekorder.
Bitte um konkrete Hilfe.
LG,
Barbara

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei nicht schreibgeschützt speichern
21.10.2014 14:01:31
Barbara
Noch eine Zusatzangabe:
Die Datei soll nicht gleich gespeichert werden, sondern der User soll im Speicherdialogfenster den oben genannten Namen vorgeschlagen bekommen.
Sodass er selbst entscheiden kann, was er tut, falls diese Datei bereits vorhanden ist.
Danke,
LG,
Barbara

Anzeige
AW: Datei nicht schreibgeschützt speichern
21.10.2014 14:37:48
fcs
Hallo Barbara,
folgendes Makro sollte funktionionieren.
Gruß
Franz 
'Erstellt unter Excel 2010
Sub Speichern_Unter()
Dim strVorgabename As String
'strVorgabename = "Berechnung" & ActiveWorkbook.Worksheets("Tabelle1").Range("V_Name").Text
strVorgabename = "Berechnung" & Application.Range("V_Name").Text
Application.Dialogs(xlDialogSaveAs).Show strVorgabename
End Sub

Anzeige
AW: Datei nicht schreibgeschützt speichern
21.10.2014 15:58:33
Barbara
Danke, funktioniert, aber der Haken bei
"Speichern unter" - Tools (Unten neben dem "Speichern"-Button) - Allgemeine Optionen - "Schreibschutz empfehlen"
ist immer noch an, weil ich die Datei schreibgeschützt aufgemacht habe. Der soll aber weg.

AW: Datei nicht schreibgeschützt speichern
21.10.2014 16:28:44
Rudi
Hallo,
'Erstellt unter Excel 2010 
Sub Speichern_Unter()
Dim strVorgabename As String
'strVorgabename = "Berechnung" & ActiveWorkbook.Worksheets("Tabelle1").Range("V_Name").Text
strVorgabename = "Berechnung" & Application.Range("V_Name").Text
ActiveWorkbook.ReadOnlyRecommended = False
Application.Dialogs(xlDialogSaveAs).Show strVorgabename
End Sub

Gruß
Rudi

Anzeige
AW: Datei nicht schreibgeschützt speichern
21.10.2014 16:52:42
Barbara
Vielen Dank, Rudi und Franz, das funktioniert.
Nächstes Problem:
In den Dateinamen soll das Datum als Zahl rein. Ich kann es zwar als Excel-Formel darstellen, aber nicht in VBA.
So sieht der gewünschte Dateiname in einer Excelzelle aus:
=JAHR(HEUTE())&MONAT(HEUTE())&TAG(HEUTE())& " Datenblatt " & V_Name
Also zB: "20141021 Datenblatt Müller"
Außerdem kommt noch die Schwierigkeit, wenn V_Name einen Punkt enthält, wie zB "B.Müller".
Dann wird statt dem Wunschnamen
"20141021 Datenblatt B.Müller"
nichts vorgeschlagen, obwohl bei händischer Speicherung ein solcher Dateiname zulässig ist.
Gibt es da vielleicht eine Lösung?

Anzeige
AW: Datei nicht schreibgeschützt speichern
21.10.2014 17:07:42
Rudi
Hallo, 
Sub Speichern_Unter()
Dim strVorgabename As String
'strVorgabename = "Berechnung" & ActiveWorkbook.Worksheets("Tabelle1").Range("V_Name").Text
strVorgabename = Format(Date, "YYYYMMDD") & "_" & "Berechnung " & Application.Range("V_Name"). _
Text & ".xlsx"
ActiveWorkbook.ReadOnlyRecommended = False
Application.Dialogs(xlDialogSaveAs).Show strVorgabename
End Sub
Anstatt
=JAHR(HEUTE())&MONAT(HEUTE())&TAG(HEUTE())
geht's kürzer mit
=Text(Heute();"JJJJMMTT")
Gruß
Rudi

Anzeige
AW: Datei nicht schreibgeschützt speichern
22.10.2014 23:55:08
Barbara
Hi Rudei,
auch das funktioniert.
Nochmals vielen Dank.
LG,
Barbara
;

Forumthreads zu verwandten Themen

manuelles Speichern bei schreibgeschützter Datei
Hans-Jürgen

Hallo Wissende,
ich bin noch bei meinem Excel-Frontend... Die Datei ist über das entsprechende Windows-Attribut schreibgeschützt.
Nun möchte ich aber für den Admi eine "Hintertür" haben, dass dieser per Tastendruck ein Makro aufruft, welches (nach Passwortabfrage) die Speicherung durchf...
06.09.2019 11:38:54
Thread-ID: 1711534
7 Beiträge
Speichern unter bei schreibgeschützter Datei verhindern
Bernhard Tautz
Hallo Experten, aufgrund von zwischenzeitlicher Abwesenheit ist mein Beitrag aus dem aktiven Bereichs des Forums gerutscht. Ich weiß nicht wie man ihn wieder aktiviert.
Daher auf diesem Weg:
Das Problem: Ich lasse eine Datei als eine Art Eingabemaske verwenden. Die Daten werden in eine ander...
02.01.2024 21:02:34
Thread-ID: 1959240
9 Beiträge
Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Anzeige
Makro Zelle Schutz aufheben
Kurt

Guten Abend,
ich habe dieses Makro auch übers Forum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Intersect(Target, Range("A10:C20")) Is Nothing Then Exit Sub ActiveSheet.Unprotect ("kk") On Error GoTo fehler Application.EnableEvents...
16.02.2009 19:53:00
Thread-ID: 1051271
27 Beiträge
Anzeige
Datei aus nur lesendem Verzeichnis wählen
Günter

Hallo Zusammen,
zum auswählen einer Datei benutze ich eine im Forum gefundene Routine
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = aPfad
.InitialFileName = aPfad 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedIt...
28.07.2009 10:31:27
Thread-ID: 1091758
9 Beiträge
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Anzeige
Blattschutz ohne passwortabfrage
Svenja

Hallo,
ich habe eine Excel-Datei mit mehreren Reitern.
In Tabellenblatt "Beiträge" habe ich einige Zahlen. Diese werden über ein weiteres Tabellenblatt über Button selektiert und bestimmte Daten daraus kopiert und in mein weiteres Tabellenblatt eingefügt.
Da ich im Tabellenblatt "Be...
19.12.2012 21:09:09
Thread-ID: 1291604
4 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
Dateischutz aufheben?
Schmidti

Hallo, ich habe eine Excel-Datei bei der vor dem Öffnen eine Passwortabfrage erscheint. Wie kann ich dieses PW herausbekommen. Vielen Dank im voraus.

01.08.2002 08:04:37
Thread-ID: 143390
2 Beiträge
Makroschutz über Makro aufheben
Stephan

Hallo zusammen,
ich habe ein Makro programmiert, dass eine neue Datei erstellt und ein Makro von der alten Datei übernimmt. Da ich die Makros in der alten datei aber alle geschützt habe, tritt ein Laufzeitfehler auf beim versuch, das Makro zu kopieren.
Wie kann ich mit einem Makro den Sc...
28.08.2002 08:47:07
Thread-ID: 153515
3 Beiträge
Blattschutz mit Passwort aufheben-Passworteingabe
beckersbest

Guten Morgen,ich muss in meiner Datei sämtliche Blätter mit einem Blattschutz versehen. Das geht per Makro ja auch ohne weiteres. Über den folgenden Befehl realisiere ich auch eine Passwortabfrage:ActiveSheet.Protect Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=Truewobei in de...
17.09.2002 07:40:43
Thread-ID: 160692
7 Beiträge
Anzeige
Blattschutz setzen aber ohne Passwort
Burak

Guten Morgen liebe Leutchens,
hab in einem anderen Beitrag grade gelesen, dass man in VBA den Blattschutz aufheben und wieder setzen kann.
Jetzt will ich das bei mir auch! Mit dem Unterschied, dass der Blattschutz hinterher OHNE Passwort gesetzt werden soll.
Mein Code: With Workshe...
13.03.2018 08:23:22
Thread-ID: 1613888
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige