Wenn ich eine Excel-Datei öffne, so soll diese IMMER als Schreibgeschützt geöffnet werden, ohne einer Nachfrage beim öffnen. Geht das?

Gerne auch eine Lösung per VBA.

1 Antwort

ChrisCat1, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

27.03.2018, 11:21

Probier mal den Windows eigenen Schreibschutz.

Rechtsklick auf die Datei
Eigenschaften im Kontextmenü auswählen
Haken bei "Schreibgeschützt" setzen

Alternativ kannst du die Excel-Datei auch mit einem Passwort schützen.

https://support.office.com/de-de/article/sch%C3%BCtzen-einer-excel-datei-7359d4ae-7213-4ac2-b058-f75e9311b599

PWolff

27.03.2018, 12:48

Bei Schreibschutzpasswort haben wir aber wieder den Fall der Rückfrage beim Öffnen.

ChrisCat1, UserMod Light

27.03.2018, 13:14

@PWolff

Ist bei mir etwas her das ich Excel genutzt habe (nutze mittlerweile LibreOffice). Ich meine aber man konnte auch ein Schreibschutzpasswort zuweisen und Excel hat sich dies bezüglich nur gemeldet wenn man die Datei speichern wollte.

Funktioniert den der Weg über den Windows eigenen Schreibschutz?

Ich habe in Excel zwei Dateien. Nennen wir Sie A und B.

Wenn ich A öffne, erscheint beim öffnen eine msgbox in der ich gefragt werde, ob ich auch B öffnen will. Drücke ich Yes wird auch B geöffnet.

Private Sub Workbook_Open()

Dim a As Integer

a = MsgBox("B.xlsm auch öffnen?", vbYesNo)

If a = vbYes Then

Workbooks.Open "C:\Users\...\B.xlsm"

Workbooks("A_.xlsm").Activate

End If

End Sub

Das selbe habe ich auch für B erstellt. D. h. ich öffne B und werde gefragt ob ich A öffnen will. Gehe ich auf Yes wird auch A geöffnet.

Soweit klappt alles. Allerdings:

Öffne ich z. B. A, dann werde ich nach B öffnen gefragt, klicke ich auf Yes wird B geöffnet und A aktiviert. Allerdings erscheint mir nun, da B geöffnet wird nochmal die Msgbox mit a = MsgBox("A.xlsm auch öffnen?", vbYesNo). Dies hatte ich ja so festgelegt, falls B geöffnet wird. Allerdings ist dies unsinnig, da A ja bereits offen ist.

Wie kann ich diese zweite MSGbox unterdrücken? D.h. ich öffne A, drücke Yes, B wird geöffnet. Nun soll das Ereignis Private Sub Workbook_Open() für B nicht ausgeführt werden, damit die msgbox ob ich A auch öffnen will nicht erscheint.

MFG

...zur Frage

VBA Fehlermeldung Datei nicht vorhanden?

Hallo zusammen,

ich habe folgendes Problem in meinem VBA Code in Excel. Aktuell öffne ich eine automatisch erstelle Excel Datei und kopiere deren Inhalt in meine Hauptdatei. Nach dem die Daten fertig kopiert wurden, nutze ich die Kill Funktion um die Datei zu löschen (dies funktioniert auch). Nach dem Kill Befehl, habe ich eine Msgbox die ausgibt dass alles funktioniert hat. Sobald ich jedoch in der Msgbox auf okay klicke, kommt eine Fehlermeldung, dass Excel die gelöschte Datei nicht mehr finden kann. Ich vermute es liegt daran, dass im im VBA Studio die Datei noch in den geöffneten Dateien angezeigt wird. Weiß jemand wie man die daraus entfernt?

Danke im voraus.

...zur Frage

Wie entsperrt man Excel-Datei (die nie gesperrt wurde)?

Wenn ich eine Excel-Datei (Microsoft 365) öffne, bekomme ich die Meldung, dass sie angeblich zum Bearbeiten durch "XY" gesperrt sei. Mir werden die Optionen angeboten, die Datei schreibgeschützt zu öffnen oder zu benachrichtigen. Dieser XY bin ich selbst und ich habe diese Datei nie gesperrt (sondern vorher ganz normal gespeichert). Die Datei ist auch nicht schreibgeschützt oder versteckt. Aber davon abgesehen: Wie "entsperre" ich diese Datei (oder was kann ich sonst machen), um die Datei ganz normal zu nutzen und zu speichern)?

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Excel-Datei Passwort schützen aber auch ohne Passwort schreibgeschützt noch öffnen können?

