Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

26 Forumthreads zu ähnlichen 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
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
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
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
Makro: Blattschutz PW setzen/aufheben
Thms

Liebes Forum,
ich möchte gerne mehrere Tabellenblätter per Makro mit einem Passwort schützen lassen. (Das Passwort soll bereits im Makro stehen.) Hierzu habe ich folgenden Code gefunden: Sub Schutz() Dim i As Long For i = 1 To Sheets.Count Sheets(i).Protect "123" Next i MsgBox "alle Blätter...
28.06.2013 13:59:33
Thread-ID: 1320297
7 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
26
8
2
3
6
2
1
2
6
1
3
3
1
2
6
5
8
2
2
5
2
7
10