Speichern unterbinden

[elamigo]

Hey Leute,

ich suche eine VBA Lösung für folgendes Problem:

Ich möchte meine Datei nicht speichern können, sondern es soll nur möglich sein "speichern unter" zu nutzen. Excel als Vorlage zu nehmen ist etwas kritisch, da häufiger Änderungen von 1-2 Nutzern vorgenommen werden müssen. 
Das Speichern unter funktioniert ganz simpel über ActiveWorkbook.SaveAs.

Ich habe schon ein paar Ansätze welche allerdings beide nicht so ganz funktionieren. Ich kann doch speichern. 

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

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = "Oliver" Then Exit Sub
MsgBox "Darfst Du nicht!"
Cancel = True
End Sub

scheinbar geht der erste Code doch. Ich lass es mal so stehen falls jemand etwas derartiges brauchen sollte. Sorry falls schon jemand dran ist/war.

[elamigo]

Ich nutze den ersten Code, allerdings gibt es dann doch ein kleines Problem. Undzwar wenn ich die Mappe schliesse und dann auf speichern drücke geht das ohne Probleme. Es wird nur eine PW Abfrage geschaltet, wenn ich auf speichern klicke, also das Festplattensymbol oben links. 
Jemand eine Idee?

[Steffl]

Hallo,

Undzwar wenn ich die Mappe schliesse und dann auf speichern drücke geht das ohne Probleme.

da komme ich jetzt nicht ganz mit, wenn ich die Mappe schließe kann ich doch danach nicht die Mappe speichern.

[mmat]

Hallo,

Excel hat eine entsprechende Option "On Bord", ein hantieren mit irgendwelchen Makros ist unnötig. Man kann bei "Spreichern unter" ein Schreibschutzpasswort vergeben.

vg, MM

[elamigo]

Hallo,


da komme ich jetzt nicht ganz mit, wenn ich die Mappe schließe kann ich doch danach nicht die Mappe speichern.

Ja genau, du drückst oben rechts auf das kreuz dann kommt bei mir, wenn ich vorher etwas geändert habe, eine Box und fragt "speichern" "nicht speichern" "abbrechen". Dann kann ich ohne Probleme speichern.

[elamigo]

Hallo,

Excel hat eine entsprechende Option "On Bord", ein hantieren mit irgendwelchen Makros ist unnötig. Man kann bei "Spreichern unter" ein Schreibschutzpasswort vergeben.

vg, MM

Nun möchte Excel immer ein PW sofern ich die Datei öffne, dies stellt allerdings keine Option dar.

[Steffl]

Hallo,

füge noch folgendes Ereignis bei DieseArbeitsmappe ein

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.Saved = True
End Sub

[elamigo]

That's it! :15:
Danke 

---

Zusatzfrage, ist es normal das wenn ich "ActiveWorkbook.SaveAs" ausführe ,dass er dann auch nach der Texteingabe fragt? 

Mein Ziel wäre ja lediglich speichern zu verhindern (bzw. nur via PW Eingabe zulassen) und nicht speichern unter :)

[Steffl]

Hallo,

Zusatzfrage, ist es normal das wenn ich "ActiveWorkbook.SaveAs" ausführe ,dass er dann auch nach der Texteingabe fragt? 

Ich kann dir wieder nicht ganz folgen.

[elamigo]

Ich füge nun die beiden Codes in meiner Datei ein.

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

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Saved = True
End Sub

Nun möchte ich das nur "speichern" unterbunden wird, allerdings wenn ich "speichern unter" drücke soll keine Abfrage kommen und alles soll wie gewohnt laufen. 


Also nur eine passwortabfrage wenn ich einfach "speichern" möchte und wenn ich "speichern unter" drücke, dann soll alles normal bleiben. 

"Speichern unter" führe ich über ein Makro aus.