Ich möchte eine Excel-Datei sowohl durch ein Passwort schützen als auch die Möglichkeit haben, sie schreibgeschützt zu öffnen, sodass sie nur zur Ansicht geöffnet werden kann, ohne dass Änderungen vorgenommen werden können. Zusammengefasst: Ohne Passwort (Schreibgeschützt) soll die Datei nur zur Ansicht geöffnet werden können, während sie mit Passwort geöffnet werden kann, um Bearbeitungen vorzunehmen. Ist eine solche Kombination möglich?

...zur Frage

Open Office 4.1.3 Dokumente werden immer Schreibgeschützt?

Hallo

Ich versende immer wider Dokumente per Email und mein Sohn hat mir mal eingestellt, das meine Dokumente schreibgeschützt gespeichert werden. Mir werden die Dokumente normal geöffnet, ohne irgend eine Meldung. Aber an einem Anderen PC (egal ob per Email versendet oder Per USB-Stick) kann man die Datei nur schreibgeschützt öffnen.

Wie Kriege ich das hin, das die Dokumente nicht mehr schreibgeschützt abgespeichert werden und die alten Dokumente normal geöffnet werden können?

...zur Frage

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

Excel - Beim öffnen prüfen ob Datei bereits von anderem Benutzer geöffnet?

Hallo zusammen,

an der Arbeit haben wir ein paar Excel Dateien (auf Netzwerklaufwerk), die zur gleichzeitigen Bearbeitung für mehrere Nutzer freigegeben sind. Das Problem hierbei ist, dass man es beim Öffnen nicht mitbekommt, wenn ein anderer Nutzer die Datei bereits geöffnet hat und bearbeitet. Besonders ärgerlich ist es wenn ein anderer Nutzer die Datei speichert und die Eingaben im gleichen Bereich getätigt wurden, wo man selber was geändert hat.

Ich Frage mich, ob es möglich ist beim öffnen der Datei per VBA MsgBox gewarnt zu werden, falls die Datei bereits von einem anderem Nutzer (wenn möglich gerne mit Namen des Nutzers) geöffnet ist?

Kann mir hier jemand weiterhelfen?

Vielen Dank und viele Grüße

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

Wie kann ich verhindern, dass eine schreibgeschützte Excel-Datei in LibreOffice ohne Schutz geöffnet werden kann?

Wir nutzen eine schreibgeschützte Excel mit Passwortschutz für interne Themen in der Firma. Dieses Passwort haben nur die Projektmanager um Änderungen vornehmen zu können. Die anderen Kollegen sollen zwar die Datei öffnen können, aber nur Schreibgeschützt.

Nun wird bei einem Kollegen auf dem Mac die Datei ohne Schreibschutz geöffnet. Er nutzt LibreOffice.

Gibt es eine Möglichkeit, die Excel so zu schützen, dass sie auch in LibreOffice nur Schreibgeschützt geöffnet werden kann?

Vielen Dank

...zur Frage

Excel vba Bilder anklicken?

Hallo

Ich habe ein kleines Problem wo ihr mir sicher helfen könnt.

Ein habe ein kleines makro gefunden welches allen Bilder in meiner Excel gewisse Funktionen gibt.

Nun müsste ich es aber noch hinbekommen das beim öffnen der Excel ein klickt mit der linken Maustaste auf alle bilder durchgeführt wird.

Könntet ihr mir bei diesen Code helfen:

Klick auf alle bilder in der Excel

Danke

...zur Frage

In Excel per Dateiname andere Exceldatei öffnen?

Hallo Ich habe ein Problem. Ich möchte per Makro oder vba im Excel eine andere Exceldatei öffnen. Aber so: Wenn A1= xyz (xyz ist der dateiname) dann öffne datei xyz. Das mnatürlich mit einem Button der Suchen drauf steht. Den habe ich schon erstellt.

...zur Frage

Excel Datei sobald geöffnet für andere schreibgeschützt machen?

Die Frage steht oben eigentlich schon beschrieben. Wie kann man, wenn man Dateien mit SharePoint teilt, sobald die Datei geöffnet wird, diese für andere Personen schreibgeschützt machen?

...zur Frage

Excel-VBA Userform in den Hintergrund stellen

Hallo zusammen,

ich hab eine Frage bezüglich VBA in Excel. Wenn ich eine Excel-Datei mit einem UserForm versehe, kann ich keine andere Excel-Datei mehr nebenbei öffnen, es sei denn, ich schliße das UserForm. gibt es eine Möglichkeit, eine Datei mit einem UserForm offen zu lassen, und nebenbei eine andere Excel Datei zu öffnen ?

Danke schonmal für die Antwort!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen