Ich habe eine Arbeitsmappe, in der eine Liste mit Nummern geführt wird. Ich greife auf diese mit einer anderen Mappe zu. Da man die Nummernliste auch öffnen und Filtern will, habe ich das Speichern unterdrückt mit folgendem Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strpw As String
strpw = Application.InputBox("Sie dürfen nicht Speichern !!!", "Speichern abgebrochen")
If strpw = "" Or strpw "123" Then
Cancel = True
Exit Sub
End If
End Sub
Da ich nun aber über die 2. Mappe mit einem Makro die Nummerliste trotzdem speichern möchte, benötige ich eine Passwort-Eingabe bei der Inputbox mit anschliessendem "OK".
Leider ist die Makro-Aufzeichnung leer.
greez