Speichern sperren funktioniert nicht
07.09.2017 11:02:24
Angelika
ich benötige mal wieder Hilfe.
Szenario :
1.) Meine Arbeitsmappe ( Tabelle) wird geöffnet -
Private Sub Workbook_Open()
2.) dann wird mein Nummernkreis um eins erhöht und die Arbeitsmappe gespeichert.
Tabelle2.Range("Q3") = Tabelle2.Range("Q3") + 1
Tabelle1.Range("J8") = Tabelle2.Range("R3")
ActiveWorkbook.Save
Nun möchte ich das die Arbeitsmappe nicht mehr gespeichert werden kann.(Später soll die _
Arbeitsmappe dann über einen Button gespeichert werden . Das ist aber im Moment zweitrangig )
Ich habe folgenden Code gefunden (von NoNet/Microsoft Office Forum )und eingefügt aber ich kann _
_
_
_
trotzdem noch speichern.
'Symbol "Speichern" sperren :
Set btnSave = Application.CommandBars.FindControl(ID:=3)
btnSave.Enabled = False
'Menü "Datei - Speichern" sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=3, recursive:=True)
btnSave.Enabled = False
'Menü "Datei - Speichern unter..." sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=748, recursive:=True)
btnSave.Enabled = False
Application.OnKey "^s", "" 'Sperrt Strg+S
Application.OnKey "{F12}", "" 'Sperrt F12-Taste
End Sub
im Modul :
Option Explicit
Public blneigenerSave As Boolean
Sub EigenesSpeichernMakro()
'Speichern der Mappe ist nur mit diesem Makro möglich !
'Tu dies
'und das
'setze die Variable auf TRUE :
blneigenerSave = True
'und speichere die Mappe dann :
ActiveWorkbook.Save
'und setze die Variable danach wieder auf FALSE :
blneigenerSave = False
End Sub
ich bin dankbar für jede Hilfe. Angelika