Speichern verbieten
05.12.2014 12:07:47
Dr
Ich versuche mich bereits seit einiger Zeit, mittels VBA nur bestimmten Nutzern das Abspeichern eines Eingabe-Worksheets zu erlauben. Die Nutzer sind in einer seperaten Datei aufgelistet und werden beim Öffnen des Eingabesheets eingelesen und geprüft. Den Dialog "Speichern unter..." habe ich erfolgreich unterdrückt mit nachstehender Kombination:
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern unter..."). _
Enabled = False
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If status = 1 Then
If SaveAsUI Then
MsgBox "Deaktiviert!" & Chr(10) & "EXPORT - Schaltfläche verwenden", vbOKOnly + _
vbCritical, "BITTE BEACHTEN!!"
Cancel = True
Exit Sub
End If
End If
End Sub
Jedoch treibt es mich fast zum Wahnsinn - der Speicher-Knopf geht trotz
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls("Speichern").Enabled = False
Application.OnKey "^s", "" 'Sperrt Strg+S
Application.OnKey "{F12}", "" 'Sperrt F12-Taste
immer noch. Ich habe auch gelesen, dass bei Excel 2010 die Deaktivierung irgendwie mit RibbonX zusammenhängt. Leider komme ich hier überhaupt nicht weiter - wüsste nicht einmal wie ich an die entsprechende Datei rankommen kann...
Ich wäre sehr über Unterstützung - ich weiss, es handelt sich hierbei um ein bereits viel diskutiertes Thema - sehr erfreut.
Merci.