2 Fragen: Datei schließen/Schreibschutz abbrechen
24.11.2019 01:16:31
Mike
ich möchte anhand einer Arbeitsmappe "China_Eingabemaske.xlsm" mit einer Userform mit TextBoxen, Comboboxen und einer Schaltfläche in eine anderen schreibgeschützten*** Arbeitsmappe (Uebersicht_Anfragen.xlsm) schreiben, speichern und wieder schließen.
Dieses funktioniert auch gut.
***
Der Schreibschutz ist unter Datei/Speichern unter/Tools/Allgemeine Optionen mit einem Passwort versehen.
Anschließend erscheint eine Messagebox mit einer JA/Nein Abfrage wie folgt:
Möchten Sie die "Uebersicht_Anfragen.xlsm" aufrufen?
Hierzu habe ich 2 Fragen wie folgt:
Frage 1)
- Bei "Schreibschutz" wird die Datei "Uebersicht_Anfragen.xlsm" mit Schreibchutz geöffnet.
(Hier ist alles OK)
- Bei Eingabe des Kennwort und anschließendem "OK" wird die Datei "Uebersicht_Anfragen.xlsm"
ohne Schreibschutz geöffnet (Hier ist auch alles OK)
- Bei "Abbrechen" erscheint eine Fehlermeldung wie folgt:
"Die Methode `Open` für das Objekt ' Workbooks' ist fehlgeschlagen"
Wo liegt der Fehler ?
Frage 2)
In meinem Code bleiben 2 Arbeitsmappen ("China_Eingabemaske.xlsm" + "Uebersicht_Anfragen.xlsm")
offen.
Ich möchte gern, das die Arbeitsmappe "China_Eingabemaske.xlsm" gespeichert und geschlossen wird,
so das nur noch die schreibgeschützte Arbeitsmappe "Uebersicht_Anfragen.xlsm" offen ist.
Wo liegt der Fehler ?
LG
Mike
Private Sub CommandButton_speichern_Click()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Einträge werden gespeichert." & vbLf & vbLf & " Möchten Sie die _
Uebersicht_Anfragen.xlsm aufrufen?"
Stil = vbYesNo + vbQuestion + vbDefaultButton2
Titel = "CHINA Übersicht"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.Save
Unload Me
Workbooks.Open "C:\Dokumente\Uebersicht_Anfragen.xlsm"
On Error GoTo 0
Else
If Antwort = vbNo Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub